赋值问题

cjls2000

With Me
  .ZDSL = 0
  .ZDFZL = 0
  .ZDFJE = 0
  .ZDAVG = 0

.TGSL = 0
  .TGFZL = 0
  .TGFJE = 0
  .TGAVG = 0

  .TXSL = 0
  .TXFZL = 0
  .TXFJE = 0
  .TXAVG = 0

  .DRSL = 0
  .DRFZL = 0
  .DRFJE = 0
  .DRAVG = 0

。。。。。。。。。。。

end with

其中 每组控件 的后面都是 (SL FZL FJE AVG)构成

如何简化 这些控件的赋值 [em09]

[此贴子已经被作者于2006-9-17 9:04:23编辑过]

andymark

try:

   Dim TxtCtl As Control

   For Each TxtCtl In Me.Controls            

        If (TypeOf TxtCtl Is TextBox) Then
            TxtCtl = 0
        End If

    Next

cjls2000

请解释 代码的意思   是不是把所有文本框都变零？ 但是 我有的文本框 不能赋值为零  产生的错误

“错误代码 3326  记录集不可更新”[em01]

andymark

把例子传上来

cjls2000

帮我 看看  弄了一个 差不多的[em04]

[此贴子已经被作者于2006-9-17 10:21:53编辑过]

andymark

要清空的文本都以TEXT开头

cjls2000

实际 并不是 TEXT 开头的     




[em01]

andymark

Dim TxtCtl As Control

    For Each TxtCtl In Me.Controls

        If (TypeOf TxtCtl Is TextBox) Then
            If Right(TxtCtl.Name, 2) = "SL" Or Right(TxtCtl.Name, 3) = "FZL" Or Right(TxtCtl.Name, 3) = "FJE" Or Right(TxtCtl.Name, 3) = "AVG" Then

                TxtCtl = 0

            End If

        End If

    Next