标题:[求助]怎么执行时出现:无效使用NULL
只看楼主
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
按理:j(" & h & ")")应该是个完整的符合正确语法的数组了吧?
2007-07-31 13:33
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 

照这样改,代码如下:

Private Sub Command2_Click()

Dim a
Dim i, h As Integer

If Not Rst.EOF() Then
For i = 1 To Rst.RecordCount
For h = 1 To 9
If IsNull(Rst("z(" & h & ")").Value) Then
If Rst.Fields("z(" & h & ")").Value = "银行存款" Then
a = a + Val(Rst.Fields("j(" & h & ")").Value)

End If
End If
Next h
Rst.MoveNext
Next i

Text4.Text = Val(a)

End If

End Sub

执行时没有出现NULL了,但结果为:0

新问题好象来了!

2007-07-31 13:39
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
得分:0 
我把J(1~9)每个字段的默认值属性由“0”改回来为:“”了

还是不行!
2007-07-31 13:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-158949-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029743 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved