以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模拟关联表，子表为空时提示错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51406)
--  作者：kao_go
--  发布时间：2014/5/26 14:33:00
--  模拟关联表，子表为空时提示错误
模拟关联表
If Forms("基础档案模板").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("基础档案模板_you22")
    With Tables("yonghu")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            If .Current.Isnull("yhdm") Then    \'如果用户代码为空,则不筛选
                t.Filter = "False"
            Else
                t.Filter = "yhdm = " & .Current("yhdm")
            End If
        End If
    End With
End  If

如果表you22中不存在相应的yhdm时会提示【无法在 System.String 和 System.Int32 上执行“=”操作。】
--  作者：Bin
--  发布时间：2014/5/26 14:35:00
--  
t.Filter = "yhdm = \'" & .Current("yhdm") & "\'"
--  作者：kao_go
--  发布时间：2014/5/26 14:39:00
--  
OK了，感谢！！