主题：试图除以零！！

.NET Framework 版本：2.0.50727.5477
Foxtable 版本：2014.5.12.1
错误所在事件：表，轮转排单， DataColChanged
详细错误信息：
调用的目标发生了异常。
试图除以零。
DataColChanged代码： e.DataRow("出品率") = e.DataRow("应用数量") / e.DataRow("实用数量")

此主题相关图片如下：11111111.jpg

通过窗口生成的SQLQuery，如果通过Excel模版导出报表啊。无法在打印输出报表管理添加啊！

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

 

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

 

像这种情况该如何设计表啊！

比如我后期需要一个排单表，如果现在后期有56个订单需要根据交货日期的顺序进行排序后并生成报表。

但是我设计的表每页加载20行，56个订单就需要3页。这样的情况如何设计排单表啊。

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

明白了，甜老师。您在帮我看下这个代码的问题。

我自定义的加载树：

当我点击Ture的时候，表里显示的都是完成的数据。但是当我点击Ture下面的日期节点后，已完成和未完成的都显示了。

此主题相关图片如下：qq图片20140709101305.jpg

加载树的代码如下：

Dim Filter As String
If e.Node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
    Dim pname As String = dr("印刷完成")
    Dim Year As Integer = dr("年")
    Dim Month As Integer = dr("月")
   
    Select Case e.Node.Level
        Case 0
            Filter ="[印刷完成] = " & iif(dr("印刷完成") = False, 0, 1)
        Case 1
            Filter ="Year(日期) = " & Year
        Case 2
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 3
            Filter ="Year(日期) = " & Year & " And Month(日期) = " & Month & " And [印刷机台] = '" & dr("印刷机台") & "'"
    End Select
End If

With DataTables("轮转排单")
    .LoadFilter = Filter
    .LoadPage = 0
    .LoadTop = 20
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End With

Select Case e.Node.Level
        Case 0
            Filter ="[印刷完成] = " & iif(dr("印刷完成") = False, 0, 1)
        Case 1
            Filter ="[印刷完成] = " & iif(dr("印刷完成") = False, 0, 1) & " and Year(日期) = " & Year
        Case 2
            Filter ="[印刷完成] = " & iif(dr("印刷完成") = False, 0, 1) & " and Year(日期) = " & Year & " And Month(日期) = " & Month
        Case 3
            Filter ="[印刷完成] = " & iif(dr("印刷完成") = False, 0, 1) & " and Year(日期) = " & Year & " And Month(日期) = " & Month & " And [印刷机台] = '" & dr("印刷机台") & "'"
    End Select

这个按年月日印刷机台加载的代码哪里有问题啊！！

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 & " And [印刷机台] = '" & dr("印刷机台") & "'"

    End Select
End If

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