 加好友  发短信
等级：狐仙
帖子：9875
积分：57596
威望：0
精华：15
注册：2008/9/1 9:45:00
|
 Post By：2011/11/8 14:08:00 [显示全部帖子]
For Each r As Row In Tables("支出明细").Rows
If r.Checked = True Then
Dim Result As DialogResult
Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.yes Then
Tables("支出明细").Current.Locked = False
else
r.Checked = False
End If
End If
End If
Next
用否则试试?
|
|
