以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不用关联  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=166122)
--  作者：bzqlyj
--  发布时间：2021/5/19 15:24:00
--  不用关联
表A 表B
A B C B1 C1 A1 B1 C1
a1 Y 789 a1 f 777
b1 Y 123 b1 t 888
b1 f 999
在窗中，通过按钮将表A中工A列对应表B中A1列对应的B1、C1列的值写入表A，条件是表B在B1列中取F
--  作者：y2287958
--  发布时间：2021/5/19 17:10:00
--  
遍历查询后填值
--  作者：有点蓝
--  发布时间：2021/5/20 9:00:00
--  
或者参考：http://www.foxtable.com/webhelp/topics/1451.htm
--  作者：bzqlyj
--  发布时间：2021/5/20 10:26:00
--  回复：（有点蓝）或者参考：http://www.foxtable.com/...
If e.DataCol.Name = "A" Then
    Dim nms() As String = {"B1","c1"}
    If e.NewValue Is Nothing aThen
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
        dr = DataTables("表B").Find("[A] = \'" & e.NewValue & "\'") 
        If dr IsNot Nothing 
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

如何把条件表B中B1列等于F加进去
--  作者：有点蓝
--  发布时间：2021/5/20 10:32:00
--  
多看几遍：http://www.foxtable.com/webhelp/topics/1284.htm

dr = DataTables("表B").Find("[A] = \'" & e.NewValue & "\' and B1=‘F’")