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

此主题相关图片如下：screenshot_2017-09-28-16-36-24-77.png

 

老师，我在谷歌开发者工具中测试宽度设置无效，onfocus='this.select()有效，但在手机上测试，两个都无效，这是什么原因？怎么办

测了，现在的问题是同样的代码，在电脑网页中打开不一样，在手机网页中又不一样，用hbuilder打包后更不一样，这该怎么办？整晕了。

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 cellspacing=0 ><tr><td>姓名</td><td>A卷</td><td>B卷</td></tr>")

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

   
    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)

 

 

就是上面的页面，   在电脑上测试可以点击选中，在手机游览器上也可以点击选中，但用hb打包就不能点击选中，<td width='80px'>" 列宽设置就只有在电脑网页上有效，其余方式就无效，现在的困惑是不同打开方式结果不一样，这怎么做下去呢？

我知道，我的代码是改了，我觉得问题不在代码上，是为何同样的项目，同样代码，只是在不同打开方式下结果不一样，要点是解决这个问题。如果说问题出在代码上，请问老师，上面代码是什么原因造成不同结果的?

此主题相关图片如下：cwn5`l5pzuj}(nzink1o4m.png

"<td width='500px'>"   "<td width='50px'>"  设为两种姓名列还是这样，也就是无效，用的谷歌模拟手机效果 

此主题相关图片如下：8q4z(%t))4_9398}2e5ts.png

 

这样可以控制每列宽度，但如上图不是将三列刚好是整屏显示，显不完要向右移，如何能像28楼那个数那样三列占整屏，只是控制姓名列的宽度，余下的自动平分宽度

再请教一下，1、如果将input局中在单元格中怎么办？2、如果将input的外框去掉怎么办？我查了之方面的属性没有找到，谢谢帮指导下

此主题相关图片如下：@}23%ec9op9y8(_5l9}$i.png

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim bjhc As String = trim(e.PostValues("xd") & e.PostValues("xj") & e.PostValues("bj"))
wb.AddPageTitle("","pageheader","学生成绩保存")
wb.AddForm("","form1","")
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
For Each key As String In e.Values.Keys
  Dim jlh As String = key.split("_")(1)
    Dim fdr As DataRow = DataTables("自测成绩").sqlfind("_Identify = '" & jlh & "'")
    fdr("A卷") = val(e.values("bh1_" & jlh))
    fdr("B卷") = val(e.values("bh2_" & jlh))
    fdr.save()
Next
With wb.AddButtonGroup("form1","btg1", False)  '水平排列
    .Add("btn6", "保存","submit")
    .Add("btn7", "返回","button").Attribute = ""
End With
wb.AppendHTML("<script src='./lib/order.js'></script>")
e.WriteString(wb.Build)

 

 

老师，上面代码保存不起数据呢，请问是什么原因

输入数据提交后数据全为0了呢

找到原因了，有问题再请教