hallo!
habe ein problem.
habe eine
sql datenbank in einem dbgrid.
wenn ich dann aber die datensätze (z.b. kundennr.) auf ein anderes grid übernehmen möchte, muss der datensatz auf doppelte nummern oder leere felder geprüft werden. das heisst, wenn die kundennr. doppet vorkommt, muss die dann in das memo und der leere datensatz auch.
das mit der doppelten nummer habe ich hingekriegt aber die leeren felder macht er nicht. habe eine 2. if-Abfrage eingebaut, aber irgendwie funktionier die nicht.
Bitte helft mir.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
wwQuery1.First;
while not wwQuery2.Eof do
begin
wwQuery2.Delete;
end;
while not wwQuery1.Eof do
begin
if wwQuery2.Locate('KdNr',wwQuery1.FieldByName('KNUMMER').AsInteger,[])
then
begin
if not FileExists('KdNr') then
begin
Memo1.Lines.add(wwQuery1.FieldByName('KNUMMER').AsString);
end
else
begin
wwQuery2.Insert;
wwQuery2.FieldByName('KdNr').AsInteger:=
wwQuery1.FieldByName('KNUMMER').AsInteger;
wwQuery2.Post;
end;
wwQuery1.Next;
end;
end;
end.
[edit=Sakura]DELPHI Tags[/edit]