تواجهني مشكلة في IndexName

[medreg]

ربما أدركت الخطأ
انظر الى الكود السابق ستجده على هذا الشكل

PHP كود :

ربما قد ادركت الخطأ وهو كان :
الكود السابق كان هكذا

procedure TFrmProbleme.FormActivate(Sender: TObject);
begin
If CheckBox1.Checked=False Then
DBLookupComboBox1.Enabled:=False;
 Table2.Open;
 Table2.IndexName:='';
 Table2.MasterFields:='';
 Table2.MasterSource:=nil;
 Table2.Next;

 RadioGroup1.ItemIndex:=0;
 CheckBox1.Checked:=False;

Table1.Open;
Table2.Open;

If CheckBox2.Checked=False Then
DBLookupComboBox2.Enabled:=False;
 ABSTable2.Open;
 ABSTable2.IndexName:='';
 ABSTable2.MasterFields:='';
 ABSTable2.MasterSource:=nil;
 ABSTable2.Next;

 RadioGroup2.ItemIndex:=0;
 CheckBox2.Checked:=false;

ABSTable1.Open;
ABSTable2.Open;

end; 


اما للكود الحالي والذي اشتغل 100/100 بدون خطأ هو على هذا الشكل

PHP كود :

procedure TFrmProbleme.FormActivate(Sender: TObject);
begin
If CheckBox1.Checked=False Then
DBLookupComboBox1.Enabled:=False;
 Table2.Open;
 Table2.IndexName:='';
 Table2.MasterFields:='';
 Table2.MasterSource:=nil;
 Table2.Next;

 RadioGroup1.ItemIndex:=0;
 CheckBox1.Checked:=False;

Table1.Open;
Table2.Open;

If CheckBox2.Checked=False Then
DBLookupComboBox2.Enabled:=False;
 ABSTable2.Open;
 ABSTable2.IndexName:='FACT01';
 ABSTable2.MasterFields:='Cde_Mois';
 ABSTable2.MasterSource:=DataSource3;
 ABSTable2.Next;

 RadioGroup2.ItemIndex:=0;
 CheckBox2.Checked:=false;

ABSTable1.Open;
ABSTable2.Open;

end; 


على ما أظن هذا هو سبب الخطأ