蓝版，我这两段代码，要怎么样调整，在点击【新增】按钮的时候，不会增加两行？如果把第一段给注释掉，在我新增记录表的时候，会报错，提示：Object reference not set to an instance of an object.With Tables("日志内容")
If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
Tables("日志内容").AddNew()
End If
End With
Dim pr As Row = Tables("日志内容").current
Dim r As Row = Tables("日志内容").addnew
r("值班领导") = pr("值班领导")
r("值班主任") = pr("值班主任")
r("早班") = pr("早班")
r("中班") = pr("中班")
r("晚班") = pr("晚班")
加好友 
发短信
Post By：2022/12/2 11:40:00 [只看该作者]
