- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194052)
-- 发布时间：2024/11/6 13:45:00
-- 求助
此主题相关图片如下：屏幕截图 2024-11-06 133625.png
表，应用措施
此主题相关图片如下：屏幕截图 2024-11-06 133825.png
表，措施仓
表{应用措施}的【措施】从表{措施仓}通过SQLGetComboListString提取，多字段选择，
是否形成一张表，表中{应用措施}的列名+{措施仓}的列名
-- 发布时间：2024/11/6 13:55:00
--
没看懂，想表达什么问题？
-- 发布时间：2024/11/6 15:26:00
--
换个例子，一张水果清单表
种类 颜色
苹果 红色
苹果 绿色
火龙果 红色
火龙果 黄色
西瓜 绿皮
西瓜 黑皮
今日食用水果计划表
日期 食用水果种类
20241106 苹果，火龙果
有什么办法出现一张表 今日食用水果方案
日期 食用水果种类 颜色
20241106 苹果 红色
20241106 苹果 绿色
20241106 火龙果 红色
20241106 火龙果 黄色
-- 发布时间：2024/11/6 15:35:00
--
参考这种：http://www.foxtable.com/webhelp/topics/2400.htm
-- 发布时间：2024/11/6 15:42:00
--
Dim dt As DataTable
Dim dtb As New DataTableBuilder("今日食用水果方案")
dtb.AddDef("日期", GetType(Date))
dtb.AddDef("种类", GetType(String), 16)
dtb.AddDef("颜色", GetType(String), 16)
dt = dtb.Build()
Dim dr2 As DataRow
For Each dr1 As DataRow In DataTables("今日食用水果计划").DataRows
If dr1.IsNull("食用水果种类") = False Then
For Each dr As DataRow In DataTables("水果清单").Select("种类 in (\'" & dr1("食用水果种类").replace(",", "\',\'") & "\')")
dr2 = dt.AddNew()
dr2("日期") = dr1("日期")
dr2("种类") = dr("种类")
dr2("颜色") = dr("颜色")
Next
End If
Next
MainTable = Tables("今日食用水果方案")
[此贴子已经被作者于2024/11/6 15:42:30编辑过]