- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动录入窗口，内容录入不进去 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177199)
-- 发布时间：2022/5/12 16:33:00
-- [求助]自动录入窗口，内容录入不进去
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新城 预计总成本分析 v2.table |
问题描述：
我点击 人材机明细 表中的类别 …，后弹出 选择框；双击后，内容列，自动到人材机明细表中
人材机明细表 是关联表
有时可以成功，但往往不成功，不知道哪里出了问题
其中 表的 doubleclick 代码如下：
Dim tbl As Table = Tables("材料查询_Table1")
If tbl.Current IsNot Nothing Then
Tables("预计总成本.人材机明细").Current("不含税单价") = tbl.Current("不含税单价")
Tables("预计总成本.人材机明细").Current("单位") = tbl.Current("单位")
Tables("预计总成本.人材机明细").Current("名称") = tbl.Current("名称")
Tables("预计总成本.人材机明细").Current("规格型号") = tbl.Current("规格型号")
Tables("预计总成本.人材机明细").Current("类别") = tbl.Current("类别")
End If
Forms("材料查询").Close()
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2022/5/12 16:39:00
--
e.cancel=true
Dim tbl As Table = Tables("材料查询_Table1")
If tbl.Current IsNot Nothing Then
dim r as row = Tables("预计总成本.人材机明细").Current
r("不含税单价") = tbl.Current("不含税单价")
r("单位") = tbl.Current("单位")
r("名称") = tbl.Current("名称")
r("规格型号") = tbl.Current("规格型号")
r("类别") = tbl.Current("类别")
End If
Forms("材料查询").Close()
-- 发布时间：2022/5/12 16:48:00
--
人材机明细，datacolchanged事件有问题，这种代码就不应该用到表事件里。也没看懂这代码需要干什么
-- 发布时间：2022/5/12 17:01:00
-- 回复：（有点蓝）人材机明细，datacolchanged事件有问...
人材机明细表中的 datacolchanged 的目的是
当人材机表中有数据变动的时候，我将 人材机明细表中，按照 (类别 名称 规格型号 单位 不含税单价) 提取出 唯一值，然后进行汇总，填写到材料汇总表中
此主题相关图片如下：1.png
-- 发布时间：2022/5/12 17:05:00
--
那也没有必要清空表数据，再重新添加一遍。通过当前行相关列到材料汇总表查询一下没有对应的数据再新增即可。
另外这个事件代码不符合datacolchanged的使用规范：http://www.foxtable.com/webhelp/topics/1522.htm
-- 发布时间：2022/5/12 17:12:00
-- 回复：（有点蓝）那也没有必要清空表数据，再重新添加...
非常感谢！！