主题：订单交期统计问题

请帮我窗口1的代码。我暂末升级新版本，望贴出代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单交期统计.foxdb

Dim yf As WinForm.TextBox = e.Form.Controls("月份")
Dim aqs As WinForm.TextBox = e.Form.Controls("按期数")
Dim cqs As WinForm.TextBox = e.Form.Controls("超期数")
Dim dds As WinForm.TextBox = e.Form.Controls("订单数")
Dim zjl As WinForm.TextBox = e.Form.Controls("准交率")

Dim dt As DataTable = DataTables("表A")
Dim filter As String = "月 = '" & yf.text & "'"
dds.text = dt.Compute("count(订单编号)", filter)
aqs.text = dt.Compute("count(订单编号)", filter & " and 完工='按期'")
cqs.text = dt.Compute("count(订单编号)", filter & " and 完工='超期'")
zjl.text = format(aqs.text / dds.text, "0.00%")

谢谢。另外，订单数要求是【完工】不为空的订单数。

dds.text = dt.Compute("count(订单编号)", filter & " and 完工 is not null")

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

dds.text = dt.Compute("count(订单编号)", filter & " and 完工 is not null")

我笨,再谢了.

还有问题，以上统计的是品种准交率，并不是订单的准交率，因为1个订单包含多个品种。实例中的窗口2如何计算订单的准交率。1个订单的2个品种没有完成,只能算1次订单没按期

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订单交期统计.foxdb

Dim yf As WinForm.TextBox = e.Form.Controls("月份")

'品种准交率
Dim pzaqs As WinForm.TextBox = e.Form.Controls("品种按期数")
Dim pzcqs As WinForm.TextBox = e.Form.Controls("品种超期数")
Dim pzs As WinForm.TextBox = e.Form.Controls("品种数")
Dim pzzjl As WinForm.TextBox = e.Form.Controls("品种准交率")
Dim ddaqs As WinForm.TextBox = e.Form.Controls("订单按期数")
Dim ddcqs As WinForm.TextBox = e.Form.Controls("订单超期数")
Dim dds As WinForm.TextBox = e.Form.Controls("订单数")
Dim ddzjl As WinForm.TextBox = e.Form.Controls("订单准交率")

Dim dt As DataTable = DataTables("表A")
Dim filter As String = "月 = '" & yf.text & "'"
Dim aq As Double = 0
Dim cq As Double = 0
Dim dd As Double = 0
For Each ddh As String In dt.GetValues("订单编号", filter & " And 完工 Is not null")
    Dim count As Double = dt.compute("count(订单编号)", "订单编号 = '" & ddh & "' and 完工 = '超期'")
    If count > 0 Then
        cq += 1
    Else
        aq += 1
    End If
    dd += 1
Next
ddaqs.text = aq
ddcqs.text = cq
dds.text = dd
ddzjl.text = format(ddaqs.text / dds.text, "0.00%")

pzs.text = dt.Compute("count(订单编号)", filter & " And 完工 Is not null")
pzaqs.text = dt.Compute("count(订单编号)", filter & " and 完工='按期'")
pzcqs.text = dt.Compute("count(订单编号)", filter & " and 完工='超期'")
pzzjl.text = format(pzaqs.text / pzs.text, "0.00%")

再次谢谢有点甜