请教：清空窗体中各栏位资料的代码

竹笛

这是harsonliao的原作，但编译时通不过，请大家看看，还需要增加什么？
目的是清空窗体上文本框与组合框中的内容。

Public Sub ClearD(frm As Form)
    Dim ctl As Control
    For Each ctlControl In frm.Controls
        If TypeOf ctl Is acTextBox Or TypeOf ctl Is acComboBox Then
            ctl = ""
            DoEvents
        End If
    Next
End Sub

tmtony

好方法，我一般习惯也是设置为Null而非""多些，以避免与有些字段不允许为空白有冲突。同时也考虑默认值设置（即清除时不影响控件的默认值，当然也可选择清除默认值）
另习惯上把frm.Controls.Count 赋给变量lngCnt, 控件多时也许能增加一点速度。

李啸林

Public Sub ControlClear(frm As Form, strTag As String)
'设置指定窗口中,Tag属性为=strTag控键的值为NULL

Dim i As Integer

On Error Resume Next

For i = 0 To frm.Controls.Count - 1
  If frm.Controls(i).Tag = strTag Then
    frm.Controls(i) = Null
  End If
Next i

End Sub

竹笛

谢谢~~~
看到了这个技巧，我想试一下。

eio

或者这样吧：
调用：  Call ClearD(Me)

－－公共函数－－
Option Compare Database

Public Function ClearD(frm As Form)
      Dim ctrl As Control
    For Each ctrl In frm.Controls
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
                 ctrl = ""
              DoEvents
        End If
    Next
End Function

huanghai

试试：

If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then

eio

－－－竹笛喜欢老猫烧须－－－－－－－－
执行：
Private Sub 命令4_Click()
  Call ClearD
    End Sub
－－－－－－
函数：
Public Sub ClearD()
  Dim ctrl As Control
    For Each ctrl In Me.Form.Controls
        If TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox Then
                 ctrl = ""
              DoEvents
        End If
    Next
End Sub
－－－－－或许可以－－－－－－－