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


  共有2332人关注过本帖树形打印复制链接

主题：代码修改
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/19 20:27:00 [只看该作者]

Select Case e.DataCol.Name
    Case "A列","B列","C列","D列"
if e.DataRow.IsNull("k列") = false then 
……
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，我试了下不行，能帮我看下哪里错了吗？谢谢！
Select Case e.DataCol.Name
    Case "A列","B列","C列","D列"
If e.DataRow.IsNull("K列") = False Then 
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("Today").Find(filter)
           
If pr IsNot Nothing Then
e.DataRow("F列") = "错误"
Else
End If
End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/19 21:21:00 [只看该作者]

哪里不行？提示什么错误？

 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

提示这个错误

编译错误：Select Case必须以匹配 End Select 结束
错误代码 Case "A列","B列","C列","D列"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107783 积分：548260 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/8/19 22:00:00 [只看该作者]

Select Case e.DataCol.Name
    Case "A列","B列","C列","D列"
        If e.DataRow.IsNull("K列") = False Then
            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("Today").Find(filter)
                
                If pr IsNot Nothing Then
                    e.DataRow("F列") = "错误"
                Else
                End If
            End If
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04099 秒, 4 次数据查询