模拟关联表，子表为空时提示错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 模拟关联表，子表为空时提示错误

共有2664人关注过本帖树形打印复制链接主题：模拟关联表，子表为空时提示错误

kao_go

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：562 积分：4845 威望：0 精华：0 注册：2014/4/29 14:32:00

模拟关联表，子表为空时提示错误 发帖心情

Post By：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 With

End If

如果表you22中不存在相应的yhdm时会提示【无法在 System.String 和 System.Int32 上执行“=”操作。】

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/5/26 14:35:00 [只看该作者]

t.Filter = "yhdm = '" & .Current("yhdm") & "'"

kao_go

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：562 积分：4845 威望：0 精华：0 注册：2014/4/29 14:32:00

Post By：2014/5/26 14:39:00 [只看该作者]

OK了，感谢！！

主题：模拟关联表，子表为空时提示错误