主题：专业报表问题请教老师

林老师没明白我的意思,把代码再贴出来,代码如下:

Dim colNames() As String = {"金额|第五列|bind", "金额2|第六列", "金额3|第七列", "金额4|第八列"}   
Dim count As Integer = 0
For Each colname As String In colNames               

With Tables("表A")
        Dim money As String = .Current(colname.split("|")(0))  
        If money <> 0 Then
            rt.Cells(count+2,4).Text = iif(colname.split("|").Length=3, .Current(colname.split("|")(1)), colname.split("|")(1))
 rt.Cells(count+2, 10 - money.length).Text = GetDigit(CInt(money), money.Length) '等于"￥"
            For i As Integer = 10 To 11 - money.Length Step -1
                rt.Cells(count+2, i).Text = GetDigit(CInt(money), 10-i)
            Next
            count += 1
        End If
    End With
Next

上面的代码执行后"金额|第五列|bind" 这个指的内容是一个是"金额,一个为"第五列"输入的内容,比如金额为1000,第五列内容为出差费  显示出来为: 出差费  1000  这个没错了

金额2|第六列这个代码一个指的是"金额2",一个指的是第六列的列名,比如金额2为500,第六列列名为工钱   显示出来为: 工钱  500,如果"金额2|工钱"在打印的时候不以"工钱"显示,而是改

为以"工资"显示,又不指定列内容,也就是不用"金额2|工钱|bind",代码改为 金额2|工资  会提示工资不输入表A