这种样式是哪个控件实现的?

解决方案 »

  1.   

    DBrideh也可以,这就是单元格合并而已。
    发段代码你试试,是基于DBrideh的,其他的应该类似procedure MergeShow(FieldName: string);
    var
      sl: TStringList;
      i: Integer;
    begin
      sl := TStringList.Create;
      try
        DelimiteString(sl, FieldName, ';');
        for i := 0 to sl.Count - 1 do
        begin
          dbgrdh1.FieldColumns[sl[i]].HideDuplicates := True;
        end;  
      finally
        sl.Free;
      end;
    end;
    //在刷新Grid后加上
    MergeShow('字段1;字段2;字段3);  //字段1,2,3是需要合并的单元格
      

  2.   

    如果只读,stringgrid自画也可以
      

  3.   

    用cxgrid可以,只要将'产品'那列的options.CellMerging:=true就行了(当然了,数据集要以‘产品’排序)