OBJ_ID GYBZ
2496 割()
2496 铆()
2496 刨()
2496 钳()
2496 铣()
2496 检()
2502 铆(/)
2502 焊(/)
2502 焊(/)
2502 钳(/)
2502 钳(/)
2502 检(/)
2504 割()
2504 铆()
2504 铆()
2504 钳()
2504 车()
2504 车(/)
2504 检(/)
转换成如下格式:OBJ_ID GYBZ
2496 割() 铆() 刨()
2502 铆(/) 焊(/) 焊(/) 钳(/) 钳(/) 检(/)
2504 割() 铆() 铆() 钳() 车() 车(/) 检(/)
是ACCESS数据库,用程序也可以,帮帮忙!多谢了
2496 割()
2496 铆()
2496 刨()
2496 钳()
2496 铣()
2496 检()
2502 铆(/)
2502 焊(/)
2502 焊(/)
2502 钳(/)
2502 钳(/)
2502 检(/)
2504 割()
2504 铆()
2504 铆()
2504 钳()
2504 车()
2504 车(/)
2504 检(/)
转换成如下格式:OBJ_ID GYBZ
2496 割() 铆() 刨()
2502 铆(/) 焊(/) 焊(/) 钳(/) 钳(/) 检(/)
2504 割() 铆() 铆() 钳() 车() 车(/) 检(/)
是ACCESS数据库,用程序也可以,帮帮忙!多谢了
2.while not A.eof do
提取group by GYBZ where A.OBJ_ID 结果集 B
3.while not B do
插入新表或临时表
否则MSSQL数据库是不能“识别”的
var
i,j,intSpan,iCount:integer;
strTemp,strTemp1:string;
begin
with ADOQuery do
begin
Close;
SQL.Clear;
SQL.Text:='SELECT OBJ_ID, gzbz from A';
Open;
iCount := RecordCount-1 ;
intSpan :=0;
for i := intSpan to iCount do
begin
strTemp : = FieldByName( 'OBJ_ID').AsString;
for j := i+intSpan+1 to iCount do
begin
Next;
strTemp1 : = FieldByName( 'OBJ_ID').AsString;
if(strTemp==strTemp1)
begin
??????
end;
end;
Next;
end;
end;
end;那位高手再给指导下!谢谢了
”足已看来你没明白?