专家坐堂-两列数据相同如何在逻辑列自动勾选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  两列数据相同如何在逻辑列自动勾选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132456)

--  作者：yfy13338431925
--  发布时间：2019/3/22 10:37:00
--  两列数据相同如何在逻辑列自动勾选

两列数据相同如何在逻辑列自动勾选

此主题相关图片如下：图片1.png

--  作者：y2287958
--  发布时间：2019/3/22 11:58:00
--

一、数据列：DataColChanged事件

Select Case e.DataCol.Name
Case "第一列","第二列"
If e.DataRow("第一列") = e.DataRow("第二列") AndAlso e.DataRow.IsNull("第一列") = False AndAlso e.DataRow.IsNull("第二列") = False
e.DataRow("第三列") = True
Else
e.DataRow("第三列") = False
End If
End Select

二、表达式列：IIF([第一列] = [第二列],true,false)

--  作者：yfy13338431925
--  发布时间：2019/3/22 14:45:00
--

Select Case e.DataCol.Name

Case "第一列","第二列"

If e.DataRow("第一列") = e.DataRow("第二列") AndAlso e.DataRow.IsNull("第一列") = False AndAlso e.DataRow.IsNull("第二列") = False

e.DataRow("第三列") = True

Else

e.DataRow("第三列") = False

End If

End Select
怎么换成按钮事件呢？

--  作者：有点甜
--  发布时间：2019/3/22 15:03:00
--

For Each dr As DataRow In DataTables("表a").Select("")
    If dr("第一列") = dr("第二列") AndAlso dr.IsNull("第一列") = False AndAlso dr.IsNull("第二列") = False
        dr("第三列") = True
    Else
        dr("第三列") = False
    End If
Next