主题：试图除以零！！

 回复3楼，就是不能添加的。这种你需要单独用代码去生成

 

 http://www.foxtable.com/help/topics/1145.htm

 

 做排单表的时候，就控制一下每页的加载行数，你可以任意加载任意多行的。

  呃，目录树是怎样的，什么问题？现在

 你应该有四层，第四层才加入对应条件。

 

case 2

 

case 3

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim Day As Integer = dr("日")
Dim Product As String = dr("印刷机台")
Select Case e.Node.Level
    Case 0
        Filter ="Year(出库日期) = " & Year
    Case 1
        Filter ="Year(出库日期) = " & Year & " And Month(出库日期) = " & Month
    Case 2
        Filter ="Year(出库日期) = " & Year & " And Month(出库日期) = " & Month & " And Day(出库日期) = " & Day
    Case 3
        Filter ="Year(出库日期) = " & Year & " And Month(出库日期) = " & Month & " And Day(出库日期) = " & Day & " And [印刷机台] = '" & dr("印刷机台") & "'"
End Select
End If