以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  试图除以零!!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=53486)

--  作者:身份不明
--  发布时间:2014/7/9 8:40:00
--  试图除以零!!

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


--  作者:Bin
--  发布时间:2014/7/9 8:43:00
--  
if e.DataRow("实用数量") <> 0 then
e.DataRow("出品率") = e.DataRow("应用数量") / e.DataRow("实用数量") 

end if

--  作者:身份不明
--  发布时间:2014/7/9 9:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:11111111.jpg
图片点击可在新窗口打开查看
通过窗口生成的SQLQuery,如果通过Excel模版导出报表啊。无法在打印输出报表管理添加啊!
--  作者:有点甜
--  发布时间:2014/7/9 9:45:00
--  

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

 

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

 


--  作者:身份不明
--  发布时间:2014/7/9 10:06:00
--  

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

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

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


--  作者:有点甜
--  发布时间:2014/7/9 10:09:00
--  
 做排单表的时候,就控制一下每页的加载行数,你可以任意加载任意多行的。
--  作者:身份不明
--  发布时间:2014/7/9 10:15:00
--  

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

我自定义的加载树:

当我点击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


--  作者:Bin
--  发布时间:2014/7/9 10:20:00
--  
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
--  作者:身份不明
--  发布时间:2014/7/9 11:09:00
--  

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

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


--  作者:有点甜
--  发布时间:2014/7/9 11:12:00
--  
  呃,目录树是怎样的,什么问题?现在