以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  引用代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87713)

--  作者:hongyefor
--  发布时间:2016/7/18 9:27:00
--  引用代码
请问,在窗口Label里根据B表的第三列和A表的_Identify,引用A表第一列,这个代码怎么写啊
--  作者:hongyefor
--  发布时间:2016/7/18 10:06:00
--  
怎么没有人帮助我啊
--  作者:Hyphen
--  发布时间:2016/7/18 10:32:00
--  
看不懂您的意思

--  作者:hongyefor
--  发布时间:2016/7/18 10:51:00
--  

我的意思是

我有一个窗口名为:窗口1, 里面有一个Label名为:Label1

我想让Label1引用A表第一列的内容,因为不是关联表,只有B表的第三列和A表的_Identify是值相同的

请问怎么写这个代码

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目118.foxdb

 

双击B表显示窗口


--  作者:Hyphen
--  发布时间:2016/7/18 11:06:00
--  
Label1绑定到A表第一列

B表CurrentChanged事件
If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
Dim dr As DataRow = DataTables("表A").Find("[_Identify] = " & e.Table.Current("第三列"))
Dim idx As Integer =  Tables("表A").FindRow( dr)
If idx > - 1 Then \'如果找到符合条件的行
    Tables("表A").Position = idx \'则选择该行
End If