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:55:00 [显示全部帖子]
