以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]手工编码生成表格，如何控制表格线粗细与颜色  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147773)
--  作者：huangfanzi
--  发布时间：2020/3/23 21:33:00
--  [求助]手工编码生成表格，如何控制表格线粗细与颜色
老师看下代码，请帮我举下例子，控制表格上线的粗细与颜色
另外，用.AddCells 方法添加多字段时能用class吗，就如：.AddCells("销售金额"，"回款金额","class=\'bth1\'")  我试过这样写不行的

With wb.AddTable("","Table1")
    With .body.AddRow()
        .AddCell("合同/现金单汇总","colspan=\'5\' class=\'sh1\'")
    End With
    With .body.AddRow()
        .AddCell("项目","class=\'bth1\'")
        .AddCell("方量","class=\'bth1\'")
        .AddCell("均价","class=\'bth1\'")
        .AddCell("销售金额","class=\'bth1\'")
        .AddCell("回款金额","class=\'bth1\'")
    End With
    Dim i As Integer = 888
    With .body.AddRow()
        .AddCell("统计日","class=\'bth1\'")
        .AddCell(i,"class=\'nr\'")
        .AddCell(i,"class=\'nr\'")
        .AddCell(i,"class=\'nr\'")
        .AddCell(i,"class=\'nr\'")
    End With
    
End With
--  作者：有点蓝
--  发布时间：2020/3/23 21:38:00
--  
不能的，只能使用AddCell
--  作者：huangfanzi
--  发布时间：2020/3/23 21:57:00
--  
表格线颜色与粗细能编码控制吗？
另外，这个表达式怎么写：
Dim hxfl As Double = _dt销售出库.SQLCompute("Sum(发货量)","发货时间 = \'" & rq1 & "\'")
系统中发货时间可能是 2020-3-23 10:00  变量rq1的值是 2020-3-23  ，如何写让这个表达式返回真，也就是说，如何把 发货时间 舍去 时间部分
--  作者：有点蓝
--  发布时间：2020/3/23 22:23:00
--  
表格线颜色与粗细百度一下“css边框设置”

Dim hxfl As Double = _dt销售出库.SQLCompute("Sum(发货量)","发货时间 >= \'" & rq1 & "\' and 发货时间 < \'" & rq1.adddays(1) & "\'")