上此发帖,一个礼拜都没有人回,这次再次提问
如果dbgrid中某些栏位使用红色标注的,当把dbgrid中资料存到excel中的时候,希望这些颜色属性也保存进取,怎么做到?就是说,如果dbgrid显示的这个cell是红底黄字,那么存到excel中的时候也是红底黄字,拜托各位了!
如果dbgrid中某些栏位使用红色标注的,当把dbgrid中资料存到excel中的时候,希望这些颜色属性也保存进取,怎么做到?就是说,如果dbgrid显示的这个cell是红底黄字,那么存到excel中的时候也是红底黄字,拜托各位了!
解决方案 »
- delphi 进度条
- 超值的分数,奇怪的问题,MessageDialog:怎样让字符串不换行显示!!!!! 请各位大虾出招
- 各位大哥,怎样让客户端发送文件到服务端存到指定磁盘
- 已知一个程序中的一个edit的句丙,怎样可以读到这个edit中的字符串?
- 如何读出存储过程的返回值(不是记录是变量的形式)
- 建立TCP连接
- 我用ADOStoreProc 控件进行数据查询并把查询结果显示在DBGRID控件中,现在因需要我改变了存储过程,重新运行程序但显示在DBGRID控件中数据
- 80分寻求一控件!!
- 急!急!急!请问如何将一个网页存下来
- 如何获取自己收件箱中的各邮件?
- 在Delphi7 中如何把数据传到 水晶报表中?
- 如何检测互联网上某一个文件地址有效??????????????
这就是这样做的,用流速度很快的.
if dbgridname.Columns[I].Visible=False then
Continue;
Sheet.Cells[J,I+1] := trim(dbgridname.DataSource.DataSet.Fieldbyname(dbgridname.Columns[i].FieldName).asstring);
//关键是下面两句,一句是改变字体颜色,第二句是改变底色,至于颜色的号,你自己试着调 Sheet.Cells[J,I+1].font.ColorIndex := 3;
sheet.Cells[J,I+1].Interior.ColorIndex := 50
end;