我用这段代码测试没问题
'开始生成网页
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