因此，如果不能排除重復，請添加壹個for循環並逐項插入壹個n。鑰匙。
讓我給妳舉兩個例子:
將ls_sql顯示為字符串
Rs_OpenQ LS_Rs_ks，“選擇代碼作為部門代碼，部門名稱來自dict_kbb其中醫院標誌=‘yes‘““部門信息。
Ls_sql =“選擇序號，科目代碼，科目名稱，病房，是否增加額外床位，床位號，床位名稱，床位代碼，床位費，診療名稱，診療代碼，治療費，發熱名稱，發熱費用，降溫名稱，降溫代碼，降溫費用，說明“u
& amp“來自zyc _ dict _ cwb“u
& amp“哪裏有效=‘是‘”_
& amp按病房、床號排序
Rs_OpenQ LS_Rs_cw，ls _ sql床位信息，用於未來篩查。
將部門信息加載到樹視圖
如果LS_Rs_ks。EOF和LS_Rs_ks。那就去銀行吧
出口接頭
如果…就會結束
TV_KS。節點。清除
Tv _ ks.nodes.add，“zy _ ks“，“住院部“，1，2。
LS_Rs_ks。MoveFirst
做而不是LS_Rs_ks。文件結束
if Trim（LS _ Rs _ ks！受試者姓名）
TV_KS。nodes . Add“zy _ ks“，tvwChild，“zy _“+Trim（LS _ Rs _ ks！部門代碼）、Trim（LS _ Rs _ ks！分行名稱）、3、4
如果…就會結束
LS_Rs_ks。下壹步
環
TV_KS。節點數（1）。擴展=真
TV_KS。tag =“zy _ ks“
TV_KS。節點數（1）。選定=真
示例2:
公共子載荷數據（）
數據加載
暗淡的我只要
將J標註為整數
Dim索引壹樣長
將rsWH調成新的ADODB。記錄集
加載壹級菜單
電視。節點。清除
rsWH。CursorLocation = adUseClient
RsWH。打開“按主題排序從dict_czyb中選擇不同的主題”，dbmainconnect，adopenstatic，adlockreadonly。
如果rsWH。EOF和rsWH。BOF然後退出接頭
直到rsWH。文件結束
用電視
。Nodes.Add，Trim（rsWH！【Kebie】）+“n”，rsWH！【分行】，1，2
J = J + 1
rsWH。下壹步
以…結尾
環
加載二級菜單
對於I = 1到J
如果rsWH。State = adStateOpen然後rsWH。關閉
rsWH。CursorLocation = adUseClient
RsWH。打開“select distinct code，name from dict _ czyb where =‘“+left（TV。節點（壹）。鍵，len（電視。節點（壹）。key）-1）+“‘”，dbmainconnect，adopenstatics，adlockreadonly。
Do While Not rsWH文件結束
if Trim（rsWH！& amp &““）& lt；& gt”“那麽
電視。節點。添加I，tvwChild，，Trim（rsWH！姓名）、3、4
如果…就會結束
rsWH。下壹步
環
接下來我
rsWH。關閉
設置rsWH = Nothing
末端接頭