Dim d As Date = Date.today我替换成
Dim d As Date = e.Form.Controls("DateTimePicker1").value
因为要从界面的时间控件框取值
代码如下:
DataTables("打印表_临时").DeleteFor("")
Dim t1 As Table = Tables("早餐记录表")
Dim t2 As Table = Tables("午餐记录表")
Dim t3 As Table = Tables("晚餐记录表")
Dim t4 As Table = Tables("打印表_临时")
Dim d As Date = e.Form.Controls("DateTimePicker1").value
For Each dr As DataRow In t1.DataTable.Select("配餐日期 = #" & d & "#")
Dim nr As DataRow = t4.DataTable.AddNew
nr("配餐日期") = dr("配餐日期")
nr("早餐菜谱") = dr("食物名称")
nr("早餐重量") = dr("重量")
Next
For Each dr As DataRow In t2.DataTable.Select("配餐日期 = #" & d & "#")
Dim nr As DataRow = t4.DataTable.Find("配餐日期 = #" & d & "# and 午餐菜谱 is not null")
If nr Is Nothing Then nr = t4.DataTable.AddNew
nr("配餐日期") = dr("配餐日期")
nr("午餐菜谱") = dr("食物名称")
nr("午餐重量") = dr("重量")
Next
For Each dr As DataRow In t3.DataTable.Select("配餐日期 = #" & d & "#")
Dim nr As DataRow = t4.DataTable.Find("配餐日期 = #" & d & "# and 晚餐菜谱 is not null")
If nr Is Nothing Then nr = t4.DataTable.AddNew
nr("配餐日期") = dr("配餐日期")
nr("晚餐菜谱") = dr("食物名称")
nr("晚餐重量") = dr("重量")
Next
[此贴子已经被作者于2017/4/17 21:57:48编辑过]