现在将关联表加到窗口中，要进行反审核，将总表和明细表的审核列（逻辑列）的勾去掉，
但在明细表里去勾的时候不能一次性去完成（明细表有多条数据），只有一部分的勾去掉了，要多次执行才会最终将逻辑勾去掉。
代码如下：
Dim st As DialogResult
st = MessageBox.Show("确定要反审核吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If st = DialogResult.Yes Then
For Each dr As Row In Tables("订单总表.订单明细表").Rows
dr("收货") = 0
dr.save()
Next
forms("保存").open
Tables("二级总表").Current("审核") = 0
DataTables("二级总表").Save()
forms("保存").close
End If
审核时却能一次性将逻辑勾打上，代码如下：
Dim st As DialogResult
st = MessageBox.Show("确定要审核吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If st = DialogResult.Yes Then
For Each dr As Row In Tables("二级总表.二级订单明细表").Rows
dr("收货") = 1
dr.Save()
Next
forms("保存").open
Tables("二级总表").Current("审核") = 1
DataTables("二级总表").Save()
forms("保存").close
End If
请大神看一下是什么原因啊，感谢！
加好友 
发短信
Post By：2015/9/8 15:08:00 [显示全部帖子]
