Select
Case
TmaterialCatalog
Case " Sub "
Field = " countryID "
sql = " Select Name From TCountry Where ID= " & SubID & ""
Case " Sub0 "
Field = " schoolID "
sql = " (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID= " & SubID & " ))+'-'+(Select Name From TSchool Where ID= " & SubID & " ) "
' Response.Write sql
' Response.End
Case Else
Response.Write " <body bgColor='#D4D0C8'></body> "
Response.End
End Select
有错,这是为什么呢?
Case " Sub "
Field = " countryID "
sql = " Select Name From TCountry Where ID= " & SubID & ""
Case " Sub0 "
Field = " schoolID "
sql = " (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID= " & SubID & " ))+'-'+(Select Name From TSchool Where ID= " & SubID & " ) "
' Response.Write sql
' Response.End
Case Else
Response.Write " <body bgColor='#D4D0C8'></body> "
Response.End
End Select
为了使开发进度加快,我只好用下面的代码:
Dim
Field,sql,strsql
Select Case TmaterialCatalog
Case " Sub "
Field = " countryID "
sql = " Select Name From TCountry Where ID= " & SubID & ""
Case " Sub0 "
Field = " schoolID "
strsql = " Select Name From TCountry Where ID in (Select countryID From TSchool Where ID= " & SubID & " ) "
sql = " Select Name From TSchool Where ID= " & SubID & ""
' sql="Select (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")"
' Response.Write sql
' Response.End
Case Else
Response.Write " <body bgColor='#D4D0C8'></body> "
Response.End
End Select
不知道,谁能帮助我一下,把Case "Sub0" 下面代码改下?
Select Case TmaterialCatalog
Case " Sub "
Field = " countryID "
sql = " Select Name From TCountry Where ID= " & SubID & ""
Case " Sub0 "
Field = " schoolID "
strsql = " Select Name From TCountry Where ID in (Select countryID From TSchool Where ID= " & SubID & " ) "
sql = " Select Name From TSchool Where ID= " & SubID & ""
' sql="Select (Select Name From TCountry Where ID=(Select countryID From TSchool Where ID=" &SubID& "))+'-'+(Select Name From TSchool Where ID=" &SubID& ")"
' Response.Write sql
' Response.End
Case Else
Response.Write " <body bgColor='#D4D0C8'></body> "
Response.End
End Select