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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  mui与weui兼容性问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125754)

--  作者：刘林
--  发布时间：2018/10/6 8:34:00
--  mui与weui兼容性问题

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编辑过]

--  作者：有点甜
--  发布时间：2018/10/6 11:14:00
--

1、冲突实例发上来测试；

2、返回时退出，是不可能的事情，实例发上来测试。

--  作者：刘林
--  发布时间：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

--  作者：有点甜
--  发布时间：2018/10/6 14:14:00
--

1、参考 http://www.foxtable.com/mobilehelp/scr/0135.htm

2、参考 http://www.foxtable.com/mobilehelp/scr/0151.htm

--  作者：刘林
--  发布时间：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

--  作者：有点甜
--  发布时间：2018/10/6 16:06:00
--

Select Case e.Path
    Case "test.htm", ""
               Dim wb As New WeUI
        With wb.AddTable("","Table1")
.attribute ="style = \'border:1px solid black;text-align:left;white-space:nowrap;font-size:16px;padding:5px;\'"
            .CreateFromDataTable(DataTables("表A"))
        End With
        wb.AppendHTML("<style>.fox_table th{border: 1px solid blue} .fox_table td{border: 1px solid blue}</style>")
        e.WriteString(wb.Build)
End Select

--  作者：刘林
--  发布时间：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是动态的

--  作者：有点甜
--  发布时间：2018/10/6 16:19:00
--

改成stringbuilder啊

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125323&replyID=842096&skin=1

--  作者：刘林
--  发布时间：2018/10/6 16:29:00
--
我试过，这种方式一样的在记录多的情况下要出错:添加了相同键值，但记录少就不会出错

--  作者：刘林
--  发布时间：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
Next
.ActiveSheet = "menu"
End With
而我用这种方式做的一个表，在手机上可显示多列多行，记录几千都没出问题，我就想将上面的改成这种模式，但行列是动态的？怎样改更好