Dim s1,s2,s3,sql,Lst3,Bm,Lm1,Lm2 As String
Bm = "表B"
Lm1 = "第一列"
Lm2 = "第二列"
lst3 = DataTables(Bm).GetComboListString(Lm1, Lm1 & " > ''",Lm1)
If lst3 > "" Then
s1="Select " & lst3.Replace("|","." & Lm2 & " +'-'+ ") & "." & Lm2 & " As 组合 from "
s2 =",(Select " & Lm2 & " from {" & Bm & "} Where " & Lm1 & " = '"
For Each s3 In lst3.split("|")
sql+ =s2 & s3 & "') " & s3
Next
Output.Show(s1 & sql.Substring(1))
End If
加好友 
发短信
Post By：2014/2/23 22:36:00 [显示全部帖子]
