以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于变量替换问题（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=23553)
--  作者：yyzlxc
--  发布时间：2012/9/12 13:07:00
--  [求助]关于变量替换问题（已解决）

一段代码，计算销售收入分月的累计值，如何用变量 "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编辑过]
--  作者：czy
--  发布时间：2012/9/12 13:25:00
--  
Dim s1 As String = "[销售收入_" & j & "]"
--  作者：yyzlxc
--  发布时间：2012/9/12 13:34:00
--  
谢谢CZY老师的指教，问题解决了。