关于分页合计的问题(已解决如果表内值为空,生产错误问题，请看15楼)

ly_19811105

Dim mysum1 As Double
Dim mysum2 As Double
Dim xx
Private Sub Report_Open(Cancel As Integer)
End Sub
Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
Text21.Value = "本页共计:   " & mysum2 & "cone"
Text23.Value = "本页共计:  " & mysum1 & "个ITEM"
mysum2 = 0
mysum1 = 0
End Sub
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(执货数量) Then
mysum1 = mysum1 + 1
mysum2 = mysum2 + 执货数量.Value
Else
mysum2 = 0
mysum1 = 0
End If
End Sub

如题,如何判断当前表的字段为空???这样写如果表内为数据就能正常工作,但表内数据为空,产生错误,提示mysum2 = mysum2 + 执货数量.Value表达式无数值,错误退出.请高手帮忙修改一下,多谢!!!!!

多谢版主的帮忙。

[ 本帖最后由 ly_19811105 于 2007-8-11 20:47 编辑 ]

ly_19811105

不要沉啊,还没有人解决呢???

一点通

更改为iserror()函数试下

ly_19811105

Dim mysum1 As Double
Dim mysum2 As Double
Dim xx
Private Sub Report_Open(Cancel As Integer)
End Sub
Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)
Text21.Value = "本页共计:   " & mysum2 & "cone"
Text23.Value = "本页共计:  " & mysum1 & "个ITEM"
mysum2 = 0
mysum1 = 0
End Sub
Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
End Sub
Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(执货数量) Then
mysum1 = mysum1 + 1
if iserror(mysum2 = mysum2 + 执货数量.Value)=ture then
mysum2=0
end if
Else
mysum2 = 0
mysum1 = 0
End If
End Sub

还是提示表达式无数值,有没有其它方法啊.

ly_19811105

不要沉啊,还没有人解决呢???

ly_19811105

不要沉啊,还没有人解决呢???
直到解决为止

ly_19811105

顶到最上面去,高手帮手解决啊

hi-wzj

If IsNull(执货数量) Then
    mysum1 = mysum1 + 1
    mysum2 = mysum2 + 执货数量.Value
Else
    mysum2 = 0
    mysum1 = 0
End If
既然您已经判断“执货数量”为null了，为什么还拿它（执货数量.Value）来计算呢？矛盾

t小宝

试试:

If IsNull(执货数量) Then
mysum1 = mysum1 + 1
mysum2 = mysum2 + Nz(执货数量.Value,0)
Else
mysum2 = 0
mysum1 = 0
End If

ly_19811105

以上方法都不行啊，还是提示是表达式没有数值，哪位高手再帮手搞搞啊。主要是如何判断当前报表所使用的表是空表就行了，论坛上的所有页合计我都试了一遍，只要是表为空，一律出现表达式没有数值。