各位老师:
请教一下我这个问题如何解决?
我在窗口中加入了两个表,用的是模拟关联,方法如下,现在的问题是在打开窗口时Table1中有数据时没有问题,但是一但打开窗口时Table1中无数据时就行出行如下图所示运行错误,请问有什么方法可以在Table1无数据时不会跳出错误提示?
AfterLoad
Dim t1 As Table = e.Form.controls("table1").Table
Dim t2 As Table = e.Form.controls("table2").Table
t2.Filter = "模具编号 = '" & t1.Current("模具编号") & "'"
在Table1的CurrentChanged件事中
Dim t1 As Table = e.Form.controls("table1").Table
Dim t2 As Table = e.Form.controls("table2").Table
t2.Filter = "模具编号 = '" & t1.Current("模具编号") & "'"
[此贴子已经被作者于2023/12/11 9:47:24编辑过]
参考:
http://www.foxtable.com/webhelp/topics/0445.htm
If t1.Current IsNot Nothing Then
t2.Filter = "模具编号 = '" & t1.Current("模具编号") & "'"
End If