Dim t2 As Table = e.Form.controls("table2").Table
Dim t1 As Table = e.Form.controls("table1").Table
t1.Filter = "销售年编号 = '" & t2.Current("销售年编号") & "'"
两个sqltable通过上述代码实现选择table1时候，对应的table2筛选出销售年编号关联的数据
上述代码有没有办法加一个判断 如果当前table1为空行的时候，代码不运行 反之则运行
仿照代码写成如下，运行情况如下：
1、当表2数据为空行的时候，正常运行不报错了
2、当表2数据删除的时候，代码报错，求助，怎么解决删除时候，不报错呢？
With CurrentTable
Dim i As Integer
i = e.Form.controls("table2").Table.Find("",0,"销售年编号",True,True,False)
Dim t2 As Table = e.Form.controls("table2").Table
Dim t1 As Table = e.Form.controls("table1").Table
If i >= 0 Then '如果找到的话
t1.Filter = "销售年编号 = '" & t2.Current("销售年编号") & "'"
Else
'e.Cancel = True
End If
End With
【已经自行解决】i >= 0 更改i > 0 则正常了
[此贴子已经被作者于2017/6/23 13:46:18编辑过]
加好友 
发短信
Post By：2017/6/23 12:28:00 [只看该作者]
