老师，请教问题：
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 时间 = #" & e.DataRow("时间") & "#")
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
上述代码，我是想“项目”或“备注”字段修改时，当dr存在时，表tblYS中dr行的“项目”和“备注”字段相应被修改，但表tblYS会新增行，这是什么原因？
[此贴子已经被作者于2020/10/9 16:46:29编辑过]
加好友 
发短信
Post By：2020/10/9 16:45:00 [只看该作者]
