各位大师晚上辛苦!!我在窗口中作了一个“提交”图章,目的是当表中“提交”列被选中后,“提交”图章显现,否则隐藏。代码是写在:afterload中的。
我用了两种代码,均未成功,没找到原因,请老师指导,谢谢!!
代码一:
'--------------判断提交图标是否显示
Dim r As Row = Tables("员工资料").Current
If r("提交") = True Then
e.Form.controls("PictureBox3").Visible = True
Else
e.Form.controls("PictureBox3").Visible = False
End If
代码二:
'--------------判断提交图标是否显示
If Tables("员工资料").Current.IsNull("提交") = False Then
e.Form.controls("PictureBox3").Visible = True
Else
e.Form.controls("PictureBox3").Visible = False
End If
[此贴子已经被作者于2018/12/23 22:48:47编辑过]