改成
Dim r As Row = Tables("采购总表").Current
Dim str As String = e.sender.text
If str <> Nothing Then
r("结账").Checked = True
End If
加好友 
发短信
Post By：2019/1/27 11:55:00 [显示全部帖子]
