清空窗体中各栏位资料
公共子ClearD(frm As Form)
Dim ctl作为控制
对于frm中的每个ctlControl。控制
如果ctl的类型是acTextBox或ctl的类型是acComboBox,则
ctl = " "
多项活动
如果…就会结束
然后
末端接头
这个程序稍加修改就可以实现更多的功能,比如锁定或解锁字段。
公共子锁控件(形式为frm,布尔值为blnSta)
Dim ctl作为控制
对于frm中的每个ctl。控制
如果ctl的类型是acTextBox或ctl的类型是acComboBox,则
ctl。Enabled = blnSta
多项活动
如果…就会结束
然后
End Sub
0条评论