Foxtable(狐表)用户栏目专家坐堂 → [求助]求教多表在使用光标同步定位的问题


  共有3136人关注过本帖平板打印复制链接

主题:[求助]求教多表在使用光标同步定位的问题

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


加好友 发短信
等级:婴狐 帖子:11 积分:346 威望:0 精华:0 注册:2012/4/9 19:06:00
[求助]求教多表在使用光标同步定位的问题  发帖心情 Post By:2014/8/28 16:59:00 [只看该作者]

请教,已使用以下语句实现在操作“电梯信息”表时其他几个表(无关联)光标定位,请问如果要想实现在操作以下任意一个表时所有的表的光标都能定位该怎么做?

If e.Table.Current Is Nothing Then
    Return
End If

Dim wz As Integer
Dim dr As DataRow
dr = DataTables("电梯信息").Find("[设备ID] = '" & e.Table.Current("设备ID") & "'")
If dr IsNot Nothing
    wz = Tables("电梯信息").FindRow(dr)
    If wz >= 0
        Tables("设备技术参数").Position = wz
        Tables("定期检验时间").Position = wz
        Tables("设备注册登记信息").Position = wz
        Tables("定期检验时间查询").Position = wz
    End If
End If

 回到顶部