- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]遍历副本表选定行，总是有一行被漏掉 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76431)
-- 发布时间：2015/10/29 8:08:00
-- [求助]遍历副本表选定行，总是有一行被漏掉
[求助]遍历副本表选定行，总是有一行被漏掉
副本表显示选择框，当选中多行批量操作的时候，总有一行被漏掉，代码不会执行。实际情况是如果选择2行，执行1行，如果选择3行，执行2行；
下边是代码和截图：
For Each c As Row In Tables("还书_借阅记录").rows
If c.checked = True Then
c("归还日期") = Date.today
c("还书操作员") = _UserName
DataTables("书库").ReplaceFor("状态", "空闲", "书库编号 = \'" & c("书库编号") & "\'")
DataTables("书库").ReplaceFor("借阅人", "", "书库编号 = \'" & c("书库编号") & "\'")
End If
Next
此主题相关图片如下：2015年10月29日1.png
此主题相关图片如下：2015年10月29日2.png
-- 发布时间：2015/10/29 8:12:00
--
http://www.foxtable.com/help/topics/1776.htm
-- 发布时间：2015/10/29 9:19:00
--
1、代码
For Each c As Row In Tables("还书_借阅记录").GetCheckedRows
c("归还日期") = Date.today
c("还书操作员") = _UserName
DataTables("书库").ReplaceFor("状态", "空闲", "书库编号 = \'" & c("书库编号") & "\'")
DataTables("书库").ReplaceFor("借阅人", "", "书库编号 = \'" & c("书库编号") & "\'")
Next
2、你上面的代码，根本就没有操作 书库 的归还日期啊