| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170974) |
| -- 作者：jick0526 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2021/8/12 21:33:00 -- 要做什么功能？使用文字书说明一下 |
| -- 作者：jick0526 -- 发布时间：2021/8/12 21:50:00 -- 有表A和表B 当表A和表B的A,B.C列都相同，D列不相同时，表A的F列会显示"错误"
|
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2021/8/14 9:01:00 -- 写代码前旧的数据，需要重置一次。写代码后新录入的数据肯定会自动更新 |