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


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

主题：代码错误
帅哥哟，离线，有人找我吗？
jick0526
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，下面这段代码哪里错了麻烦能帮我改下吗？谢谢！

If e.DataCol.name = "A列" OrElse e.DataCol.name = "b列" OrElse e.DataCol.name = "C列" Then
    Dim fdr As DataRow = DataTables("Today").find("A列 = '" & e.DataRow("A列") & "'").find("C列 = '" & e.DataRow("C列") & "'")
    If fdr IsNot Nothing AndAlso fdr("B列") <> e.DataRow("B列") Then
        e.DataRow("错误") = "B列错误"
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

要做什么功能？使用文字书说明一下

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


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

有表A和表B
当表A和表B的A,B.C列都相同，D列不相同时，表A的F列会显示"错误"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If e.DataCol.name = "A列" OrElse e.DataCol.name = "b列" OrElse e.DataCol.name = "C列" Then
    Dim fdr As DataRow = DataTables("Today").find("A列 = '" & e.DataRow("A列") & "' and B列 = '" & e.DataRow("B列") & "' and C列 = '" & e.DataRow("C列") & "'")
    If fdr IsNot Nothing AndAlso fdr("D列") <> e.DataRow("D列") Then
        e.DataRow("错误") = "B列错误"
    End If
End If

合成多个表达式条件参考：http://www.foxtable.com/webhelp/topics/1284.htm
 回到顶部
帅哥哟，离线，有人找我吗？
jick0526
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，请问下这段代码我每次还要重置列才会自动更新，我想要只要A.B.C三列数值改变后就会自动更新，麻烦老师帮我改下谢谢！

If e.DataCol.name = "A列" OrElse e.DataCol.name = "b列" OrElse e.DataCol.name = "C列" Then
    Dim fdr As DataRow = DataTables("Today").find("A列 = '" & e.DataRow("A列") & "' and B列 = '" & e.DataRow("B列") & "' and C列 = '" & e.DataRow("C列") & "'")
    If fdr IsNot Nothing AndAlso fdr("D列") <> e.DataRow("D列") Then
        e.DataRow("错误") = "B列错误"
      Else
       e.DataRow("错误") = ""
    End If
    End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

写代码前旧的数据，需要重置一次。写代码后新录入的数据肯定会自动更新

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询