以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助已自行解决】判断空行代码不运行，反正则运行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102646)
--  作者：李孝春
--  发布时间：2017/6/23 12:28:00
--  【求助已自行解决】判断空行代码不运行，反正则运行
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编辑过]