10楼所言极是,数据源定义错误,修正后提示错误为“编译错误,daterows不是datacolerventargs的成员,错误代码: cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & e.Daterows("存货名称") & "'"不知是何原因?
For Each dr As DataRow In DataTables("存货档案").DataRows
Dim cmd As sqlcommand
cmd.c
cmd.commandtext = "select sum(合同数量) from {销售收款统计表} where 商品名称 = '" & e.Daterows("存货名称") & "'"
Dim dt As Double
dt = cmd.ExecuteScalar
dr("未发货订单数量") = dt
Next