以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  查询语句赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102133)
--  作者：peibaomin
--  发布时间：2017/6/13 20:34:00
--  查询语句赋值

If e.Col.Name = "第一列" Then
    e.Cancel = True \'禁止进入编辑状态
    Dim dr As DataRow = DataTables("表B").Find("第一列=\'" & e.Row("第一列") &"\'")
    If dr IsNot Nothing Then      
        Dim xm As WinForm.TextBox = Forms("窗口1").Controls("TextBox1")
        xm.Value=dr("第一列")
    End If
End If

这样的语句对吗？

 

 

 
--  作者：有点蓝
--  发布时间：2017/6/13 21:10:00
--  
代码写在什么事件的？想实现什么功能？
--  作者：peibaomin
--  发布时间：2017/6/13 21:22:00
--  

写到A表的“DoubleClick” 双击第一列，第一列作为查找条件，将双击的整行数据分别赋值给B表符合查找条件的行中的每个字段
--  作者：有点蓝
--  发布时间：2017/6/13 21:37:00
--  
If e.Col.Name = "编号" Then
    e.Cancel = True \'禁止进入编辑状态
    For Each dr As DataRow In DataTables("表B").Select("编号=" & e.Row("编号"))
        dr("第二列") = e.Row("第二列")
        dr("第三列") = e.Row("第三列")
    Next
End If