以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]引用vars变量问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127174)
--  作者：一只田鸡
--  发布时间：2018/11/7 16:23:00
--  [求助]引用vars变量问题
老师好，我在窗口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
End If
--  作者：有点甜
--  发布时间：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
--  作者：一只田鸡
--  发布时间：2018/11/7 17:09:00
--  
谢谢老师