在comboboxchange下
case combobox1.itemindex of
0: begin table1.tablename:='001.db';table1.active:=true;end;
1: begin table1.tablename:='002.db';table1.active:=true;end;
2: begin table1.tablename:='003.db';table1.active:=true;end;
为什么点击菜单时总是出错!!
case combobox1.itemindex of
0: begin table1.tablename:='001.db';table1.active:=true;end;
1: begin table1.tablename:='002.db';table1.active:=true;end;
2: begin table1.tablename:='003.db';table1.active:=true;end;
为什么点击菜单时总是出错!!
代码应该改一下
case combobox1.itemindex of
0: begin table1.close;table1.tablename:='001.db';table1.active:=true;end;
1: begin table1.close;table1.tablename:='002.db';table1.active:=true;end;
2: begin table1.close;table1.tablename:='003.db';table1.active:=true;end;