主题：移动开发能像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事件一样，这怎样做

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右边没有>提示，如何能有，谢谢

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

 

        Tables(cmd.executereader).SaveExcel("c:\web\成绩.xls", "成绩")  '保存文件
 
    Dim Proc As New Process
    Proc.File = "c:\web\成绩.xls"

 Proc.Start()

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

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，但移动服务器用手机测试：拒绝访问，怎么办？

 

Case "list.htm"
        Dim  flt As  String
        Dim  cmd As new SQLCommand
        cmd.ConnectionName 
        Dim dr As DataRow = DataTables("用户").sqlfind("身份证号 = '" & e.Cookies("username") & "'")
Dim  nms() As String
Dim zds() As String
        If e.PostValues.ContainsKey("cjms") Then
            If e.postvalues("cjms") = "普通模式" Then
                nms = new String() {"考试名称","姓名","语文","数学","英语","政治","历史","生物","地理","物理","化学","总分","总分班序","总分校序"}
                zds = new String() {"考试名称","姓名","语文_语总","数学_数总","英语_英总","政治_政总","历史_历总","生物_","地理_","物理_物总","化学_化总","总分","总分班序","总分校序"}
                cmd.CommandText= "seect 考试名称,姓名,语文_语总,数学_数总,英语_英总,政治_政总,历史_历总,生物_,地理_,物理_物总,化学_化总,总分,总分班序,总分校序 From {成绩} order by 总分 where 班级全称 = '" & dr("班级") & "' and 单位名称 = '" & dr("group") & "' And 考试名称 =  '" & e.PostValues("ksmc") & "'"
            End If
            If e.postvalues("cjms") = "加试模式" Then
                 nms = new String() {"考试名称","姓名","语文A","语文B","数学A","数学B","英语A","英语B","政治A","政治B","历史A","历史B","生物","地理","物理A","物理B","化学A","化学B","折总","班序","校序"}
                 zds = new String() {"考试名称","姓名","语文_A","语文_B","数学_A","数学_B","英语_A","英语_B","政治_A","政治_B","历史_A","历史_B","生物_","地理_","物理_A","物理_B","化学_A","化学_B","折总","班序","校序"}
                cmd.CommandText= "seect 考试名称,姓名,语文_A,语文_B,数学_A,数学_B,英语_A,英语_B,政治_A,政治_B,历史_A,历史_B,生物_,地理_,物理_A,物理_B,化学_A,化学_B,折总,班序,校序 From {成绩} order by 折总 where 班级全称 = '" & dr("班级") & "' and 单位名称 = '" & dr("group") & "' And 考试名称 =  '" & e.PostValues("ksmc") & "'"
            End If
        End If
        Dim dt As DataTable = cmd.ExecuteReader
        Dim  Book As New XLS.Book
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For  c As Integer = 0 To zds.Length - 1
                Sheet(r + 1, c).Value = dt.Datarows(r)(zds(c))
            Next
        Next
        book.PreBuild = False  '非报表模请将PreBuild  属性设置为False
        e.WriteBook(book,"成绩.xls",True)
order by 这里为什么没对呢

 Dim dt As DataTable = cmd.ExecuteReader
        Dim  Book As New XLS.Book
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For  c As Integer = 0 To zds.Length - 1
                Sheet(r + 1, c).Value = dt.Datarows(r)(zds(c))
            Next
        Next
        book.PreBuild = False  '非报表模请将PreBuild  属性设置为False
        e.WriteBook(book,"成绩.xls",True)
这样做了，在本机上测试可以打开成绩表，移到服务器在手机上测试没有错误提示，也没反应请问是什么原因，怎么办

 

老师，加了return可以了，谢谢，现在我想在最后一行加上平均分计算

   Dim dt As DataTable = cmd.ExecuteReader
        Dim  Book As New XLS.Book
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For  c As Integer = 0 To zds.Length - 1
                Sheet(r + 1, c).Value = dt.Datarows(r)(zds(c))
            Next
        Next
        Dim h As Integer = dt.DataRows.count
        For c1 As Integer = 2 To dt.DataCols.count -3
            sheet(h+1,2).value = dt.compute("avg('" & zds(c1) & "')")
        Next
        book.PreBuild = False  '非报表模请将PreBuild  属性设置为False
        e.WriteBook(book,"成绩.xls",True)
        Return
       
       1、 红色这句不对呢，请问怎么写，2、另外每次确定都要下载一个成绩表且没履盖这样次数多后会占用空间，如何能履盖成绩表

 Dim dt As DataTable = cmd.ExecuteReader
        Dim  Book As New XLS.Book
        Dim  Sheet As XLS.Sheet = Book.Sheets(0)
        For c As Integer = 0 To nms.Length - 1
            Sheet(0, c).Value = nms(c)
        Next
        For r As Integer = 0 To dt.DataRows.Count - 1
            For  c As Integer = 0 To zds.Length - 1
                Sheet(r + 1, c).Value = dt.Datarows(r)(zds(c))
            Next
        Next
        Dim h As Integer = dt.DataRows.count
        sheet(h+1,0).value="班级平均分"
        For c1 As Integer = 2 To dt.DataCols.count -3
            sheet(h+1,c1).value = dt.compute("avg(" & zds(c1) & ")")
        Next
        book.PreBuild = False  '非报表模请将PreBuild  属性设置为False
        e.WriteBook(book,"成绩.xls",False)
        Return
        红色这句改好了，还有就是为如提示保存为指导定文件并履盖呢？

我测试过，每下一次分别为成绩(1),第二次为成绩(2),这样会占手机空机，我的想法是可不可以做成在手机上用户自己选保存位置并能履盖，这样用户找文件方便些。另外如何合在代码中加何并EXCL的某些单元格呢