这种样式是哪个控件实现的? 这种样式是哪个控件实现的? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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是需要合并的单元格 如果只读,stringgrid自画也可以 用cxgrid可以,只要将'产品'那列的options.CellMerging:=true就行了(当然了,数据集要以‘产品’排序) 请教:Form的OnDestroy事件中的代码执行次序 怎样把搜索到得数据保存在变量里 摸拟点击的问题 panel 控件数组的问题 高分求助! 为什么使用Olecontainer控件开了一个word,切换到另外一个word事例(本地运行一个word),再切换回来Olecontainer控件中的word,所有的操作就 BatchMove.Execute后不释放内存问题 需用您的帮助—软件测试(有偿)--2 怎么取得CppWebBrowser里的内容? 我今天做的程序失败了,请大家帮帮我吧!!!谢谢了!!! 搞编程是否需要翻墙? delphi与C++相差的几个技术点,大家是怎么解决的?
发段代码你试试,是基于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是需要合并的单元格