以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [关联]为什么模拟关联表，选择产品空行的时候会提示错误呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31358)
--  作者：sadfox
--  发布时间：2013/4/13 20:07:00
--  [关联]为什么模拟关联表，选择产品空行的时候会提示错误呢？

If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "产品编号 = " & .Current("产品编号")
End IF
End With
End If

 

为什么选择空行，或者无编号的时候老是会提示错误呢？

[此贴子已经被作者于2013-4-13 20:07:46编辑过]
--  作者：fjlclxj
--  发布时间：2013/4/13 20:30:00
--  
t.Filter = "产品编号 = " & .Current("产品编号")？
--  作者：狐狸爸爸
--  发布时间：2013/4/13 22:48:00
--  
If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("窗口1_Table1")
    With Tables("产品")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            If .Current.Isnull("产品编号") Then
                t.Filter = "False"
            Else
                t.Filter = "产品编号 = " & .Current("产品编号")
            End If
        End If
    End With
End If
--  作者：kao_go
--  发布时间：2014/5/26 14:21:00
--  
怎么判断 窗口1_Table1为空的情况？？？？
--  作者：Bin
--  发布时间：2014/5/26 14:25:00
--  
Tables("窗口1_Table1").rows.count>0