mui与weui兼容性问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → mui与weui兼容性问题

共有5341人关注过本帖树形打印复制链接主题：mui与weui兼容性问题

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

mui与weui兼容性问题 发帖心情

Post By：2018/10/6 8:34:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

Dim Ls As String = "style= 'border:none;padding:0px;height:25px;margin:0;width:100%;color:blue;padding-left:10px;font-size:16px;'"

Dim cl As String="style= 'border:none;padding:0px;margin:0;height:25px;width:100%;margin:10px;font-size:16px;padding-left:0px;color:blue;"

wb.InsertHTML("<!DOCTYPE html>")

wb.InsertHTML("<html>")

wb.InsertHTML("<head>")

wb.InsertHTML("<meta charset='utf-8'>")

wb.InsertHTML("<meta name='viewport' c />")

wb.InsertHTML("<title></title>")

wb.InsertHTML("<script src='../mui/js/mui.min.js'></script>")

wb.InsertHTML("<link href='../mui/css/mui.css' rel='stylesheet'/>")

wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")

wb.InsertHTML("</head>")

wb.InsertHTML("<body>")

wb.InsertHTML("<header class='mui-bar mui-bar-nav mui-bar-nav-bg'>")

wb.InsertHTML("<a id='icon-menu' class='mui-action-back mui-icon mui-icon-left-nav mui-pull-left'></a>")

wb.InsertHTML("<h1 class='mui-title'>学生统计</h1>")

wb.InsertHTML("</header>")

wb.InsertHTML("<div class='mui-content'>")

If e.PostValues.Count = 0 Then '分组统计设置

wb.AddForm("","form1","xsrstj.htm")

With wb.AddRadioGroup("form1","分组","选择统计分组方式")

.Add("年级","年级",True)

.Add("班级","班级")

End With

请问老师，用mui做了顶部返回，单选点击就点击不灵活，出现很多时候点不起，但把mui部分去掉就点击灵活了，但把mui去掉时，点手机返回键又要退出整个系统，两都在一起就要出问题，请问这该好何办?

[此贴子已经被作者于2018/10/6 8:43:13编辑过]

刘林

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 12:20:00 [显示全部帖子]

gp.Totals.AddDef("学生姓名",AggregateEnum.Count,"学生人数")

gp.Totals.AddExp("男","case when 性别='男' then 1 else 0 end")

gp.Totals.AddExp("女","case when 性别='女' then 1 else 0 end")

gp.Totals.AddExp("住校","case when 就读方式='住校' then 1 else 0 end")

gp.Totals.AddExp("走校","case when 就读方式='走校' then 1 else 0 end")

gp.Totals.AddExp("残疾","case when 健康状况<>'健康或良好' then 1 else 0 end")

gp.Totals.AddExp("留守学生","case when 是否留守= 1 then 1 else 0 end")

If gp.Groups.Count = 0 OrElse gp.Totals.Count = 0 Then

wb.InsertHTML("请选择分组列和统计列!")

Else

wb.InsertHTML("<div style='width:100%; overflow-x:auto;'>")

With wb.AddTable("","Table1")

.attribute ="style = 'border:1px solid black;text-align:left;white-space:nowrap;font-size:16px;padding:5px;'"

.CreateFromDataTable(gp.Build(True))

End With

wb.InsertHTML("</div>")

老师，请教两个问题，我想做个表格汇总该怎么改，我用的打开汇总模式不行呢，另外如何做一个导出表格的代码将表格在手机上下载为excl

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 15:40:00 [显示全部帖子]

老师，问题1加这个就可以了 gp.VerticalTotal=True

再请教个问题

With wb.AddTable("","Table1")

.attribute ="style = 'border:1px solid black;text-align:left;white-space:nowrap;font-size:16px;padding:5px;'"

.CreateFromDataTable(gp.Build(True))

End With

如何改表格内外线为blue

刘林

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 16:17:00 [显示全部帖子]

If e.PostValues("xd")="高中"

nms = new String() {"考试名称","考试室","考号","姓名","语文_语总","数学_数总","英语_英总","政治_政总","历史_历总","地理_","物理_物总","化学_化总","生物_","总分","总分班序","总分校序","总分区序"}

