以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求助 有个错误提示怎么能让它不提示？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84243)
--  作者：北冰洋
--  发布时间：2016/4/26 16:03:00
--  [求助]求助 有个错误提示怎么能让它不提示？
[求助]求助 有个错误提示怎么能让它不提示？

副本Table之行位置联动

假定窗口中插入了一个Table控件，绑定到"表A"，作为副本。
希望在这个副本Table中选定一行时，表A也能自动选定这一行，实现这个任务很简单，只需将副本Table的CurrentChanged事件代码设置为：

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


这里的 如果副本那里输入的内容是表A里没有的，就会提示错误：  未将对象引用设置到对象的实例

请问怎么让这个提示去掉？


还有 我怎么发现我不会上传图片了……

[此贴子已经被作者于2016/4/26 16:06:33编辑过]
--  作者：大红袍
--  发布时间：2016/4/26 16:12:00
--  
If e.Table.Current IsNot Nothing
    Dim dr As Row = e.Table.Current
    Dim wz As Integer = Tables("表A").FindRow("第一列 = \'" & dr("第一列") & "\'")
    If wz >=0 Then
        Tables("表A").Position = wz
    End If
End If
--  作者：北冰洋
--  发布时间：2016/4/26 16:17:00
--  
Dim wz As Integer = Tables("表A").FindRow("第一列 = \'" & dr("第一列") & "\'")
这句是什么意思啊老师 讲解下呗
--  作者：大红袍
--  发布时间：2016/4/26 16:20:00
--  

 参考

 

http://www.foxtable.com/help/topics/0553.htm

 
--  作者：北冰洋
--  发布时间：2016/4/26 16:27:00
--  
赞！ 完美解决！ 谢谢…