안녕하세요?
델 초보인데요 필드값이 'A'면 FlatCheckList에 체크를
하고 싶은 도저히 안되는군요 제발 좀 도와 주세요 소스는요
Dm1.CatTable1.First;
ChkVal:=0;
while Not Dm1.CatTable1.Eof do
Begin
If StrToInt(Gono) = Dm1.CatTable1.FieldByName('Cno').AsInteger Then
Begin
RdVal:=RdVal+1;
G32_ProgressBar1.Position:=RdVal;
KindFish:=Trim(Dm1.CatTable1.FieldByName('Cbd').AsString);
//LenNm:=length(KindFish);
LenSp:='';
//For Lencn:=1 to (10-LenNm) Do
// LenSp:=LenSp + '';
FlatCheckListBox1.Items.Add(KindFish+Lensp+
(Dm1.CatTable1.FieldByName('Cdt').AsString)+' '
+(Dm1.CatTable1.FieldByName('Cti').AsString)+' '
+(Dm1.CatTable1.FieldByName('Cpl').AsString));
// ShowMessage(inttostr(FlatCheckListBox1.ItemIndex)); -> 계속 -1만
If (Trim(Dm1.CatTable1.FieldByName('Cpl').AsString) = '보관') Then
Begin
FlatCheckListBox1.Checked[FlatCheckListBox1.Items.Count]:=True;
--> 이 부분이 안되요
End;
End ;
Dm1.CatTable1.Next;
nd;