wb.InsertHTML("form1", "<Table style='width:100%' 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 style='width:40%'>" & dr("第一列") & "</td><td style='width:30%'><input style='width:90%' name='txt1_" & dr("_Identify") & "' value='" & dr("第二列") & "' /></td><td style='width:30%'><input style='width:90%' name='txt2_" & dr("_Identify") & "' value='" & dr("第三列") & "' /></td></tr>") Next
|