为什么可以计算,但是会卡很久?大概10来分钟,数据就几百行。
Dim d As Date = Date.today
d = new Date(d.year, d.month, 1)
Dim d1 As Date = d.AddMonths(0)
Dim d2 As Date = d.AddMonths(-1)
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("销售开单")
If e.DataCol.Name = "编号" Then
dr("AA") = dt.Compute("Sum(数量)","[编号] = '" & dr("编号") & "' And [日期] >= #" & d2 & "# And [日期] < #" & d1 & "#" )
End If
另外“AA” 能否用列号表示?比如Tables("计算").Cols(3) 如何定义这个变量?