- 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=118387)
-- 发布时间：2018/5/1 15:12:00
-- 如何把内容按照类别合并到同一单元格
此主题相关图片如下：img_7110.gif
-- 发布时间：2018/5/1 18:34:00
--
思路如下
http://www.foxtable.com/webhelp/scr/0681.htm
http://www.foxtable.com/webhelp/scr/1435.htm
-- 发布时间：2018/5/2 12:00:00
--
我折腾了半天，组合编写代码总是出错，狐爸能不能帮忙按照前面的事例需求写上事件代码。谢谢
-- 发布时间：2018/5/2 12:10:00
--
以下是引用wangjx817在2018/5/2 12:00:00的发言：
我折腾了半天，组合编写代码总是出错，狐爸能不能帮忙按照前面的事例需求写上事件代码。谢谢
我折腾了半天，组合编写代码总是出错，狐爸能不能帮忙按照前面的事例需求写上事件代码。谢谢
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("表A")
If e.DataCol.Name = "第一列" Then
dr("第二列") = dt.GetComboListString("第二列", "第一列 = \'" & dr("第一列") & "\'")
End If
不会做，请上传具体foxtable项目
-- 发布时间：2018/5/2 15:05:00
--
此主题相关图片如下：qq图片20180502150416.png
-- 发布时间：2018/5/2 15:06:00
--
im fdr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("表A")
If e.DataCol.Name = "第一列" Then
fdr("第二列") = dt.GetComboListString("第二列", "第一列 = \'" & fdr("第一列") & "\'")
End If
-- 发布时间：2018/5/2 15:39:00
--
谢谢耐心回复，少了个句首D。
-- 发布时间：2018/5/2 15:43:00
--
编码没问题了，但是编辑的表格的数据列没有结果。纳闷了。
-- 发布时间：2018/5/2 15:49:00
--
以下是引用wangjx817在2018/5/2 15:43:00的发言：
编码没问题了，但是编辑的表格的数据列没有结果。纳闷了。
编码没问题了，但是编辑的表格的数据列没有结果。纳闷了。
重置列
-- 发布时间：2018/5/3 9:36:00
--
终于成功了，狐表太强大了，非常感谢狐爸。