主题：[求助]关于变量替换问题（已解决）

一段代码，计算销售收入分月的累计值，如何用变量 "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