Foxtable(狐表)用户栏目专家坐堂 → 代码修改


  共有2339人关注过本帖平板打印复制链接

主题:代码修改

帅哥哟,离线,有人找我吗?
jick0526
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
代码修改  发帖心情 Post By:2021/8/19 19:31:00 [只看该作者]


老师,请问下,下面这段代码,如果我想加一个前提条件,如果K列为空,则不执行下面代码,如果不为空则执行下面的代码,改怎么修改,麻烦老师帮忙改下,谢谢!

Select Case e.DataCol.Name
    Case "A列","B列","C列","D列"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("A列") OrElse dr.IsNull("B列") OrElse dr.IsNull("C列") OrElse dr.IsNull("D列") Then
        dr("F列") = Nothing    
        Else
            Dim filter As String
            filter = "A列 <> '" & dr("A列") & "' And B列 = '" & dr("B列") & "' And D列 = '" & dr("D列") & "'  And C列 = '" & dr("C列") & "'"
            pr = DataTables("表C").Find(filter)
           
If pr IsNot Nothing Then
e.DataRow("F列") = "错误"
Else
End If
End If
End Select

 回到顶部