以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多列判断如何处理？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66328)
--  作者：sl2015
--  发布时间：2015/4/3 11:53:00
--  多列判断如何处理？
表A 表B
第一列 第二列 第三列 包含列1 包含列2 第一列 第二列 第三列
数据列 数据列 数据列 逻辑列 逻辑列 数据列 数据列 数据列
500
785 500 800 v
500 400 600 v 600
600 750 820 v v 750 820
要求： 表A中，第二列是否含有第一列，是的话包含列1为 ture，且第二列数据上传到表B的第二列
表A中，第三列是否含有第一列，是的话包含列1为 ture，且第三列数据上传到表B的第三列
--  作者：Bin
--  发布时间：2015/4/3 11:56:00
--  
看不懂你的要求,
--  作者：有点甜
--  发布时间：2015/4/3 11:59:00
--  
 上传例子
--  作者：sl2015
--  发布时间：2015/4/3 12:02:00
--  
有两个表，表A，表B，


表A,  有 3个数据列和2个逻辑列。
表B  有 3个数据列


在表A  中，
表A中，判断  第二列是否含有第一列，是的话包含列1为 ture，且第二列数据上传到表B的第二列
表A中， 判断  第三列是否含有第一列，是的话包含列1为 ture，且第三列数据上传到表B的第三列
--  作者：Bin
--  发布时间：2015/4/3 12:04:00
--  
所谓的包含,指的是什么呢?
--  作者：有点甜
--  发布时间：2015/4/3 12:10:00
--  
For Each dr As DataRow In DataTables("表A").Select("")
    Dim fdr As DataRow = DataTables("表A").Find("第一列 = \'" & dr("第二列") & "\' and 第一列 is not null")
    Dim ndr As DataRow = Nothing
    If fdr IsNot Nothing Then
        ndr = DataTables("表B").AddNew
        ndr("第二列") = dr("第二列")
        dr("第五列") = True
    Else
        dr("第五列") = False
    End If
   
    fdr = DataTables("表A").Find("第一列 = \'" & dr("第三列") & "\' and 第一列 is not null")
    If fdr IsNot Nothing Then
        If ndr Is Nothing Then
            ndr = DataTables("表B").AddNew
        End If
        ndr("第三列") = dr("第三列")
        dr("第四列") = True
    Else
        dr("第四列") = False
    End If
Next
--  作者：sl2015
--  发布时间：2015/4/3 13:45:00
--  
是 表A  的哪个 事件
--  作者：Bin
--  发布时间：2015/4/3 13:46:00
--  
放到一个按钮Click事件里执行
--  作者：sl2015
--  发布时间：2015/4/3 13:51:00
--  
不懂，有放表 事件 的吗
--  作者：sl2015
--  发布时间：2015/4/3 14:06:00
--  
请问如何设计按钮