Dim t as String = e.datarow("时间")
If e.DataRow("成员序号") IsNot Nothing And e.DataRow.IsNull("日期") = False And e.DataRow.IsNull("时间") = False Then
If e.DataRow("项目") Like "*餐" Then
Dim dr As DataRow
dr = DataTables("tblYS").Find("成员序号 = '" & e.DataRow("成员序号") & "' and 日期 =#" & e.DataRow("日期") & "# and 时间 = #" & t.Substring(0,5) & "#")
If dr IsNot Nothing Then
dr("项目") = e.DataRow("项目")
dr("备注") = e.DataRow("备注")
Else
dr = DataTables("tblYS").AddNew
dr("成员序号") = e.DataRow("成员序号")
dr("日期") = e.DataRow("日期")
dr("时间") = e.DataRow("时间")
dr("项目") = e.DataRow("项目")
dr("备注") = e.DataRow("备注")
End If
End If
老师，我发现上述代码可解决时间列的问题。
不好意思，发错了，还是解决不了问题。
[此贴子已经被作者于2020/10/11 11:44:50编辑过]
加好友 
发短信
Post By：2020/10/9 16:45:00 [显示全部帖子]
