盒子论坛 v2.1

我将原来的程序用的dbgrid控件(name属性dbgrid1)更换为dxdbgrid控件(name属性dxdbgrid1)后，改编以下的源码出现了一点麻烦。

源代码：

function Tpp3.createColumn(dbgrid1:tdbgrid):TDBGridColumn;
begin
  result:=findColumnOfFieldName(dbgrid1,ppname);
  if result=nil then
  begin
    result:=dbgrid1.Columns.Add;
    result.FieldName:=ppname;
    result.Title.caption:=ppchnname;
  end;
end;

改编后的代码：

function Tpp3.createColumn(dxdbgrid1:tdxdbgrid):TdxDBGridColumn;
begin
  result:=findColumnOfFieldName(dxdbgrid1,ppname);
  if result=nil then
  begin
    result:=dxdbgrid1.GroupColumns.Create;  //这一行存在问题
    result.FieldName:=ppname;
    result.Title.caption:=ppchnname;
  end;
end;

其中 result:=dxdbgrid1.GroupColumns.Create;  这一行存在问题，应该是属性和方法选择得不对。但我不知道如何修改，多谢高人指点！在线等！！谢谢！！！！

----------------------------------------------
-

信息

登陆以后才能回复