Dim Filter As String '设置筛选条件
With e.Form.Controls("da2") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= '" & .Value & "'"
End If
End With
If Filter > "" Then
Tables("进销存").Filter = Filter
End If
With Forms("窗口1").Controls("da2")
Dim txt As String = .Value
Dim dr1 As DataRow
dr1 = DataTables("进销存").Find("日期 <= '" & txt & "'","日期 Desc")
Dim dtb As New DataTableBuilder("库存")
dtb.AddDef("货号", Gettype(String), 20)
dtb.AddDef("库存_数量", Gettype(Integer))
dtb.AddDef("库存_金额", Gettype(Double))
dtb.Build()
For Each nm As String In DataTables("进销存").GetValues("货号")
Dim dr As DataRow = DataTables("库存").AddNew()
dr("货号") = nm
dr("库存_数量") = DataTables("进销存").Compute("Sum(期末库存_数量)","[货号] = '" & dr("货号") & "' and [日期] = '" & dr1("日期") & "'")
dr("库存_金额") = DataTables("进销存").Compute("Sum(期末库存_成本)","[货号] = '" & dr("货号") & "' and [日期] = '" & dr1("日期") & "'")
Next
End With
MainTable= Tables("库存")
这样写有问题吗
加好友 
发短信
Post By：2016/3/3 22:02:00 [显示全部帖子]
