是呀，征对楼主所说的“狐表的系统帮助其实只算是一套很详尽的说明书，但不算是很好的入门教程！
”我以这样认为。以前用易表还好学点，本想换狐表用下，一看就连最起码的流水账结算“结余”的公式
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23 |
Select
Case e.DataCol.Name
Case
"产品","入库","出库"
Dim drs As
List(of
DataRow)
Dim Filter As
String
Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'"
drs = e.DataTable.Select(Filter)
For
Each dr As
DataRow
In drs
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
Dim Val1 As
Double = e.DataTable.Compute("Sum(入库)",Filter)
Dim Val2 As
Double = e.DataTable.Compute("Sum(出库)",Filter)
dr("库存") = Val1 - Val2
Next
If e.DataCol.Name = "产品"
AndAlso e.OldValue IsNot
Nothing
AndAlso e.OldValue <> e.NewValue Then
Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.OldValue & "'"
drs = e.DataTable.Select(Filter)
For
Each dr As
DataRow
In drs
Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
Dim Val1 As
Double = e.DataTable.Compute("Sum(入库)",Filter)
Dim Val2 As
Double = e.DataTable.Compute("Sum(出库)",Filter)
dr("库存") = Val1 - Val2
Next
End
If
End
Select |
都这么复杂，怎么学得会呀？
加好友 
发短信
Post By：2011/5/10 16:47:00 [显示全部帖子]
