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编辑过]
加好友 
发短信
Post By：2024/11/6 13:45:00 [只看该作者]
此主题相关图片如下：屏幕截图 2024-11-06 133625.png
