Foxtable(狐表)用户栏目专家坐堂 → [求助]求助单击行独立显示内容


  共有4516人关注过本帖树形打印复制链接

主题:[求助]求助单击行独立显示内容

帅哥哟,离线,有人找我吗?
青岛立邦达
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:732 威望:0 精华:0 注册:2014/6/11 15:06:00
[求助]求助单击行独立显示内容  发帖心情 Post By:2014/7/8 15:00:00 [只看该作者]

求助:
      窗口A为 登记栏  。窗口B 为显示栏
      想双击窗口B中的任意一行,自动蹦出独立窗口A,窗口A为当时对应行登记时的登记框。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/8 15:02:00 [只看该作者]

DoubleClick事件 执行froms("窗口A").show

设计窗口A 控件绑定列即可

 回到顶部
帅哥哟,离线,有人找我吗?
青岛立邦达
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:732 威望:0 精华:0 注册:2014/6/11 15:06:00
  发帖心情 Post By:2014/7/8 15:14:00 [只看该作者]

窗口A的控件全部都是不绑定列的,全都是新增那里自定义的。所以无法设置。
上例子了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


售后录入单据,检测维修那里双击行查看。

根据版主的提示的,FORMS命令报错。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/8 15:16:00 [只看该作者]

动态生成的控件也可以用代码设置绑定列


 回到顶部
帅哥哟,离线,有人找我吗?
青岛立邦达
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:732 威望:0 精华:0 注册:2014/6/11 15:06:00
  发帖心情 Post By:2014/7/8 15:39:00 [只看该作者]

窗口能蹦出来了,但是确实空内容,不清楚版主说的BindingField  在 窗口A哪个地方设置

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/8 15:52:00 [只看该作者]

以下是引用青岛立邦达在2014-7-8 15:39:00的发言:
窗口能蹦出来了,但是确实空内容,不清楚版主说的BindingField  在 窗口A哪个地方设置

 

看了一下,你为什么不绑定字段呢?窗口A在哪里,找不到啊。

 

参考 http://www.foxtable.com/help/topics/0704.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
青岛立邦达
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:732 威望:0 精华:0 注册:2014/6/11 15:06:00
  发帖心情 Post By:2014/7/8 15:59:00 [只看该作者]

检测维修单窗口是显示栏 等同于窗口B
表单录入窗口是登记栏,等同于窗口A

表单录入窗口中,我把每个控件都在新增里面自定义新增了,这样不需要绑定就可以一个窗口录入多表显示,但是这样就不能实现版主说的动态绑定了,本人不懂代码,所以看不太懂版主发的那个。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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("终端客户")


 回到顶部
帅哥哟,离线,有人找我吗?
青岛立邦达
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:99 积分:732 威望:0 精华:0 注册:2014/6/11 15:06:00
  发帖心情 Post By: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("发货人")

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/8 16:39:00 [只看该作者]

Dim r1 As Row = Tables("检测维修单").Current

 

改成

 

Dim r1 As Row = Tables("检测维修单").Current

If r1 is Nothing Then Return


 回到顶部
总数 27 1 2 3 下一页