[求助]一个窗口多个模拟关联表副本的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]一个窗口多个模拟关联表副本的问题？

共有2976人关注过本帖树形打印复制链接主题：[求助]一个窗口多个模拟关联表副本的问题？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]一个窗口多个模拟关联表副本的问题？ 发帖心情

Post By：2019/3/17 2:27:00 [只看该作者]

项目中，打开主窗口，希望解决2个问题：

1、中间的“入库明细表”中有个“入库筐架”列，点击三角，

出现下拉窗口，输入的数字，没有出现在当前行，却出现在了末行，应该怎么改？

2、已经建立了5个模拟关联表，

分别是：“入库订单表_入库明细表、入库订单表_出库明细表、客户表_入库订单表、客户表_入库明细表、客户表_出库明细表”，

目标要求：“入库明细表”与“出库明细表”都对应“入库订单表”的“入库编号”列同步行数据，

且左上方的“订单表客户”控件文本框的内容改变后，3个表的客户，与右上方的“客户表客户”控件文本框，也能同时同步，应该怎么改？

[此贴子已经被作者于2019/4/30 9:56:11编辑过]

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/17 8:53:00 [只看该作者]

求帮助

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/17 10:32:00 [只看该作者]

没人看吗？求帮助！谢谢

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/17 12:57:00 [只看该作者]

还是没人看到吗？继续求助！

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/17 16:03:00 [只看该作者]

自己顶，求帮助？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/17 19:54:00 [只看该作者]

什么情况？没人回复？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2019/3/18 7:17:00 [只看该作者]

等了一整天都没人回复

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/18 9:07:00 [只看该作者]

要说多少次，副本表的表名你写错了啊

请先好好看看这里 http://www.foxtable.com/webhelp/scr/1906.htm

比如，你要改成下面的代码啊

Dim ss As String = "圆钢|不锈钢|袋子|铁箱|塑箱|冰盘|铁托|木托|铁架|大网笼|小网笼|圆桶|大网筐|小网筐|方桶"
Dim str As String = ""
For i As Integer = 0 To ss.Split("|").Length - 1
    If Val(e.Form.controls("textbox" & i+1).text) > 0 Then
        str &= e.Form.controls("textbox" & i+1).text & ss.Split("|")(i)
        Tables("主窗口_入库明细表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text
    Else
        Tables("主窗口_入库明细表").Current(ss.Split("|")(i)) = Nothing
    End If
Next
e.Form.DropDownBox.value = str.trim("")