一段代码,计算销售收入分月的累计值,如何用变量 "j",来替换"[销售收入_1]"中的 "1",请各位老师指教,谢谢!!
Dim k As Integer = 1
For j As Integer = 1 To k
Dim t As Table = Tables("销售工效分月分析")
Dim dr As DataRow
Dim fyxssr As Double = 0
For i As Integer = 1 To t.Rows.Count - 2
Dim s1 As String = "[销售收入_1]" '列
Dim r As Row = Tables("销售工效分月分析").Rows(i) '行
fyxssr = fyxssr + Eval(s1,r)
Next
dr = DataTables("销售工效分月分析").Find("[单位] = '合计'")
dr("销售收入_" & j) = fyxssr
MessageBox.Show(fyxssr)
Next
[此贴子已经被作者于2012-9-12 13:34:28编辑过]