Foxtable(狐表)用户栏目专家坐堂 → 帮助文件


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

主题:帮助文件

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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
帮助文件  发帖心情 Post By:2013/9/28 10:14:00 [显示全部帖子]

见过帮助文件介绍,大意是设置一段代码,可以实现选定A表某行,B表自动定位到关联行的功能.

现在想看看,找半天找不到.


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


加好友 发短信
等级:四尾狐 帖子:972 积分:7048 威望:0 精华:0 注册:2013/3/31 10:33:00
  发帖心情 Post By:2013/9/28 11:28:00 [显示全部帖子]

找到了:不同表之间联运.

示例一

假定我正在订单表操作,我们希望在订单表中选定一行时,客户表的光标能够自动定位到该客户,这样我一旦从订单表回到客户表,即可看到刚刚所选订单的客户资料。
为此我们在CurrentChanged事件中设置如下代码: 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End
If

Dim
wz As Integer
Dim
dr As DataRow
dr = DataTables("客户").Find("[客户ID] = '" & e.Table.Current("客户ID") & "'")
If
dr IsNot Nothing Then
    wz = Tables("客户").FindRow(dr)
    If wz >= 0 Then
        Tables
("客户").Position = wz
    End If
End
If

 


 回到顶部