亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關于我們
? 蟲蟲下載站

?? 專業課程表查詢窗體.frm

?? 智能排課系統
?? FRM
?? 第 1 頁 / 共 2 頁
字號: 
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 3) = a(1, 2)
End If
If rst.Fields("22") = "a" Then
    xlsheet.Cells(13, 4) = ""
Else
    If rst.Fields("22") = "1" Then
        a(2, 2) = ""
    Else
        a(2, 2) = rst.Fields("22")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("22") = "1" Or rstclasscourse.Fields("22") = "a" Then
                a(2, 2) = a(2, 2)
            Else
                If a(2, 2) = "" Then
                    a(2, 2) = rstclasscourse.Fields("22")
                Else
                a(2, 2) = a(2, 2) & vbNewLine & rstclasscourse.Fields("22")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 4) = a(2, 2)
End If
If rst.Fields("32") = "a" Then
    xlsheet.Cells(13, 5) = ""
Else
    If rst.Fields("32") = "1" Then
        a(3, 2) = ""
    Else
        a(3, 2) = rst.Fields("32")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("32") = "1" Or rstclasscourse.Fields("32") = "a" Then
                a(3, 2) = a(3, 2)
            Else
                If a(3, 2) = "" Then
                    a(3, 2) = rstclasscourse.Fields("32")
                Else
                a(3, 2) = a(3, 2) & vbNewLine & rstclasscourse.Fields("32")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 5) = a(3, 2)
End If
If rst.Fields("42") = "a" Then
    xlsheet.Cells(13, 6) = ""
Else
    If rst.Fields("42") = "1" Then
        a(4, 2) = ""
    Else
        a(4, 2) = rst.Fields("42")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("42") = "1" Or rstclasscourse.Fields("42") = "a" Then
                a(4, 2) = a(4, 2)
            Else
                If a(4, 2) = "" Then
                    a(4, 2) = rstclasscourse.Fields("42")
                Else
                a(4, 2) = a(4, 2) & vbNewLine & rstclasscourse.Fields("42")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 6) = a(4, 2)
End If
If rst.Fields("52") = "a" Then
    xlsheet.Cells(13, 7) = ""
Else
    If rst.Fields("52") = "1" Then
        a(5, 2) = ""
     Else
        a(5, 2) = rst.Fields("52")
     End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("52") = "1" Or rstclasscourse.Fields("52") = "a" Then
                a(5, 2) = a(5, 2)
            Else
                If a(5, 2) = "" Then
                    a(5, 2) = rstclasscourse.Fields("52")
                Else
                a(5, 2) = a(5, 2) & vbNewLine & rstclasscourse.Fields("52")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(13, 7) = a(5, 2)
End If
If rst.Fields("13") = "a" Then
    xlsheet.Cells(17, 3) = ""
Else
    If rst.Fields("13") = "1" Then
        a(1, 3) = ""
    Else
        a(1, 3) = rst.Fields("13")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("13") = "1" Or rstclasscourse.Fields("13") = "a" Then
                a(1, 3) = a(1, 3)
            Else
                If a(1, 3) = "" Then
                    a(1, 3) = rstclasscourse.Fields("13")
                Else
                a(1, 3) = a(1, 3) & vbNewLine & rstclasscourse.Fields("13")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 3) = a(1, 3)
End If
If rst.Fields("23") = "a" Then
    xlsheet.Cells(17, 4) = ""
Else
  If rst.Fields("23") = "1" Then
    a(2, 3) = ""
  Else
    a(2, 3) = rst.Fields("23")
  End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("23") = "1" Or rstclasscourse.Fields("23") = "a" Then
                a(2, 3) = a(2, 3)
            Else
                If a(2, 3) = "" Then
                    a(2, 3) = rstclasscourse.Fields("23")
                Else
                a(2, 3) = a(2, 3) & vbNewLine & rstclasscourse.Fields("23")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 4) = a(2, 3)
End If
If rst.Fields("33") = "a" Then
    xlsheet.Cells(17, 5) = ""
