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
加好友 
发短信
Post By：2018/9/18 14:30:00 [显示全部帖子]
