主题：移动开发表格数据录入

我用这段代码测试没问题

'开始生成网页
Select Case e.path
    Case "test.htm"
        Dim idxs As String = "1,3,5"  '_Identify值
        Dim wb As New weui
        wb.AddForm("","form1","abc.htm")
        'wb.InsertHTML("form1", "<Table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr></Table>")
        wb.InsertHTML("form1", "<Table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr>")
        For Each dr As DataRow In DataTables("表A").Select("_Identify in (" & idxs & ")")
            wb.insertHtml("form1", "<td width='500px'>" & dr("第一列") & "</td><td><input name='txt1_" & dr("_Identify") & "' value='" & dr("第二列") & "' /></td><td><input   name='txt2_" & dr("_Identify") & "' value='" & dr("第三列") & "' /></td></tr>")
        Next
        wb.insertHtml("form1", "</Table>")
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页

End Select

设置input的宽度

            wb.insertHtml("form1", "<td width='500px'>" & dr("第一列") & "</td><td><input style='width:50px' name='txt1_" & dr("_Identify") & "' value='" & dr("第二列") & "' /></td><td><input   name='txt2_" & dr("_Identify") & "' value='" & dr("第三列") & "' /></td></tr>")

居中

<td style='width:30%;text-align:center'>

隐藏边框

<input style='border:none' >