以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  增加主菜单ItemClick问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125018)
--  作者：联友
--  发布时间：2018/9/18 13:57:00
--  增加主菜单ItemClick问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.zip
--  作者：有点甜
--  发布时间：2018/9/18 14:30:00
--  
Dim t As Table = e.Form.controls("Table1").Table
Dim SQL As String
Select Case e.StripItem.Name
    Case "浙A9L916(第1车)"
        SQL = "Select  学期,车次,接送地点 From {车次安排} WHERE  车次 = \'浙A9L916(第1车)\'"
        t.Fill(SQL,True)
    Case "浙A9L916(第2车)"
        SQL = "Select  学期,车次,接送地点 From {车次安排} WHERE  车次 = \'浙A9L916(第2车)\'"
        t.Fill(SQL,True)
End Select
--  作者：联友
--  发布时间：2018/9/18 14:35:00
--  
谢谢老师