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

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

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

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

 

 

 

老师，这样就是在手机上不好看得，我想A卷，B卷做在一行上这该怎么写

 

姓名    输入框（用于录A卷）   输入框（用于录B卷）

 

这个样子

 

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

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
If e.PostValues.Count = 0 Then '分组统计设置
    wb.AddPageTitle("","pageheader","自测考试报名","请依次选填,入学年为学级")
    wb.AddForm("","form1","zcks.htm")
    With wb.AddInputGroup("form1","ipg1","")
        .AddSelect("学期","学期","17秋|18春")
        .AddSelect("xd","学段","初中|小学")
        .AddSelect("xj","学级",DataTables("级").SQLGetComboListString("级"))
        .AddSelect("bj","班级",DataTables("班").SQLGetComboListString("班","","序"))
        .AddSelect("km","科目",DataTables("科目").SQLGetComboListString("科目"))
        .AddInput("ksmc","考试名称","text")
    End With
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "确定", "submit")
        .Add("btn1", "返回","","jwzrdefault.htm")
    End With
Else '显示统计结果
    Dim bjhc As String = trim(e.PostValues("xd") & e.PostValues("xj") & e.PostValues("bj"))
    wb.AddPageTitle("","pageheader","学生成绩表册",bjhc & ":" & e.PostValues("ksmc"))
    wb.AddForm("","form1","")
    Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
    Dim xss As List(Of DataRow)  =DataTables("自测成绩").sqlselect("学期= '"& e.PostValues("学期") & "' and 学校名称 = '" & dr("group") & "' and 班级 = '" & bjhc & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "'","","姓名")

     wb.InsertHTML("form1", "<Table border=1><tr><td>姓名</td><td>A卷</td><td>B卷</td></tr>")

        For Each xs As DataRow In xss
            wb.insertHtml("form1", "<td>" & xs("姓名") & "</td><td><input name='txt1_" & xs("_Identify") & "' value='" & xs("A卷") & "' /></td><td><input name='txt2_" & xs("_Identify") & "' value='" & xs("B卷") & "' /></td></tr>")
        Next
        wb.insertHtml("form1", "</Table>")

    'With wb.AddInputGroup("form1","ipg2","")
     '   For Each xs As DataRow In xss
      '      .Addinput("bha" & xs("_Identify"),xs("姓名") & "A卷","number")
       '     .Addinput("bhb" & xs("_Identify"),xs("姓名") & "B卷","number")  
       ' Next
   '' End With

    With wb.AddButtonGroup("form1","btg1", False)  '水平排列
        .Add("btn6", "保存","submit")
        .Add("btn7", "返回","button").Attribute = ""
    End With
End If
wb.AppendHTML("<script src='./lib/order.js'></script>")
e.WriteString(wb.Build)

 

 

老师，我这样改就是我想要的方式，请问1、如何将姓名列宽度加宽点，2、如何能点某个单元格，内容就会全选，这样方便修改数据，否则要去删数据再输入

参考代码

 

        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

 For Each xs As DataRow In xss
            wb.insertHtml("form1", "<td width="200px">" & xs("姓名") & "</td><td><input name='txt1_" & xs("_Identify") & "' value='" & xs("A卷") & "' /></td><td><input name='txt2_" & xs("_Identify") & "' value='" & xs("B卷") & "' /></td></tr>")
        Next

上面代码将单元格内容全选可以了，但是第一列姓名的宽度设置无效呢

用单引号

 

"<td width='200px'>"

试过，也不行

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