SystemReady = False
Dim id1 As Integer = Tables("表A").Rows.Count
Syscmd.Row.AddNews()
Dim id2 As Integer = Tables("表A").Rows.Count
Dim id3 As Integer = id2 - id1
DataTables("表A").Save
Dim ldr As Row = Tables("表A").Rows(Tables("表A").Rows.Count-1)
msgbox(id3)
Dim dr As DataRow = DataTables("数据操作日志").AddNew
dr("ID") = id2
dr("用户") = User.Name
dr("涉及表") = "表A"
dr("涉及列") = Nothing
dr("涉及行") = "从" & ldr("_Identify")-id3 & "行到" & ldr("_Identify") & "行"
dr("时间") = Date.Now
dr("操作") = "新增" & id3 & "行数据"
SystemReady = True