Foxtable(狐表)用户栏目专家坐堂 → 移动开发,生成的表列多一页不能容下怎么办


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

主题:移动开发,生成的表列多一页不能容下怎么办

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


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

测试了一下,如果表格的内容超过了手机宽度,设置宽度就不会有效的了,这个没办法。

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


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

总有什么办法解决哟,要不然这个手机效果太难看了,请求支持


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


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

以下是引用刘林在2017/8/6 21:31:00的发言:

总有什么办法解决哟,要不然这个手机效果太难看了,请求支持

 

用原生的table http://www.foxtable.com/mobilehelp/scr/0031.htm

 


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


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

Case "cjcx.htm"
        wb.AddPageTitle("","pageheader","我的成绩")
        With wb.AddTable("","Table1")
            .Alternate = 3
            Dim nms() As String = {"考试名称","姓名","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分","班序","校序"}
            .Head.AddRow(nms)
            .ColWidth = "40px,50px,40px,40px,40px,40px,40px,40px,40px,40px,40px,40px,40px,40px,40px"  '设置列宽
            For Each r As DataRow In DataTables("成绩").Select("身份证件号 = '" & e.Cookies("username") & "'")
                With .Body.AddRow(r("考试名称"),r("姓名"),r("语文_语总"),r("数学_数总"),r("英语_英总"),r("政治_政总"),r("历史_历总"),r("生物_"),r("地理_"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
                End  With
            Next
        End With
改成这样还是不行,如果用原因生的,表怎样做呢?做不来哟

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


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

测试了一下,手机都是不能设置table宽度的,无解。

 

生成的表格尽量少列吧,或者是,生成excel文件打开显示。


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


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

' Case "table.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<table border='2'>")
        sb.AppendLine("<caption>我的成绩</caption>")
        sb.AppendLine("<tr><td>考试名称</td><td>姓名</td><td>语文</td><td>数学</td><td>英语</td><td>政治</td><td>历史</td><td>生物</td><td>地理</td><td>物理</td><td>化学</td><td>总分</td><td>班序</td><td>校序</td></tr>")
        For Each r As DataRow In DataTables("成绩").Select("身份证件号 = '" & e.Cookies("username") & "'")
            sb.AppendLine("<tr><td>"& r("考试名称")&"</td><td>"& r("姓名")&"</td><td>"& r("语文_语总") &"</td><td>"& r("数学_数总")&"</td><td>"& r("英语_英总")& "</td><td>"& r("政治_政总")& "</td><td>"& r("历史_历总") &"</td><td>"& r("生物_") &"</td><td>" & r("地理_")& "</td><td>"& r("物理_物总") &"</td><td>"& r("化学_化总") &"</td><td>" & r("总分") &  "</td><td>"& r("班序")  &"</td><td>"& r("校序") &"</td></tr>")
        Next
        sb.AppendLine("</Table>")
        e.WriteString(sb.ToString)
我按你讲的这样做,但生成的表不好看,请老师润色如何让这个表更好看就可以了

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


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

你用16楼的方式生成的表格,也是会【自适应】页面的,也是会有同样的效果。

 

对于手机,无法控制宽度的。


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


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


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170806225506.png
图片点击可在新窗口打开查看
但至少可以生成这样的表格,只是没有基础,不晓得怎样优化样式

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


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

设置一下css优化样式就好了。

 

具体的样式,你可以参考weui的样式。浏览器那里【查看元素】可以看到其对于样式的。


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


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

 Case "cjcx.htm"
        wb.AddPageTitle("","pageheader","我的成绩")
        With wb.AddButtonGroup("","bt1", False)
            .Add("left", "左移","button").Kind = 1
            .Add("right", "右移","button").kind=1
        End With
        With wb.AddTable("","Table1")
            .Alternate = 3
            Dim nms() As String = {"考试名称","姓名","语文","数学","英语","政治","历史","生物","地理"}
            .Head.AddRow(nms)
            .ColWidth = "65px,45px,30px,30px,30px,30px,30px,30px,30px"
            For Each r As DataRow In DataTables("成绩").sqlSelect("身份证件号 = '" & e.Cookies("username") & "'")
                With .Body.AddRow(r("考试名称"),r("姓名"),r("语文_语总"),r("数学_数总"),r("英语_英总"),r("政治_政总"),r("历史_历总"),r("生物_"),r("地理_"))
                End  With
            Next
        End With
        
        
 With wb.AddTable("","Table2")
                .Alternate = 3
                Dim nms() As String = {"考试名称","姓名","物理","化学","总分","班序","校序"}
                .Head.AddRow(nms)
                .ColWidth = "65px,45px,30px,30px,30px,30px,30px"
                For Each r As DataRow In DataTables("成绩").sqlSelect("身份证件号 = '" & e.Cookies("username") & "'")
                    With .Body.AddRow(r("考试名称"),r("姓名"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
                    End  With
                Next
            End With
            
 老师,你好,为了实再效果,还是想用weui,想法是打开网页先显示tabl1部份,当点右移时,显示tabl2部分,点左移时再显table1这样相当于把一个表分成两部分来显示,这该怎样处理,没有基础,请老师明示,谢谢


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