以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  专业报表格式化  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170801)

--  作者：有点蓝 --  发布时间：2021/8/8 20:23:00 --   参考：http://www.foxtable.com/webhelp/topics/0361.htm

--  作者：有点蓝 --  发布时间：2021/8/9 23:09:00 --   For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容             If ColNames(c) <>"商品图片" if ColNames(c) = “价格” rt.Cells(r + 1, c).Text = format(tb.Rows(r)(ColNames(c)),"c") else                 rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c)) endif             Else