Dim lm3 As String
Dim n1 As Integer
Dim sum As Double
Dim drs1 As New List(of DataRow)
drs1 = e.DataTable.Select("日期 > #1/1/1900# And [_Identify] >= " & e.DataRow("_Identify"))
Select Case e.DataCol.name
Case "工行G02"
lm3 = "G02余额"
n1=0
sum = e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <= " & e.DataRow("_Identify"))
For Each dr As DataRow In drs1
If n1 = 0 Then
dr(lm3) = sum
Else
dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)
End If
n1+=1
Next
Case "农行N01"
lm3 = "N01余额"
n1=0
sum = e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <= " & e.DataRow("_Identify"))
For Each dr As DataRow In drs1
If n1 = 0 Then
dr(lm3) = sum
Else
dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)
End If
n1+=1
Next
Case "建行J01"
lm3 ="J01余额"
n1=0
sum = e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <= " & e.DataRow("_Identify"))
For Each dr As DataRow In drs1
If n1 = 0 Then
dr(lm3) = sum
Else
dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)
End If
n1+=1
Next
Case "信用社X01"
lm3 = "X01余额"
n1=0
sum = e.DataTable.Compute("Sum(" & e.DataCol.name & ")", "[_Identify] <= " & e.DataRow("_Identify"))
For Each dr As DataRow In drs1
If n1 = 0 Then
dr(lm3) = sum
Else
dr(lm3) = drs1(n1-1)(lm3)+ dr(e.DataCol.name)
End If
n1+=1
Next
End Select
加好友 
发短信
Post By：2013/3/13 12:26:00 [显示全部帖子]
