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


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

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

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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 16:51:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:screenshot_2017-09-28-16-36-24-77.png
图片点击可在新窗口打开查看

 

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/28 16:56:00 [只看该作者]

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

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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 17:32:00 [只看该作者]

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


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/28 17:43:00 [只看该作者]

以下是引用刘林在2017/9/28 17:32:00的发言:

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

 

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


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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 21:06: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 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'>" 列宽设置就只有在电脑网页上有效,其余方式就无效,现在的困惑是不同打开方式结果不一样,这怎么做下去呢?


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/28 21:18:00 [只看该作者]

我用这段代码测试没问题

 

'开始生成网页
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 width='500px'>" & 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) '生成网页

End Select


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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 21:29:00 [只看该作者]

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

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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 21:40:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:cwn5`l5pzuj}(nzink1o4m.png
图片点击可在新窗口打开查看
"<td width='500px'>"   "<td width='50px'>"  设为两种姓名列还是这样,也就是无效,用的谷歌模拟手机效果 

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/28 21:45:00 [只看该作者]

设置input的宽度

 

            wb.insertHtml("form1", "<td width='500px'>" & dr("第一列") & "</td><td><input style='width:50px' name='txt1_" & dr("_Identify") & "' value='" & dr("第二列") & "' /></td><td><input   name='txt2_" & dr("_Identify") & "' value='" & dr("第三列") & "' /></td></tr>")


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


加好友 发短信
等级:八尾狐 帖子:1936 积分:14844 威望:0 精华:0 注册:2016/4/28 9:58:00
  发帖心情 Post By:2017/9/28 22:03:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:8q4z(%t))4_9398}2e5ts.png
图片点击可在新窗口打开查看

 

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


 回到顶部
总数 38 上一页 1 2 3 4 下一页