Foxtable(狐表)用户栏目专家坐堂 → 移动开发表格数据录入


  共有3532人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
刘林
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
移动开发表格数据录入  发帖心情 Post By:2017/9/26 14:57:00 [显示全部帖子]

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1.txt

代码改了select 还是发不过来 


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/26 16:17:00 [显示全部帖子]

请老师帮看下

 


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/26 21:51:00 [显示全部帖子]

老师,这个例子做出来实际运用比较麻烦,假如一次考试有100个学生记录,录一个学生的成绩点的键太多了,要选双击行,选菜单,再输入,再确定,再返回输入下一个,这样操作太复杂了,我的初步想法,虽然表中不能直接输入,可不可用循环将表的每行记录批量做成页面的text输入框,页面每行 姓名: A卷   B卷,(A卷,B卷处分别为输入框)输入完后一次提交再用_Identify值去保存,这样会不会实际应用更快,想法是这样,就是不晓得该怎么样去写,请给个代码示范一下,谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/27 13:48:00 [显示全部帖子]

为做成我想的结果,请问如何取表格中每行记录的_Identify,传给页面来依次编辑,最后用_Identify值对应去保存,这样来实现对数据保存。
1、如何依次取表格中每行记录的_Identify
2、如何将每行记录的_Identify做成每个输入框的name
3、每行由于有A卷、B卷,如何做到一个输入框:显示姓名,紧接着两个输入框来分别录A卷,B卷

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/27 14:48:00 [显示全部帖子]

我是想将生成的表格的每一行批量用原生input控件来做,合成idxs如何来动态生成控件,请帮写下代码

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/27 21:16:00 [显示全部帖子]

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") & "'","","姓名")
    With wb.AddInputGroup("form1","ipg2","")
        For Each xs As DataRow In xss
            .Addinput("bh" & xs("_Identify"),xs("姓名"),"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)


老师,现在按上面代码做成出动态生成输入框,但因为一个学生的成绩输入有a卷,和b卷成绩两列,
1、第一句红色这里该怎样改,也就是达到在手机上一行上输入一个学生的A卷,B卷两个独立数据,对应表的A卷列,B卷列,
2、保存提交数据怎么办?如何用"bh" & xs("_Identify")去对应保存,请帮指导
谢谢,今天想了很久终于想到如何动态生成控件,基础差,望多指导

 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 10:41:00 [显示全部帖子]

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

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

 

 

 

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

 

姓名    输入框(用于录A卷)   输入框(用于录B卷)

 

这个样子


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 14:07:00 [显示全部帖子]

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、如何能点某个单元格,内容就会全选,这样方便修改数据,否则要去删数据再输入


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 14:46:00 [显示全部帖子]

 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

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


 回到顶部
帅哥哟,离线,有人找我吗?
刘林
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 15:53:00 [显示全部帖子]

试过,也不行

 回到顶部
总数 22 1 2 3 下一页