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

参考

 

http://www.foxtable.com/mobilehelp/scr/0120.htm

 

1、你是说勾选表格数据？网页里点选某些行？

 

2、合成idxs，如 1,2,3,4,100,101 发送过去，接收后根据_Identify查找到对应的行，动态生成控件；

 

3、如果用weui做不到，除非你用原生的input控件。

参考如下测试代码

 

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>" & 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) '生成网页
    Case "abc.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.Values.Keys
            sb.AppendLine(key & ":" & e.Values(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
End Select

1、看懂10楼

 

2、增加两行

 

.Addinput("bh1_" & xs("_Identify"),xs("姓名"),"number")

.Addinput("bh2_" & xs("_Identify"),xs("姓名"),"number")

 

3、把idxs传过来，如 1,3,5,9 这样。循环idxs，如

 

For each i as integer in idxs.split(",")

    Dim fdr As Datarow = DataTables("表A").find("_Identify = " & i)

    fdr("第一列") = e.values("bh1_" & i)

    fdr("第二列") = e.values("bh2_" & i)

Next

 

 wb.insertHtml("form1", "<label>姓名</label><input name='bh1_" & xs("_Identify") & "' value='" & xs("姓名") & "' /><input name='bh2_" & xs("_Identify") & "' value='" & xs("姓名") & "' />")

参考代码

 

        For Each dr As DataRow In DataTables("表A").Select("_Identify in (" & idxs & ")")
            wb.insertHtml("form1", "<td width='200px'>" & dr("第一列") & "</td><td><input onfocus='this.select()' name='txt1_" & dr("_Identify") & "' value='" & dr("第二列") & "' /></td><td><input onfocus='this.select()'  name='txt2_" & dr("_Identify") & "' value='" & dr("第三列") & "' /></td></tr>")
        Next

用单引号

 

"<td width='200px'>"

我在浏览器上测试，没，问，题。

我电脑、手机，测试10楼代码都没问题。你单独做一个例子先测试效果。

 

不一样指什么地方？是10楼的代码吗？具体有什么问题截图说明。