- 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=114643)
-- 发布时间：2018/2/12 9:50:00
-- 不同表 同步显示列内容
请看图片 我哪里说的不清楚 可以在补充 请帮帮忙
此主题相关图片如下：tim截图20180212093739.png
-- 发布时间：2018/2/12 9:53:00
--
看看 http://www.foxtable.com/webhelp/scr/1472.htm
你把compute函数，改成GetComboListString函数，即可。
-- 发布时间：2018/2/12 10:24:00
-- 继续求帮助
我在目录表添加代码
If e.DataCol.Name = "姓名" Then
e.DataRow("持证情况") = DataTables("特殊工种").GetComboListString("工种")
End If
但是持证情况里面显示的是全部的特殊工种表 工种列的所有内容 并没有区分 每个人不同的工种
此主题相关图片如下：tim截图20180212102219.png
-- 发布时间：2018/2/12 10:41:00
--
改成
If e.DataCol.Name = "姓名" Then
e.DataRow("持证情况") = DataTables("特殊工种").GetComboListString("工种", "姓名 = \'" & e.DataRow("姓名") & "\'")
End If
-- 发布时间：2018/2/12 10:55:00
--
这个问题已解决
现在还有2个问题
第一 添加完新的工种，都要在目录表姓名列 重置列才可以更新 没有达到自动更新
第二 我从Excel模板打印的时候，怎么样才能让工种自动换行
此主题相关图片如下：tim截图20180212105114.png
-- 发布时间：2018/2/12 10:59:00
--
1、子表datacolchanged事件，写入重置列的代码，帮助文档那里有说明；
2、你本来的代码改一下
e.DataRow("持证情况") = DataTables("特殊工种").GetComboListString("工种", "姓名 = \'" & e.DataRow("姓名") & "\'")
改成
e.DataRow("持证情况") = DataTables("特殊工种").GetComboListString("工种", "姓名 = \'" & e.DataRow("姓名") & "\'").replace("|", vbcrlf)
-- 发布时间：2018/2/12 11:26:00
--
问题全部解决 十分感谢 从来没接触过代码 需要学习的还很多
我是按照帮助里在 项目事件里添加的
If MainTable.Name = "目录" Then
DataTables("目录").DataCols("持证情况").RaiseDataColChanged()
End If
唯一不足就是 要切换一下表 才能显示
-- 发布时间：2018/2/12 11:27:00
--
你在【特殊工种】表datacolchanged事件那里，写上 RaiseDataColChanged 的代码即可。
[此贴子已经被作者于2018/2/12 11:27:22编辑过]