Foxtable(狐表)用户栏目专家坐堂 → 引用代码


  共有2054人关注过本帖树形打印复制链接

主题:引用代码

帅哥哟,离线,有人找我吗?
hongyefor
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
引用代码  发帖心情 Post By:2016/7/18 9:27:00 [只看该作者]

请问,在窗口Label里根据B表的第三列和A表的_Identify,引用A表第一列,这个代码怎么写啊

 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/18 10:06:00 [只看该作者]

怎么没有人帮助我啊

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/7/18 10:32:00 [只看该作者]

看不懂您的意思

 回到顶部
帅哥哟,离线,有人找我吗?
hongyefor
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3676 威望:0 精华:0 注册:2012/7/27 10:28:00
  发帖心情 Post By:2016/7/18 10:51:00 [只看该作者]

我的意思是

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

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

请问怎么写这个代码

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

 

双击B表显示窗口


 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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

 回到顶部