递归表中所有字段名，怎么做，请教大家？,还有一个问题：怎么清出cxGrid1DBTableView1的显示

Question

递归表中所有字段名，怎么做，请教大家？,还有一个问题：怎么清出cxGrid1DBTableView1的显示procedure TForm1.Button1Click(Sender: TObject);   //再次点击是列名重复了
begin
ADODataSet1.Close;
ADODataSet1.CommandText:='select * from employeeData';
ADODataSet1.Open;
cxGrid1DBTableView1.CreateColumn.DataBinding.FieldName:='工号';
cxGrid1DBTableView1.CreateColumn.DataBinding.FieldName:='姓名';
end;

Answer 1

DataController.DataSource := nil;

Answer 2

做循环,
I:=0 to ADODataSet1.fieldcount -1 do
begin
end;

Answer 3

问题已解 with cxGrid1DBTableView1 do
                 begin
                 (DataController as IcxCustomGridDataController).DeleteAllItems;
                 (DataController as IcxCustomGridDataController).CreateAllItems;
                 end;