[求助]引用vars变量问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]引用vars变量问题

共有2097人关注过本帖树形打印复制链接主题：[求助]引用vars变量问题

一只田鸡

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：33 积分：379 威望：0 精华：0 注册：2018/8/28 16:39:00

[求助]引用vars变量问题 发帖心情

Post By：2018/11/7 16:23:00 [只看该作者]

老师好，我在窗口a中定义了一个vars（“aaaa”）变量，变量值是人员的身份证号码，现在要在窗口b中引用vars变量，并定位到身份证号相同的行。请问这个代码要怎么改

要实现的功能类似于帮助文件中：假定我正在订单表操作，我们希望在订单表中选定一行时，客户表的光标能够自动定位到该客户，这样我一旦从订单表回到客户表，即可看到刚刚所选订单的客户资料。

Dim wz As Integer

Dim dr As DataRow

dr = DataTables("person").Find("[peidnumber] = '" & vars("aaaa") & "'")

If dr IsNot Nothing Then

wz = Tables("person").FindRow(dr)

If wz >= 0 Then

Tables("person").Position = wz

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/7 16:52:00 [只看该作者]

currentChanged事件

If e.Table.current Is Nothing Then Return
Dim wz As Integer = Tables("person").FindRow("[peidnumber] = '" & e.Table.current("某列") & "'")
If wz >= 0 Then
Tables("person").Position = wz
End If

一只田鸡

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：33 积分：379 威望：0 精华：0 注册：2018/8/28 16:39:00

Post By：2018/11/7 17:09:00 [只看该作者]

谢谢老师

下一主题 >> << 上一主题

主题：[求助]引用vars变量问题