Office中国论坛/Access中国论坛

标题: 赋值问题 [打印本页]

作者: cjls2000 时间: 2006-9-17 17:02
标题: 赋值问题
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 时间: 2006-9-17 17:28
try:

Dim TxtCtl As Control

For Each TxtCtl In Me.Controls

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

Next

作者: cjls2000 时间: 2006-9-17 17:42
请解释代码的意思是不是把所有文本框都变零？但是我有的文本框不能赋值为零产生的错误

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

作者: andymark 时间: 2006-9-17 17:49
把例子传上来

作者: cjls2000 时间: 2006-9-17 18:22
帮我看看弄了一个差不多的[em04][attach]20367[/attach]

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

作者: andymark 时间: 2006-9-17 18:56
要清空的文本都以TEXT开头

[attach]20368[/attach]

作者: cjls2000 时间: 2006-9-17 19:39
实际并不是 TEXT 开头的

[attach]20370[/attach]

[em01]

作者: andymark 时间: 2006-9-17 19:54
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)