以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助][weui生成表格，单独列居中  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=173835)
--  作者：洮沙
--  发布时间：2021/12/18 11:48:00
--  [求助][weui生成表格，单独列居中

老师，你好！用以下代码生成表格：

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        e.WriteString(wb.Build)
End Select

如何设置，让“部门”列数据居中显示，其他列数据靠左显示？谢谢！

补充问题：

如何最后一行合并单元格显示？

[此贴子已经被作者于2021/12/18 11:55:13编辑过]
--  作者：有点蓝
--  发布时间：2021/12/18 14:01:00
--  
http://www.foxtable.com/mobilehelp/topics/0068.htm

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            With .body.AddRow()
                .AddCell("技术部") \'逐个单元格增加
                .AddCell("李四","style=\'text-align:center\'") \'第二个参数用于设置单元格的Attribute属性
                .AddCells("38","110") \'用AddCells可以一次添加多个单元格
                .AddCell("中国上海")
            End With
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        e.WriteString(wb.Build)
End Select
--  作者：洮沙
--  发布时间：2021/12/18 14:07:00
--  
明白了，谢谢！另外问一下，最后行如何合并单元格？
--  作者：有点蓝
--  发布时间：2021/12/18 14:15:00
--  
http://www.foxtable.com/mobilehelp/topics/0136.htm
--  作者：洮沙
--  发布时间：2021/12/18 14:24:00
--  
完美解决，谢谢！