Else
  If rst.Fields("33") = "1" Then
    a(3, 3) = ""
  Else
    a(3, 3) = rst.Fields("33")
  End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("33") = "1" Or rstclasscourse.Fields("33") = "a" Then
                a(3, 3) = a(3, 3)
            Else
                If a(3, 3) = "" Then
                    a(3, 3) = rstclasscourse.Fields("33")
                Else
                a(3, 3) = a(3, 3) & vbNewLine & rstclasscourse.Fields("33")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 5) = a(3, 3)
End If
If rst.Fields("43") = "a" Then
    xlsheet.Cells(17, 6) = ""
Else
  If rst.Fields("43") = "1" Then
    a(4, 3) = ""
  Else
    a(4, 3) = rst.Fields("43")
  End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("43") = "1" Or rstclasscourse.Fields("43") = "a" Then
                a(4, 3) = a(4, 3)
            Else
                If a(4, 3) = "" Then
                    a(4, 3) = rstclasscourse.Fields("43")
                Else
                a(4, 3) = a(4, 3) & vbNewLine & rstclasscourse.Fields("43")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 6) = a(4, 3)
End If
If rst.Fields("53") = "a" Then
    xlsheet.Cells(17, 7) = ""
Else
    If rst.Fields("53") = "1" Then
        a(5, 3) = ""
    Else
        a(5, 3) = rst.Fields("53")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("53") = "1" Or rstclasscourse.Fields("11") = "a" Then
                a(5, 3) = a(5, 3)
            Else
                If a(5, 3) = "" Then
                    a(5, 3) = rstclasscourse.Fields("53")
                Else
                a(5, 3) = a(5, 3) & vbNewLine & rstclasscourse.Fields("53")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(17, 7) = a(5, 3)
End If
If rst.Fields("14") = "a" Then
    xlsheet.Cells(21, 3) = ""
Else
    If rst.Fields("14") = "1" Then
        a(1, 4) = ""
    Else
        a(1, 4) = rst.Fields("14")
    End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("14") = "1" Or rstclasscourse.Fields("14") = "a" Then
                a(1, 4) = a(1, 4)
            Else
                If a(1, 4) = "" Then
                    a(1, 4) = rstclasscourse.Fields("14")
                Else
                a(1, 4) = a(1, 4) & vbNewLine & rstclasscourse.Fields("14")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 3) = a(1, 4)
End If
If rst.Fields("24") = "a" Then
    xlsheet.Cells(21, 4) = ""
Else
    If rst.Fields("24") = "1" Then
        a(2, 4) = ""
     Else
        a(2, 4) = rst.Fields("24")
     End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("24") = "1" Or rstclasscourse.Fields("24") = "a" Then
                a(2, 4) = a(2, 4)
            Else
                If a(2, 4) = "" Then
                    a(2, 4) = rstclasscourse.Fields("24")
                Else
                a(2, 4) = a(2, 4) & vbNewLine & rstclasscourse.Fields("24")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 4) = a(2, 4)
End If
If rst.Fields("34") = "a" Then
    xlsheet.Cells(21, 5) = ""
Else
  If rst.Fields("34") = "1" Then
    a(3, 4) = ""
   Else
    a(3, 4) = rst.Fields("34")
   End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("34") = "1" Or rstclasscourse.Fields("34") = "a" Then
                a(3, 4) = a(3, 4)
            Else
                If a(3, 4) = "" Then
                    a(3, 4) = rstclasscourse.Fields("34")
                Else
                a(3, 4) = a(3, 4) & vbNewLine & rstclasscourse.Fields("34")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 5) = a(3, 4)
End If
If rst.Fields("44") = "a" Then
    xlsheet.Cells(21, 6) = ""
Else
   If rst.Fields("44") = "1" Then
     a(4, 4) = ""
   Else
     a(4, 4) = rst.Fields("44")
   End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("44") = "1" Or rstclasscourse.Fields("44") = "a" Then
                a(4, 4) = a(4, 4)
            Else
                If a(4, 4) = "" Then
                    a(4, 4) = rstclasscourse.Fields("44")
                Else
                a(4, 4) = a(4, 4) & vbNewLine & rstclasscourse.Fields("44")
                End If
                
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 6) = a(4, 4)
End If
If rst.Fields("54") = "a" Then
    xlsheet.Cells(21, 7) = ""
