1、代码
For Each c As Row In Tables("还书_借阅记录").GetCheckedRows c("归还日期") = Date.today c("还书操作员") = _UserName DataTables("书库").ReplaceFor("状态", "空闲", "书库编号 = '" & c("书库编号") & "'") DataTables("书库").ReplaceFor("借阅人", "", "书库编号 = '" & c("书库编号") & "'")
Next
2、你上面的代码,根本就没有操作 书库 的归还日期啊