以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按ＴＡＢ键从表B取对应序号的数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=107066)
--  作者：zoyong
--  发布时间：2017/9/20 20:48:00
--  按ＴＡＢ键从表B取对应序号的数据
在“表A”的序号列上按ＴＡＢ键，将“表B”对应序号所对应的“列表名称”填入到表A的列表名称中，如果表A的序号列上没有数据则跳到下一格
--  作者：有点甜
--  发布时间：2017/9/20 21:44:00
--  

为什么一定要按下tab键？正常情况你输入序号之后，跨表查找就好了。

 

http://www.foxtable.com/webhelp/scr/1451.htm

 
--  作者：zoyong
--  发布时间：2017/9/22 15:00:00
--  
If e.DataCol.Name = "对方账号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("对方户名") = Nothing
        e.DataRow("合作公司") = Nothing        
    Else
        Dim dr As DataRow
        dr = DataTables("cw_szzh").Find("[银行账号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing 
            e.DataRow("对方户名") = dr("账户名称")
            e.DataRow("合作公司") = dr("关联信息")            
        End If
    End If
End If
--  作者：有点甜
--  发布时间：2017/9/22 15:38:00
--  

有问题？什么问题？

 

If e.DataCol.Name = "对方账号" Then
    If e.NewValue = Nothing Then
        e.DataRow("对方户名") = Nothing
        e.DataRow("合作公司") = Nothing        
    Else
        Dim dr As DataRow
        dr = DataTables("cw_szzh").Find("[银行账号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing 
            e.DataRow("对方户名") = dr("账户名称")
            e.DataRow("合作公司") = dr("关联信息")            
        End If
    End If
End If