清空窗体中各栏位资料

公共子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