以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教大神 副本Table之行位置联动问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125261)
--  作者：编程小菜鸟
--  发布时间：2018/9/25 4:28:00
--  [求助]请教大神 副本Table之行位置联动问题
我检索表 刚好那张表没有我要的数据 就为空 不显示 

用

Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("表A").FindRow(dr)
If wz >=0 Then
      Tables("表A").Position = wz
End If



会报错 未将对象引用设置到对象的实例。


该这么解决 

还是说要这么判断 副本Table 有没有参数呢
--  作者：有点甜
--  发布时间：2018/9/25 9:03:00
--  

If e.Table.Current Is Nothing Then
    Tables("表A").filter = "1=2"
Else
    Tables("表A").filter = ""
    Dim dr As DataRow = e.Table.Current.DataRow
    Dim wz As Integer = Tables("表A").FindRow(dr)
    If wz >=0 Then
        Tables("表A").Position = wz
    End If
End If