代码有控制,就这个表单的代码里面:
procedure TTASKGRID.ReloadColumns;
var
I: Integer;
C: TDataGroupListColumn;
begin
for I := 0 to DataGrid.ColumnCount - 1 do
begin
C := DataGrid.Columns[I];
C.Visible := (i<2) and TaskIndexData.DataSet.FieldByName(C.FieldName).Visible and
StrUtils.AnsiMatchText(C.FieldName, Info.BrowseFieldNames);//这个是我修改过的(i<2)
end;