現在，我在vb程式里想查詢scll表中，查詢符合兩個條件（scll_scph和scll_wlbh滿足條件）結果（輸出scll_scjhd）然后將scjhd的多個值交給一個字串，便于在textbox中參考，多個結果用，號隔開，并去掉重復值；
比如查詢WL004/20200202，應該輸出“JH20051227002，JH20051227003”
誰幫我解答一下，不勝感激！
我寫的代碼：
rs22.Open "select * from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "'", cnn, adOpenKeyset
If rs22.RecordCount > 0 Then
For I = 0 To rs22.RecordCount - 1
LLL = rs22.Fields("scll_scjhd")
rs22.MoveNext
Next I
End If
rs22.Close
輸出結果只有一個，另一個如何同時顯示？LLL=JH20051227003，如何讓LLL=JH20051227002，JH20051227003謝謝
uj5u.com熱心網友回復：
老師們，請幫幫忙！感謝了uj5u.com熱心網友回復：
https://bbs.csdn.net/topics/392464822SQLServer 如何把多條記錄組個一個欄位，用逗號隔開
uj5u.com熱心網友回復：
版主，這不適合vb6.0使用吧？這句子看不懂呢
uj5u.com熱心網友回復：
試試這樣行不行:
dim dict
set dict = createobject("scripting.dictionary")
rs22.Open "select * from tb_SCGL_scll where scll_wlmc = '" + Cbx_Field.Text + "' and scll_scph= '" + Txt_Key.Text + "'", cnn, adOpenKeyset
If rs22.RecordCount > 0 Then
For I = 0 To rs22.RecordCount - 1
dict.item(cstr(rs22.Fields("scll_scjhd"))) = null
rs22.MoveNext
Next I
End If
rs22.Close
LLL = ""
dim key
for each key in dict
if LLL="" then
LLL = key
else
LLL = LLL & "," & key
end if
next
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15132.html
標籤：VB基礎類
上一篇：VB簡單小題，求大神解