cps = new String() {"考试名称","考试室","考号","姓名","语文","数学","英语","政治","历史","地理","物理","化学","生物","总分","班序","校序","区序"}

End If

Dim lst As List(of DataRow) = DataTables("成绩").sqlSelect("考试名称= '" & e.PostValues("ksmc") & "' and 学段 = '" & e.PostValues("xd") & "' And 单位名称 = '" & dr("group") & "'")

'wb.InsertHTML("<div style='width:100%; overflow-x:auto;'>")

'wb.InsertHTML("<Table border='1'cellpadding='0' align='center'>")

'wb.InsertHTML("<tr>")

'For Each cp As String In cps

' wb.InsertHTML("<td style='font-size:20px;color:blue;white-space:nowrap;' align='center'>" & cp & "</td>")

'Next

'wb.InsertHTML("</tr>")

' For r As Integer=0 To lst.Count-1

' wb.InsertHTML("<tr>")

' For Each nm As String In nms

' wb.InsertHTML("<td style='font-size:16px;white-space:nowrap;' align ='center'>" & lst(r)(nm) & "</td>")

' Next

' wb.InsertHTML("</tr>")

' Next

'wb.InsertHTML("</Table></br></br></br>")

' wb.InsertHTML("</div>")

With wb.AddTable("","Table1")

老师，我测试了多次，当有记录多时，注释掉的方式就会出错，经研究发现，其实用wb.AddTable("","Table1")可以显示多列了，现在我就想把注释掉的方式改成用wb.AddTable("","Table1")，这个如何改，cps,nms是动态的

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 16:29:00 [显示全部帖子]

我试过，这种方式一样的在记录多的情况下要出错:添加了相同键值，但记录少就不会出错

刘林

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 16:32:00 [显示全部帖子]

With wb.AddTable("","Table1")

.Highlight = 0

.attribute ="style = 'border:1px solid black;text-align:left;white-space:nowrap;font-size:16px;padding:5px;'"

.head.AddRow("序号","班级","学生姓名","联系电话","身份证件号","学籍号","户籍地址","家庭住址","监护人姓名","民族","政治面貌","综合素质","邮政编码","户口性质","出生日期","性别","健康状况","就读方式","是否留守","是否建档立卡贫困户","状态" ) '表头

Dim i As Integer = 1

For Each r As DataRow In dt.DataRows

With .body.AddRow(i,r("班级"),r("学生姓名"),r("联系电话"),r("身份证件号"),r("学籍号"),r("户籍地址"),r("家庭住址"),r("监护人姓名"),r("民族"),r("政治面貌"),r("综合素质"),r("邮政编码"),r("户口性质"),r("出生日期"),r("性别"),r("健康状况"),r("就读方式"),r("是否留守"),r("是否建档立卡贫困户"),r("状态")) '数据

.Primarykey = r("_Identify")

End With

i=i+1

.ActiveSheet = "menu"

End With

而我用这种方式做的一个表，在手机上可显示多列多行，记录几千都没出问题，我就想将上面的改成这种模式，但行列是动态的？怎样改更好

刘林

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 19:05:00 [显示全部帖子]

cps = new String() {"考试名称","考试室","考号","姓名","语文","语加","数学","数加","英语","英加","政治","政加","历史","历加","生物","地理","物理","物加","化学","化加","折总","折合班序","折合校序","折合区序"}

请问老师，如何将cps 转化成字符串 r("考试名称）,r("考试室")....

刘林

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1959 积分：15051 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2018/10/6 21:06:00 [显示全部帖子]

老师，上面问题，我解决了，用的下面方法

With wb.AddTable("","Table1")
            .head.AddRow(cps).Attribute="style='font-size:20px;color:blue;white-space:nowrap;' align='center;'"
            For r As Integer=0 To lst.Count-1
                 With .body.AddRow()
                For Each nm As String In nms
                   .AddCell(lst(r)(nm))
                Next
                End With
            Next
        End With
wb.AppendHTML("<style>.fox_table th{border: 1px solid black} .fox_table td{border: 1px solid black}</style>")

现在又产生个问题，因为表大，内容多，当划动时整个表都动了，就不好看是哪列，我想将表头固定在顶部的header下面，这个该怎样写呢？

下一主题 >> << 上一主题

主题：mui与weui兼容性问题