Else
   If rst.Fields("54") = "1" Then
     a(5, 4) = ""
   Else
     a(5, 4) = rst.Fields("54")
   End If
    If rstclass.RecordCount() <> 0 Then
        rstclass.MoveFirst
        Do Until rstclass.EOF
            Set rstclasscourse = dbcourse.OpenRecordset("select * from courseclass")
            rstclasscourse.Filter = "classid='" & rstclass.Fields("classid") & "'"
            Set rstclasscourse = rstclasscourse.OpenRecordset()
            If rstclasscourse.Fields("54") = "1" Or rstclasscourse.Fields("54") = "a" Then
                a(5, 4) = a(5, 4)
            Else
                If a(5, 4) = "" Then
                    a(5, 4) = rstclasscourse.Fields("54")
                Else
                a(5, 4) = a(5, 4) & vbNewLine & rstclasscourse.Fields("54")
                End If
            End If
         rstclass.MoveNext
       Loop
     
     End If
    xlsheet.Cells(21, 7) = a(5, 4)
    
End If
End If
    
End Sub

Private Sub Command2_Click()
frmfind.Cls
Unload Me
frmmain.Show vbModal
End Sub

Private Sub DataGrid1_Click()
Text1.Text = DataGrid1.Columns(0).Text
End Sub

