以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表的currentchanged和查询按钮的冲突问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126244)
--  作者：guosheng
--  发布时间：2018/10/17 13:34:00
--  表的currentchanged和查询按钮的冲突问题
当“查询”按钮的结果为空时，会提示“currentchanged事件，未将对象引用为对象实例”。该怎么调整啊？谢谢。
在currentchanged事件中加入：（1）If e.Table.Current Is Nothing Then Return 可以解决错误提示。
但是在currentchanged事件中加入：（2）
Dim dr As DataRow = e.Table.Current.DataRow
If dr Is Nothing Then Return
为什么（1）可以解决错误提示，（2）确不能解决错误提示啊  （1）和（2）感觉区别不太吧。



1、“查询”按钮的click事件：
Dim nms() As String=……
Dim sps() As String=……
Dim bjf() As  String=……
Dim fds() As String=……
Dim filter As String
……
2、窗口副本表的currentchanged事件：
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("合同基本信息表").FindRow(dr)
If wz >=0  Then
      Tables("合同基本信息表").Position = wz
End If
[此贴子已经被作者于2018/10/17 14:00:19编辑过]
--  作者：有点蓝
--  发布时间：2018/10/17 14:53:00
--  
完全不是一回事的。

If e.Table.Current Is Nothing Then Return \'必须加上这句
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("合同基本信息表").FindRow(dr)
If wz >=0  Then
      Tables("合同基本信息表").Position = wz
End If
--  作者：guosheng
--  发布时间：2018/10/17 15:16:00
--  
（1）和（2）有啥区别啊图片点击可在新窗口打开查看
是table 和datatable 的区别吗
[此贴子已经被作者于2018/10/17 15:20:36编辑过]
--  作者：有点甜
--  发布时间：2018/10/17 15:39:00
--  
以下是引用guosheng在2018/10/17 15:16:00的发言：
（1）和（2）有啥区别啊图片点击可在新窗口打开查看
是table 和datatable 的区别吗
[此贴子已经被作者于2018/10/17 15:20:36编辑过]

 

e.table.current 如果是nothing，这个时候，无法获取其datarow属性的。