'If e.Table.Form Is Nothing AndAlso e.Table.Current Is Nothing Then Return '未将对象引用设置到对象的实例。
If e.Table.Form Is Nothing Then Return '如果表所在窗体为Nothing
If e.Table.Current Is Nothing Then Return '如果表当前记录为Nothing
Select Case e.Table.Form.name
Case "frm6_jczlwlkh"
DataTables("tbl_jczl_wlkhdz").LoadFilter = "[khbh] = '" & E.Table.current("khbh") & "'"
DataTables("tbl_jczl_wlkhdz").Load
If Forms("frm6_jczlwlkh").Controls("SplitContainer3").Panel2.Collapsed = True Then
Forms("frm6_jczlwlkh").Controls("SplitContainer3").Panel2.Collapsed = False
End If
End Select
在表的 CurrentChanged 事件中代码如下 用第一行（已改为注释） 报错未将对象引用设置到对象的实例。经调试后改为了第二行&第三行 报错就没有了。 是写法错误吗，请指教！
加好友 
发短信
Post By：2023/2/13 11:45:00 [显示全部帖子]
