关于分页合计的问题(已解决如果表内值为空,生产错误问题，请看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

多谢版主，因为是菜鸟，对Access的VBA不了解，所以一直都没有办法做到，现在已经解决了。多谢！！！
Option Compare Database
Dim mysum1 As Double
Dim mysum2 As Double
Dim x As Boolean

Private Sub Report_NoData(Cancel As Integer)
x = False
End Sub

Private Sub Report_Open(Cancel As Integer)

End Sub

Private Sub 页面页脚_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub 页面页脚_Print(Cancel As Integer, PrintCount As Integer)
Text23.Value = "本页共计: " & mysum1 & " CONE"
Text24.Value = "本页共计: " & mysum2 & " 个ITEM"
mysum1 = 0
mysum2 = 0
End Sub

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
If x = True Then
mysum1 = mysum1 + 执货数量.Value
mysum2 = mysum2 + 1
Else
mysum1 = 0
mysum2 = 0
End If
End Sub
把我的代码贴出来让你帮忙看看有没有问题，没有问题也能让像我一样的菜鸟共享一下

hi-wzj

我不是已经指出您的逻辑错误之处了吗？

如果报表无数据，您需要在报表的“无数据”事件中：Private Sub Report_NoData(Cancel As Integer)设置代码，而不是在页合计中设置。

ly_19811105

回去，不要沉，还没解决

ly_19811105

顶上去,我就不信没有人会

ly_19811105

不要沉，顶上去，顶到有人解决。菜鸟的办法

ly_19811105

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

t小宝

试试:

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

hi-wzj

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

ly_19811105

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