专家坐堂-移动开发能像datachFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发能像datach  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105134)

--  作者：刘林
--  发布时间：2017/8/12 10:46:00
--  移动开发能像datach
Case "cjcxrb.htm"
        wb.AddPageTitle("","pageheader","我班成绩")
        \' wb.InsertHTML("<div style=\'text-align:center\'><img src=\'./images/backr.png\' width=50 height=50 /></div>")
        With wb.AddInputGroup("","ipg1","")
            With .AddInputCell("ic1") \'通过InputCell增加输入框
                .AddLabel("ksmc","考试名称",0) \'增加标签,0显示在左边
                .AddSelect("ksmc1",DataTables("考试名称").SQLGetComboListString("考试名称"),1) \'增加下拉列表,0表示显示在左边
                .AddVcodeButton("cx","查看",2) \'增加获取验证码按钮,2表示显示在右边
            End With
        End With

       \' With wb.AddButtonGroup("","btg1", False)
        \'    Dim btn = .Add("btn1","左翻")
       \'\'     btn.Attribute = ""
         \'   btn.kind = 1
          \' .Add("btn2", "退出","","default.htm").kind=1
          \' .Add("btn3", "右翻","","cjcxrb.htm").Kind = 1
     \'   End With
        With wb.AddTable("","Table2")
            .Alternate = 3
            .Attribute="style=\'text-align:center\'"
            Dim nms() As String = {"考试名称","姓名","地理","物理","化学","总分","班序","校序"}
            .Head.AddRow(nms)
            .ColWidth = "60px,40px,30px,30px,30px,30px,30px,30px"
            Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = \'" & e.Cookies("username") & "\'")
            For Each r As DataRow In DataTables("成绩").sqlSelect("班级全称 = \'" & dr("班级") & "\' and 单位名称 = \'" & dr("group") & "\'")
                With .Body.AddRow(r("考试名称"),r("姓名"),r("地理_"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
                End With
            Next
        End With
老师，请问上面代码我想改成最初页面只有考试名称选择项，选好后列表项点查询执行查询，像datachanged事件一样，这怎样做

--  作者：刘林
--  发布时间：2017/8/12 10:59:00
--
With .AddInputCell("ic1") \'通过InputCell增加输入框
                .AddLabel("ksmc","考试名称",0) \'增加标签,0显示在左边
                .AddSelect("ksmc1",DataTables("考试名称").SQLGetComboListString("考试名称"),1) \'增加下拉列表,0表示显示在左边
                .AddVcodeButton("cx","查看",2) \'增加获取验证码按钮,2表示显示在右边
            End With
用这个方式控制有几个问题请教老师1.标签如何像.AddVcodeButton 这样框出来，2.AddSelect如何像addinput这样.placeholder ="提示信息"3..AddSelect右边没有>提示，如何能有，谢谢

--  作者：有点蓝
--  发布时间：2017/8/12 11:12:00
--

wb.AddForm("","form1","cjcxrb.htm")
wb.AddPageTitle("","pageheader","我班成绩")
\' wb.InsertHTML("<div style=\'text-align:center\'><img src=\'./images/backr.png\' width=50 height=50 /></div>")
With wb.AddInputGroup("form1","ipg1","")
With .AddInputCell("ic1") \'通过InputCell增加输入框
.AddLabel("ksmc","考试名称",0) \'增加标签,0显示在左边
.AddSelect("ksmc1","a|b|c",1) \'增加下拉列表,0表示显示在左边
.AddVcodeButton("cx","查看",2).Attribute = "onclick=\'document.getElementById(""form1"").submit();\'"
End With
End With

[此贴子已经被作者于2017/8/12 11:12:10编辑过]

--  作者：有点蓝
--  发布时间：2017/8/12 11:19:00
--

Case "cjcxrb.htm"
wb.AddForm("","form1","cjcxrb.htm")
wb.AddPageTitle("","pageheader","我班成绩")
\' wb.InsertHTML("<div style=\'text-align:center\'><img src=\'./images/backr.png\' width=50 height=50 /></div>")
With wb.AddInputGroup("form1","ipg1","")
With .AddInputCell("ic1") \'通过InputCell增加输入框
.AddLabel("ksmc","考试名称",0) \'增加标签,0显示在左边
.AddSelect("ksmc1",DataTables("考试名称").SQLGetComboListString("考试名称"),1) \'增加下拉列表,0表示显示在左边
.AddVcodeButton("cx","查看",2).Attribute = "onclick=\'document.getElementById(""form1"").submit();\'" \'增加获取验证码按钮,2表示显示在右边
End With
End With
Dim filter As String = ""
If e.PostValues.Count > 0 Then
filter = " and 考试名称 = \'" & e.PostValues("ksmc1") & "\'"
End If
With wb.AddTable("","Table2")
.Alternate = 3
.Attribute="style=\'text-align:center\'"
Dim nms() As String = {"考试名称","姓名","地理","物理","化学","总分","班序","校序"}
.Head.AddRow(nms)
.ColWidth = "60px,40px,30px,30px,30px,30px,30px,30px"
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = \'" & e.Cookies("username") & "\'")
For Each r As DataRow In DataTables("成绩").sqlSelect("班级全称 = \'" & dr("班级") & "\' and 单位名称 = \'" & dr("group") & "\'" & filter )
With .Body.AddRow(r("考试名称"),r("姓名"),r("地理_"),r("物理_物总"),r("化学_化总"),r("总分"),r("班序"),r("校序"))
End With
Next
End With

--  作者：刘林
--  发布时间：2017/8/12 14:38:00
--

老师，请问在手机上向下滑时能固定表头及标题部分吗？

--  作者：有点蓝
--  发布时间：2017/8/12 14:58:00
--
有点麻烦

https://www.baidu.com/baidu?word=html%20固定顶部

--  作者：刘林
--  发布时间：2017/8/12 15:55:00
--

        Tables(cmd.executereader).SaveExcel("c:\\web\\成绩.xls", "成绩") \'保存文件

    Dim Proc As New Process
    Proc.File = "c:\\web\\成绩.xls"

Proc.Start()

老师因为要想在手机上显示列多了，我想导出EXCL来显示，红色这句不对呢

--  作者：有点蓝
--  发布时间：2017/8/12 16:06:00
--
临时表无法使用SaveExcel，用模板，或者使用代码导出

http://www.foxtable.com/mobilehelp/scr/0149.htm

http://www.foxtable.com/webhelp/scr/1148.htm

--  作者：刘林
--  发布时间：2017/8/12 16:51:00
--

Case "list.htm"
       DataTables("成绩").loadfilter = "班级全称 = \'" & dr("班级") & "\' and 单位名称 = \'" & dr("group") & "\' And 考试名称 = \'" & e.PostValues("ksmc") & "\'"
DataTables("成绩").load
Tables("成绩").SaveExcel("c:\\web\\成绩.xls", "成绩") \'保存文件

   Dim Proc As New Process
    Proc.File = "c:\\web\\成绩.xls"

Proc.Start()

        e.WriteString(wb.Build)

老师，不得行，我又改成这样，在本机电脑上测试打得开xls，但移动服务器用手机测试：拒绝访问，怎么办？

--  作者：有点蓝
--  发布时间：2017/8/12 17:02:00
--
这样Process在服务器后台打开的，对客户端没有意义。按下面的方法返回Excel给手机

http://www.foxtable.com/mobilehelp/scr/0149.htm

http://www.foxtable.com/mobilehelp/scr/0148.htm