integer li_FileNum
string ls_file_swap
long i,j
li_FileNum = FileOpen("D:\PB制作\zuixin\1.txt", lineMode!, Write!, LockWrite!, Append!)
dw_1.setsort('city,tmpname,tmpadd,dhgsh,tmptel_1,zj,cls,bianma,tmpname1,tmpname2,beizhu,jibie,city1,cls1,bianma1,isok,sfjd')
//
dw_1.sort()
j = dw_1.rowcount()
if j>0 then
ls_file_swap =dw_1.getitemstring(1,'city') +""+dw_1.getitemstring(1,'tmpname')+""+ dw_1.getitemstring(1,'tmpadd') + ""+dw_1.getitemstring(1,'tmptel_1')
for i = 2 to j
if dw_1.getitemstring(i,'tmpname') = dw_1.getitemstring(i - 1,'tmpname') then
//如果公司名稱相同，則取出下列欄位
ls_file_swap = ls_file_swap + "~r~n" + dw_1.getitemstring(i,'dhgsh') +""+dw_1.getitemstring(i,'tmptel_1')+""+string(dw_1.getitemnumber(i,'zj'))+""+dw_1.getitemstring(i,'cls')&
+""+dw_1.getitemstring(i,'bianma')+""+dw_1.getitemstring(i,'tmpname1')+""+dw_1.getitemstring(i,'tmpname2')+""+string(dw_1.getitemnumber(i,'jibie'))+""+dw_1.getitemstring(1,'beizhu')&
+""+dw_1.getitemstring(1,'city1')+""+dw_1.getitemstring(1,'cls1')+""+dw_1.getitemstring(1,'bianma1')+""+string(dw_1.getitemnumber(i,'Isok'))+""+string(dw_1.getitemnumber(i,'sfjd'))
else
//如果不相同，則取出下列欄位并另起一行
ls_file_swap = ls_file_swap + "~r~n" + dw_1.getitemstring(1,'city') +""+dw_1.getitemstring(i,'tmpname') +"" + dw_1.getitemstring(i,'tmpadd') + "" +dw_1.getitemstring(i,'tmptel_1')
end if
FileWrite(li_FileNum, ls_file_swap)
next
end if
當dhgsh有幾個時它就重復幾次。
就像這樣.不知道到底回圈錯在什么地方了。怎么會成這樣。大蝦幫幫我!!!
XX衛生院 XX鄉高村街 64900173
XX衛生院 XX鄉高村街 64900173
科室部 64900203
XX衛生院 XX鄉高村街 64900173
科室部 64900203
門診骨科 64900132
XX衛生院 XX鄉高村街 64900173
科室部 64900203
門診骨科 64900132
內科門診 64900073
這里只列出了其中的一些列。本來想要的結果應該是這樣的
XX衛生院 XX鄉高村街 64900173
科室部 64900203
門診骨科 64900132
內科門診 64900073
可是事與愿違啊。郁悶。。。。。
uj5u.com熱心網友回復：
if比較和dw_1.getitemstring(1,'city')
有問題！
用一個變數保存tmpname 方便點
string sname
j = dw_1.rorcount()
if j>0 then
sname = dw_1.object.tmpname[1]
ls_file_swap =dw_1.getitemstring(1,'city') +""+dw_1.getitemstring(1,'tmpname')+""+ dw_1.getitemstring(1,'tmpadd') + ""+dw_1.getitemstring(1,'tmptel_1')
for i = 2 to j
if snam = dw_1.object.tmpname[i]
ls_file_swap = ls_file_swap + "~r~n" + dw_1.getitemstring(i,'dhgsh') 。。。
else
ls_file_swap = ls_file_swap + "~r~n" + dw_1.getitemstring(i,'city') +""+dw_1.getitemstring(i,'tmpname') +"" + dw_1.getitemstring(i,'tmpadd') + "" +dw_1.getitemstring(i,'tmptel_1')
snam = dw_1.object.tmpname[i]
next
end if
再除錯看看吧！
uj5u.com熱心網友回復：
很麻煩吧.把內容導進一個資料表中，然后根據業務需求，進行distinct和having count(*)>1就行了。
uj5u.com熱心網友回復：
可以直接建個group型別的dw 按前兩列分組保存時直接dw_group.saveas("D:\PB制作\zuixin\1.txt", text!, FALSE)
uj5u.com熱心網友回復：
做一個表,用SQL來寫,簡單方便好多uj5u.com熱心網友回復：
lz要干嘛？轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/113634.html
標籤：數據庫相關