主题：订单交期统计问题

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")

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

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%")