以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  手机开发表列宽设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118182)
--  作者：baoxyang
--  发布时间：2018/4/26 14:47:00
--  手机开发表列宽设置
With wb.AddTable("","Table1")
     .RowHead = 1
     .ColWidth = "120px,,120px,,120px,,120px,,72px,,120px"
    .Highlight = 1 \'关闭高亮显示
    .Alternate = 2 \'每两行显示一个不同背景颜色的行
    .Head.AddRow("供应商","状态","异常类型","异常日期","异常原因")
    For i As Integer = 0 To dt.DataRows.count - 1
        Dim r As DataRow = dt.DataRows(i)
        With .Body.AddRow(r("供应商"),r("状态"),r("异常类型"),r("异常日期"),r("异常原因"))
            .Primarykey = r("ID")
        End With
    Next
    .ActiveSheet = "menu" \'指定菜单
    With wb.AddActionSheet("","menu") \'设计菜单
        .Add("mnudAdd", "异常修改").Attribute = ""
    End With
End With


设置列宽不生效，请指教！谢谢！！
--  作者：有点甜
--  发布时间：2018/4/26 15:04:00
--  

绝对宽度是无法做到的，当宽度大于页面宽度，就会变成自适应（这个是weui框架的样式所决定的）

 

你可以这样写代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim sb As New StringBuilder
        sb.AppendLine("<table border=\'2\'>")
        sb.AppendLine("<caption>我的成绩</caption>")
        sb.AppendLine("<tr><td>考试名称</td><td>姓名</td><td>语文</td></tr>")
        For Each r As DataRow In DataTables("表A").Select("")
            sb.AppendLine("<tr><td>"& r("第一列")&"</td><td>"& r("第二列")&"</td><td>"& "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" &"</td></tr>")
        Next
        sb.AppendLine("</Table>")
        e.WriteString(sb.ToString)
End Select

[此贴子已经被作者于2018/4/26 15:14:36编辑过]
--  作者：baoxyang
--  发布时间：2018/4/26 15:15:00
--  
请教，如何根据内容自动设置行高
--  作者：有点甜
--  发布时间：2018/4/26 15:25:00
--  
以下是引用baoxyang在2018/4/26 15:15:00的发言：
请教，如何根据内容自动设置行高

 

如果是weui，本来就是根据内容自动设置行高的。