?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
高清成人在线观看| 丁香婷婷综合激情五月色| 久久亚洲精品国产精品紫薇| 日本韩国一区二区三区视频| 亚洲日本va午夜在线影院| 老司机免费视频一区二区| 亚洲视频一区二区免费在线观看 | 久久精品国产久精国产| 国产精品理伦片| 日韩亚洲欧美成人一区| 色av综合在线| 成人av资源下载| 精品中文字幕一区二区小辣椒| 亚洲男帅同性gay1069| 久久影音资源网| 欧美日韩一区中文字幕| 一本色道**综合亚洲精品蜜桃冫| 国产毛片精品视频| 麻豆精品久久精品色综合| 一卡二卡欧美日韩| 亚洲欧美在线高清| 中文字幕精品综合| www久久久久| 日韩欧美不卡在线观看视频| 欧美剧情片在线观看| 日本精品视频一区二区三区| www.欧美精品一二区| 国产成a人亚洲| 国产精品一区2区| 国产精品一二三四五| 韩国av一区二区三区| 另类小说图片综合网| 日韩精品电影一区亚洲| 五月婷婷激情综合网| 调教+趴+乳夹+国产+精品| 婷婷国产v国产偷v亚洲高清| 天天爽夜夜爽夜夜爽精品视频| 午夜久久久久久久久| 手机精品视频在线观看| 日韩高清欧美激情| 蜜臀91精品一区二区三区 | caoporen国产精品视频| 丁香婷婷综合五月| 99久久精品国产网站| 色综合久久久久综合体桃花网| 色呦呦一区二区三区| 色综合久久综合中文综合网| 欧美在线|欧美| 欧美一区欧美二区| 欧美mv日韩mv国产网站| 久久久精品国产免大香伊| 国产精品视频一二三区| 《视频一区视频二区| 亚洲一区日韩精品中文字幕| 亚洲国产精品久久不卡毛片 | 国内不卡的二区三区中文字幕| 久久99精品一区二区三区三区| 国产麻豆一精品一av一免费| 懂色av一区二区在线播放| 91麻豆国产香蕉久久精品| 欧美日韩三级视频| 精品日韩99亚洲| 国产精品久久久久久久久久久免费看| 亚洲人成小说网站色在线| 亚洲风情在线资源站| 久久av资源网| 99精品一区二区| 欧美高清视频一二三区 | 天天综合天天综合色| 极品少妇xxxx偷拍精品少妇| 成人涩涩免费视频| 欧美亚洲国产bt| 精品国产乱码久久久久久蜜臀| 中文字幕精品一区| 性做久久久久久| 国产91在线|亚洲| 欧美视频一区在线观看| 久久久高清一区二区三区| 亚洲欧美aⅴ...| 久久精品国产免费看久久精品| 99精品国产热久久91蜜凸| 欧美一区二区免费| 自拍av一区二区三区| 久久99日本精品| 在线免费不卡视频| 精品福利视频一区二区三区| 亚洲另类在线制服丝袜| 免费在线成人网| 色偷偷久久一区二区三区| 2024国产精品| 视频一区在线视频| 成人av影视在线观看| 欧美电视剧在线看免费| 一区2区3区在线看| 成人精品国产福利| 日韩欧美电影一区| 亚洲国产综合91精品麻豆| 大胆欧美人体老妇| 精品国产一二三| 偷拍亚洲欧洲综合| 色悠悠亚洲一区二区| 国产日本欧洲亚洲| 国产91精品免费| 日韩欧美国产综合| 午夜精品视频一区| 91麻豆自制传媒国产之光| 久久精品人人做人人综合| 天天色综合成人网| 欧美专区在线观看一区| 国产精品天干天干在观线| 狠狠色狠狠色综合日日91app| 欧美日韩国产123区| 亚洲男人的天堂一区二区| 成人午夜视频福利| 26uuu亚洲综合色| 免费在线看一区| 91精品免费观看| 亚洲国产日韩a在线播放性色| 91一区二区三区在线观看| 国产女人水真多18毛片18精品视频 | 男女男精品视频网| 欧美日韩和欧美的一区二区| 亚洲免费观看视频| 99精品黄色片免费大全| 国产精品免费丝袜| 国产.欧美.日韩| 日本一区二区三区久久久久久久久不| 久久99精品久久久久婷婷| 91麻豆精品91久久久久久清纯| 一区二区三区国产精华| 一本到高清视频免费精品| 国产精品久线在线观看| 夫妻av一区二区| 国产精品久久影院| 波多野结衣中文字幕一区二区三区| 国产欧美一区二区精品性色超碰| 国产精品自拍网站| 国产欧美日韩综合精品一区二区| 国产成人在线视频网站| 国产精品久久毛片av大全日韩| 国产美女精品在线| 亚洲国产精品99久久久久久久久| 国产 欧美在线| 国产精品国产a级| 色婷婷国产精品久久包臀| 亚洲激情欧美激情| 在线看国产一区二区| 日韩av中文字幕一区二区三区| 欧美一区午夜视频在线观看| 久久99精品一区二区三区| 欧美国产国产综合| 99国产精品久久久久久久久久| 亚洲精品视频观看| 欧美日韩国产首页| 久久99在线观看| 国产精品久久久久婷婷| 欧美在线观看18| 紧缚捆绑精品一区二区| 亚洲国产精品二十页| 欧美主播一区二区三区| 免费在线观看成人| 国产精品免费免费| 欧美日韩在线综合| 国产一区二区网址| 亚洲老妇xxxxxx| 精品剧情在线观看| 99re热这里只有精品视频| 日韩中文字幕麻豆| 国产精品视频yy9299一区| 欧美日韩视频在线一区二区| 国产在线精品国自产拍免费| 亚洲日本丝袜连裤袜办公室| 日韩一区国产二区欧美三区| 国产福利精品导航| 亚洲电影中文字幕在线观看| 26uuu国产一区二区三区| 色综合天天性综合| 久久av资源站| 亚洲一区二区偷拍精品| 精品国产凹凸成av人导航| 色丁香久综合在线久综合在线观看| 日韩电影一区二区三区四区| 国产精品视频第一区| 欧美一级生活片| 91女厕偷拍女厕偷拍高清| 久久成人免费日本黄色| 一区二区在线观看视频在线观看| 精品美女被调教视频大全网站| 色哦色哦哦色天天综合| 国产真实乱对白精彩久久| 亚洲综合丝袜美腿| 国产欧美日本一区视频| 51精品视频一区二区三区| 色综合久久综合网| 国产91精品一区二区麻豆网站| 日韩专区一卡二卡| 亚洲精品老司机| 亚洲国产高清在线| 精品欧美一区二区在线观看| 欧美日韩国产另类不卡|