Foxtable(狐表)用户栏目专家坐堂 → 自定义录入界面在窗口绑定表中实现双击无法录入


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

主题:自定义录入界面在窗口绑定表中实现双击无法录入

帅哥哟,离线,有人找我吗?
tj-pacer
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:347 积分:2844 威望:0 精华:0 注册:2013/4/26 20:58:00
  发帖心情 Post By:2013/11/29 23:28:00 [只看该作者]

以下是引用有点甜在2013-11-28 22:05:00的发言:
 内容肯定是输入了。只是输入在表的当前行,而不是窗口表的当前行。

 你点击表按钮的时候,需要记录当前的这张表是表界面里的,还是窗口界面里的(用一个全局变量存起来)

 然后,编写弹出窗口doubleclick事件,取得全局变量的表名,把值设置入对应的表。

花了两个小时了,还是能不明白。刚刚发现一个问题,我要输入的表是"BOMTable", 用双击自定义界面的某行的方法可在“BOMTable"中输入,在关联表“PCCTable.BOMTable"中用同样的方法就无法输入,上面窗体中绑定的就是“PCCTable.BOMTable",因此也无法输入。,自定义代码如下:

 

Dim tbl As Table = Tables("添加物料_MaterialTable")
If tbl.Current IsNot Nothing Then
    Tables("BOMTable").Current("子件编码") = tbl.Current("MaterialCode")
    Tables("BOMTable").Current("子件名称") = tbl.Current("Material")
    Tables("BOMTable").Current("原材料宽mm") = tbl.Current("原料宽mm")
    Tables("BOMTable").Current("原材料长M") = tbl.Current("原料长m")
    Tables("BOMTable").Current("子件规格") = tbl.Current("材料规格")

End If
Forms("添加物料").Close()

想要在"PCCTable.BOMTable"也能输入,请帮忙修改?谢谢!


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


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

 该车这样

Dim tbl As Table = Tables("添加物料_MaterialTable")
If tbl.Current IsNot Nothing Then
    e.form.controls("Table1").Table.Current("子件编码") = tbl.Current("MaterialCode")
    
e.form.controls("Table1").Table.Current("子件名称") = tbl.Current("Material")
    
e.form.controls("Table1").Table.Current("原材料宽mm") = tbl.Current("原料宽mm")
    
e.form.controls("Table1").Table.Current("原材料长M") = tbl.Current("原料长m")
    
e.form.controls("Table1").Table.Current("子件规格") = tbl.Current("材料规格")

End If
Forms("添加物料").Close()


 回到顶部
总数 12 上一页 1 2