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

 那就这样写。

Dim colNames() As String = {"金额|第五列", "金额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 = colname.split("|")(1)            这里将指定行的文本等于数组

感谢林老师

 

Dim colNames() As String = {"金额|第五列", "金额2|第六列", "金额3|第七列", "金额4|第八列"}    金额|第五列  第五列代表的是自己设定的字符

 

如果又要自己设定的字符,又要绑定列的内容怎么改?比如{"金额|杂费", "金额2|绑定的是第六列内容", "金额3|绑定的是第七列内容", "金额4|绑定的是第八列内容"} 这样形式的话代码要怎么改?

 随便改成什么都可以的，遇到什么问题？

比如第五列内容为：出差费，显示出来的文本为：＂出差费＂，而不是自己在代码中设置，文本内容为列内容

金额|第五列，显示出来的文本＂第五列＂，如果文本内容来自第五列内容呢？

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))

看不懂代码的意思,只知道实现了想要的功能,感谢林老师

 

 

一拜蛇年身体好，二拜全家没烦恼，三拜困难少又少，四拜青春永不老，五拜成绩高高翘，六拜天天幸福绕，七拜远把忧愁抛，八拜收入高又高

 

在此祝林老师跟论坛里的老师们新年快乐

执行上面的代码后实现了可以根据指定列内容进行显示,但发现个问题"金额2|第六列"   显示的是列名,如果将"金额2|第六列"改为 "金额2|杂费"  提示杂费不属于表A

 

然后学生把rt.Cells(count+2,4).Text = iif(colname.split("|").Length=3, .Current(colname.split("|")(1)), colname.split("|")(1))这行代码改为

 

rt.Cells(count+2,4).Text = iif(colname.split("|").Length=3, .Current(colname.split("|")(0)), colname.split("|")(1))显示出来的就变图1那样了,又跟上面的矛盾起来了,这样执行

 

后没完成根据指定列内容进行显示,请教老师后面该怎么改?

此主题相关图片如下：图1.png

呃，你这样该，好吧？

"金额2|第六列", "金额3|杂费|bind"