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

        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

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

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

居中

 

<td style='width:30%;text-align:center'>

 

隐藏边框

 

<input style='border:none' >

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了呢

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

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","学生成绩表册",bjhc & ":" & e.PostValues("ksmc"))
wb.AddForm("","form1","cjsave.htm")
With wb.AddButtonGroup("form1","btg1", False)  '水平排列
    .Add("btn6", "保存","submit")
    .Add("btn7", "返回","button","tfsz.htm")'.Attribute = ""
End With
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
Dim xss As List(Of DataRow)  =DataTables("自测成绩").sqlselect("学期= '"& e.PostValues("学期") & "' And 班级 = '" & e.postvalues("bj") & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "' and 教师身份证 = '" & e.Cookies("username") & "'","","总分 desc,姓名")
wb.InsertHTML("form1", "<Table border=1 cellspacing=0 style='width:100%;text-align:center;'><tr><td style='text-align:center;font-size: 15pt;strong'>姓名</td><td style='text-align:center;font-size: 15pt'>A卷</td><td style='text-align:center;font-size: 15pt'>B卷</td><td style='text-align:center;font-size: 15pt'>总分</td></tr>")
For Each xs As DataRow In xss
    wb.insertHtml("form1", "<tr><td style='width:25%;font-size:15pt' >" & xs("姓名") & "</td><td style='width:25%'><input style='width:95%;font-size: 15pt; border:none;text-align:center;' name='txt1_" & xs("_Identify") & "' value='" & xs("A卷") & "' /></td><td style='width:25%'><input style='width:95%;font-size:15pt;border:none;text-align:center;' name='txt2_" & xs("_Identify") & "'  value='" & xs("B卷") & "' /></td><td style='width:25%;font-size:15pt' >" & xs("总分") & "</td></tr>")
Next
Dim pja As Double = DataTables("自测成绩").SQLCompute("avg(A卷)","学期= '"& e.PostValues("学期") & "' And 班级 = '" & e.postvalues("bj") & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "' and 教师身份证 = '" & e.Cookies("username") & "' and 总分>0")
Dim pjb As Double = DataTables("自测成绩").SQLCompute("avg(B卷)","学期= '"& e.PostValues("学期") & "' And 班级 = '" & e.postvalues("bj") & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "' and 教师身份证 = '" & e.Cookies("username") & "'and 总分>0")
Dim pjzf As Double = DataTables("自测成绩").SQLCompute("avg(总分)","学期= '"& e.PostValues("学期") & "' And 班级 = '" & e.postvalues("bj") & "' And 考试名称 ='" & e.PostValues("ksmc") & "' and 科目 = '" & e.PostValues("km") & "' and 教师身份证 = '" & e.Cookies("username") & "'and 总分>0")
wb.insertHtml("form1", "<tr><td style='width:25%;font-size:15pt' >平均分</td><td style='width:25%;font-size:15pt' >" & Format(pja,"0.00") & "</td><td style='width:25%;font-size:15pt' >" & Format(pjb,"0.00") & "</td><td style='width:25%;font-size:15pt' >" & Format(pjzf,"0.00") & "</td></tr>")
wb.insertHtml("form1", "</Table>")
e.WriteString(wb.Build)

 

 

老师，通过你们的帮助，终于懂起了一些道理了，非常感谢，现在新的问题请帮助下：

 

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


此主题相关图片如下：screenshot_2017-09-30-09-17-13-01.png

第一个图是在hbilber生成手机图标安装运行的结果，当点单元格不能全选内容

第二个图是在手机谷歌浏览器中打开链接运行的结果，当点单元格时却能全选，这就是我想要的结果，因为录入成绩存在修改，如能点到就全选，更方便修改

问题1、如何能在hbilber打包后也能点选单元格。

问题2、如何能点选数字单元格时自动调出数字键盘。

谢谢

 

 

 

 

1、加多一个事件试试：