[求助]关联表的表达式字段的列表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关联表的表达式字段的列表

共有1994人关注过本帖树形打印复制链接主题：[求助]关联表的表达式字段的列表

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

[求助]关联表的表达式字段的列表 发帖心情

Post By：2017/4/9 17:25:00 [显示全部帖子]

客户编号是关联表的表达式字段，那么ComboBox列表项目代码如何写？

SelectedIndexChanged

Dim khbh As WinForm.ComboBox = e.Form.Controls("客户编号")

Tables("报价未订购_报价明细表").Filter = "客户编号 = '" & khbh.Text & "'"

Enter

Dim khbh As WinForm.ComboBox = e.Form.Controls("客户编号")

khbh.ComboList = DataTables("报价明细表").GetComboListString("客户编号")

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/9 23:14:00 [显示全部帖子]

Tables("父表") 能否更换为DateTables("父表")

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 8:55:00 [显示全部帖子]

窗口中只采用了子表，没有采用父表

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 9:03:00 [显示全部帖子]

因窗口中没有采用父表，所以提示没有父表，错误：未将对象引用设置到对象的实例。

[此贴子已经被作者于2017/4/10 9:03:41编辑过]

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 9:10:00 [显示全部帖子]

Dim khbh As WinForm.ComboBox = e.Form.Controls("客户编号")
khbh.ComboList = DataTables("报价明细表").GetComboListString("客户编号", "报关单号 = '" & Tables("报关主表").Current("报关单号") & "'")

提示不存在名称为报关主表的TABLE!，错误：未将对象引用设置到对象的实例。

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 9:18:00 [显示全部帖子]

不好意思，关联表写错一个字，但是这样写列表里只有一个客户编号

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 9:23:00 [显示全部帖子]

但是表里有多个客户编号，目前列表里只有一个

seal51

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

加好友

发短信

等级：八尾狐帖子：1838 积分：13006 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2017/4/10 9:31:00 [显示全部帖子]

图片点击可在新窗口打开查看此主题相关图片如下：报价明细smmm.png

Dim khbh As WinForm.ComboBox = e.Form.Controls("客户编号")
khbh.ComboList = DataTables("报价明细表").GetComboListString("客户编号", "工作号 = '" & Tables("报价主表").Current("工作号") & "'")