窗口SQLTable点击复选框时直接无任何提示狐表关闭。昨天还好好的。
BeforeCheckRow代码
If e.row("期效") = "临嘱" Then
e.Cancel = True
End If
If e.row("期效") = "长嘱" and e.Row("终止时间") <> nothing Then
e.Cancel = True
End If
AfterCheckRow代码
For Each r As Row In Tables("医嘱编辑_Table1").Rows
If r("组号") = e.row("组号") and r("期效") = e.row("期效")Then
r.Checked = e.row.Checked
End If
Next
如果没有任何代码的表则第一个复选框无法勾选,用代码全选则没问题。。表事件有代码则直接关闭狐表。
此主题相关图片如下:qq截图未命名.png
[此贴子已经被作者于2009-12-27 21:33:35编辑过]