Select Case e.DataCol.name Case "发生年月" Dim dr As DataRow = e.DataRow If dr("发生年月").length =8 Then Dim d1 As Date = new Date(dr("发生年月").substring(0,4), dr("发生年月").substring(5,2), 1) Dim d2 As Date = d1.AddMonths(1) Dim filter As String = "[物料名称] = '" & dr("物料名称") & "'and 发生日期 >=#" & d1 & "# and 发生日期 < #" & d2 & "# " dr("销售数量")=DataTables("销售明细实际人员附表").Compute("sum(销售数量)",filter) End If End Select
|