- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]求助单击行独立显示内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53460)
-- 发布时间：2014/7/8 15:00:00
-- [求助]求助单击行独立显示内容
求助：
窗口A为 登记栏 。窗口B 为显示栏
想双击窗口B中的任意一行，自动蹦出独立窗口A，窗口A为当时对应行登记时的登记框。
-- 发布时间：2014/7/8 15:02:00
--
DoubleClick事件 执行froms("窗口A").show
设计窗口A 控件绑定列即可
-- 发布时间：2014/7/8 15:14:00
--
窗口A的控件全部都是不绑定列的，全都是新增那里自定义的。所以无法设置。
上例子了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
售后录入单据，检测维修那里双击行查看。
根据版主的提示的，FORMS命令报错。
-- 发布时间：2014/7/8 15:16:00
--
动态生成的控件也可以用代码设置绑定列
-- 发布时间：2014/7/8 15:39:00
--
窗口能蹦出来了，但是确实空内容，不清楚版主说的BindingField 在 窗口A哪个地方设置
-- 发布时间：2014/7/8 15:52:00
--
以下是引用青岛立邦达在2014-7-8 15:39:00的发言：
窗口能蹦出来了，但是确实空内容，不清楚版主说的BindingField 在 窗口A哪个地方设置
窗口能蹦出来了，但是确实空内容，不清楚版主说的BindingField 在 窗口A哪个地方设置
看了一下，你为什么不绑定字段呢？窗口A在哪里，找不到啊。
参考 http://www.foxtable.com/help/topics/0704.htm
-- 发布时间：2014/7/8 15:59:00
--
检测维修单窗口是显示栏 等同于窗口B
表单录入窗口是登记栏，等同于窗口A
表单录入窗口中，我把每个控件都在新增里面自定义新增了，这样不需要绑定就可以一个窗口录入多表显示，但是这样就不能实现版主说的动态绑定了，本人不懂代码，所以看不太懂版主发的那个。
-- 发布时间：2014/7/8 16:07:00
--
窗口，代码，自己完善一下
Dim r1 As Row = Tables("检测维修单").Current
Dim r2 As DataRow = DataTables("技术支持部总表").Find("业务编号 = \'" & r1("业务编号") & "\'")
e.form.controls("终端客户").text = r1("客户")
e.form.controls("终端客户").text = r2("终端客户")
-- 发布时间：2014/7/8 16:36:00
--
根据版主内容完善以后，报错。.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.5.12.1
错误所在事件：窗口,表单录入,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。
Dim r1 As Row = Tables("检测维修单").Current
Dim r2 As DataRow = DataTables("技术支持部总表").Find("业务编号 = \'" & r1("业务编号") & "\'")
e.form.controls("终端客户").text = r1("客户")
e.form.controls("终端客户").text = r2("终端客户")
e.form.controls("联系方式").text = r1("联系方式")
e.form.controls("联系方式").text = r2("联系方式")
e.form.controls("机器型号").text = r1("型号")
e.form.controls("机器型号").text = r2("机器型号")
e.form.controls("故障现象描述").text = r1("故障")
e.form.controls("故障现象描述").text = r2("故障现象描述")
e.form.controls("检测时间").text = r1("接修日期")
e.form.controls("检测时间").text = r2("检测时间")
e.form.controls("保修状态").text = r1("保修状态")
e.form.controls("保修状态").text = r2("保修状态")
e.form.controls("维修时间").text = r1("维修完成时间")
e.form.controls("维修时间").text = r2("维修完成时间")
e.form.controls("维修员").text = r1("维修员")
e.form.controls("维修员").text = r2("维修员")
e.form.controls("发货时间").text = r1("发货时间")
e.form.controls("发货时间").text = r2("发货时间")
e.form.controls("维修类型").text = r1("修品类别")
e.form.controls("维修类型").text = r2("维修类型")
e.form.controls("机器条码").text = r1("序列号")
e.form.controls("机器条码").text = r2("机器条码")
e.form.controls("分值").text = r1("分值")
e.form.controls("分值").text = r2("分值")
e.form.controls("经销商").text = r2("经销商")
e.form.controls("返厂时间").text = r2("返厂日期")
e.form.controls("维修周期").text = r2("维修周期")
e.form.controls("使用行业").text = r2("使用行业")
e.form.controls("运行状态").text = r2("运行状态")
e.form.controls("外围损坏").text = r2("外围损坏")
e.form.controls("工作环境").text = r2("工作环境")
e.form.controls("备注一").text = r2("备注一")
e.form.controls("收费情况").text = r2("收费情况")
e.form.controls("初步故障判定").text = r2("初步故障判定")
e.form.controls("机器运行时间").text = r2("机器运行时间")
e.form.controls("更换部件清单").text = r2("更换部件清单")
e.form.controls("故障记录一").text = r2("内部参数_故障记录一")
e.form.controls("故障记录二").text = r2("内部参数_故障记录二")
e.form.controls("故障记录三").text = r2("内部参数_故障记录三")
e.form.controls("故障电流").text = r2("内部参数_故障电流")
e.form.controls("其他参数").text = r2("内部参数_其他参数")
e.form.controls("维修状况").text = r2("维修状况")
e.form.controls("维修原因").text = r2("维修状况原因")
e.form.controls("备注二").text = r2("备注二")
e.form.controls("检查结果及损坏原因分析").text = r2("检查结果及损坏原因分析")
e.form.controls("设计问题").text = r2("问题追溯_设计问题")
e.form.controls("材料问题").text = r2("问题追溯_材料问题")
e.form.controls("制程问题").text = r2("问题追溯_制程问题")
e.form.controls("应用问题").text = r2("问题追溯_应用问题")
e.form.controls("其他故障原因").text = r2("问题追溯_其他故障原因")
e.form.controls("检测人").text = r2("检测人")
e.form.controls("发货人").text = r2("发货人")
-- 发布时间：2014/7/8 16:39:00
--
Dim r1 As Row = Tables("检测维修单").Current
改成
Dim r1 As Row = Tables("检测维修单").Current
If r1 is Nothing Then Return