[已解决]【已上传实例】条码如何读取窗体中的副本的数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [已解决]【已上传实例】条码如何读取窗体中的副本的数据？

共有12397人关注过本帖树形打印复制链接主题：[已解决]【已上传实例】条码如何读取窗体中的副本的数据？

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

[已解决]【已上传实例】条码如何读取窗体中的副本的数据？ 发帖心情

Post By：2011/10/23 9:07:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图未命名.png

请问：

点击菜单按钮“工单修改”

窗口“工单查询”中的表是“工单表”的副本，窗口“订单修改”如何读取“工单查询_Table1”的数据？

[此贴子已经被作者于2011-10-24 11:14:08编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/23 9:16:00 [只看该作者]

http://www.foxtable.com/help/topics/2311.htm

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2011/10/23 11:33:00 [只看该作者]

想要的目的，点击菜单按钮“修改订单”能读取窗体中的数据

狐爸帮忙看下，帮助我读了，还是不得要领啊

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/23 11:39:00 [只看该作者]

正确的代码是：

If Forms("窗口1").Opened
    For Each c As Winform.Control In e.Form.Controls
        If c.Bindingfield > "" AndAlso c.Bindingfield.StartsWith("表B.") Then
            c.BindingField= c.BindingField.Replace("表B.", "窗口1_Table1.")
        End If
    Next
End If

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2011/10/23 11:52:00 [只看该作者]

狐爸，这个真不行。我确定我测试的时候窗口是打开的。问题不在这里吧

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/10/23 11:57:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2011/10/23 13:09:00 [只看该作者]

谢谢狐爸，搞定了，原来是条码控件的原因

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

Post By：2011/10/23 13:26:00 [只看该作者]

If Forms("工单查询").Opened Then
    For Each c As Winform.Control In e.Form.Controls
        If c.name <> "BarCode1" Then    '不加这一句打开窗口会报错，说是集合已经改变，无法枚举
            If c.Bindingfield > "" AndAlso c.Bindingfield.StartsWith("工单表.") Then
                c.BindingField = c.BindingField.Replace("工单表.", "工单查询_Table1.")
            End If
        End If
    Next
End If

e.Form.Controls("BarCode1").Code = e.Form.Controls("TextBox2").value

但是加了，窗口中的条码如何获取值呢？ TextBox2 绑定了表中的“工单ID”字段，条码也是绑定的这个字段