主题：手机开发表列宽设置

绝对宽度是无法做到的，当宽度大于页面宽度，就会变成自适应（这个是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

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