Ich habe folgendes Problem, ich habe eine
DB Paradox, eine Checklistbox und eine DBGrid. Wenn ich ich die Einträge in der Checklistbox markiere (checked = true), dann werden die markierten Einträge in der
DB gespeichert (unzwar in der Form Test1 Test2 Test3 usw.).
Das klappt ja auch wunderbar aber wie stelle ich das an, das wenn ich in der DBGrid den Eintrag wieder aufrufe, in der Checkbox wieder diese Einträge markiert werden? Wenn in der
DB nur 1 Eintrag steht bekomme ich das ja hin aber sobald 2 oder mehr trin stehen ist geht es nicht mehr.
Code:
For i:= 0 To Form1.CheckListBox1.Count-1 Do
if Form1.CheckListBox1.Checked[i] = true Then
begin
a:= Form1.Label1.Caption+' '+Form1.CheckListBox1.Items.Strings[i];
Label1.Caption:= a;
end;
Form1.Query1.FieldByName('Art').AsString:= Label1.Caption;
Form1.Query1.FieldByName('Name').AsString:= Edit2.Text;
Form1.Query1.Post;
Und um den Eintrag in der Checklistbox wieder zu markieren, habe ich mir folgendes ausgedacht aber das geht wie gesagt nur, wenn 1 Eintrag in der
DB vorhanden ist.
Code:
For i:= 0 To CheckListBox1.Count-1 Do
Begin
If Form1.Query1.FieldByName('Art').AsString = ' '+Form1.CheckListBox1.Items.Strings[i] Then
Form1.CheckListBox1.Checked[i]:= True;
end;