请教一下想在订单表头上面统计该客户的整月账单订单的收款状态，用了下面的代码，重置列的时候，需要的时间要好几分钟，帮忙看一下代码能不能改良一下，谢谢
说明：订单表中字段有：订单号，账单收款状态，订单金额，订单已收款，客户名，账单月份
收款表中字段有：订单号，订单金额，订单已收款，客户名，账单月份
Select Case e.DataCol.name
Case "订单号"
If e.DataRow.IsNull("订单号") Then
e.DataRow("账单收款状态") = Nothing
Else
Dim filter As String
filter = "[客户名] = '" & e.DataRow("客户名") & "' and 账单月份 = '" & e.DataRow("账单月份") & "'"
Dim ddje As Integer = DataTables("收款表").Compute("sum(订单金额)", filter)
Dim ddys As Integer = DataTables("收款表").Compute("sum(订单已收款)", filter)
If ddje = ddys Then
e.DataTable.replacefor("账单收款状态", "收完", filter)
Else
e.DataTable.replacefor("账单收款状态", "未收完", filter)
End If
End If
End Select
[此贴子已经被作者于2024/11/30 12:30:09编辑过]
加好友 
发短信
Post By：2024/11/30 12:28:00 [显示全部帖子]
