了解Ehlib的高手请进 针对DBGridEh怎样对没有挂数据库字段的列进行赋值操作?即(FieldName='') 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有啊DBGridEh1.Columns[0].FieldName:='第一列'; 我不一定是高手,如果是想在表格中填值,可以在OnDrawColumnCell事件中处理。 我的意思是FieldName的值为空,即不挂数据字段那怎样对其中的行进行操作,即进行赋值 1、新建工程;2、在Form1中放Table1,datasource1,dbgrid1;3、设置数据库联接Table1.databasename='DBDEMOS',tablename='custoly.db'3、在dbgrid中加3个column,前面两个连数据,在OnDrawColumnCell事件写程序。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids;type TForm1 = class(TForm) DBGrid1: TDBGrid; Table1: TTable; DataSource1: TDataSource; procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);begin if Column.FieldName='' then begin DBGrid1.Canvas.TextOut(rect.Left,rect.Top,'测试'); end;end;end. Merry Christmas 有没有一种控件可以实现如下功能???在线等! 一个image,在它上面的Canvas上绘图,如何当绘图较大时,能加上滚动条? 大家都来讨论一下界面美化地问题 请问,怎样用编程方法实现tracert命令??? 寻求MPG4编码源代码! 我编了一个多层数据库的软件,在没有Delphi的机器上无法运行,为什么? 原生ADO快还是TADOConnection控件快?为什么? 找人写个广告插件 急问如何打印dbgrid控件里的数据和form上的内容? 请问Win98DCOM服务器在哪? 高手帮忙,怎样把用DELPHI 5. 0写的程序,转到DELPHI 6.0中
DBGridEh1.Columns[0].FieldName:='第一列';
如果是想在表格中填值,可以在OnDrawColumnCell事件中处理。
那怎样对其中的行进行操作,即进行赋值
2、在Form1中放Table1,datasource1,dbgrid1;
3、设置数据库联接Table1.databasename='DBDEMOS',
tablename='custoly.db'
3、在dbgrid中加3个column,前面两个连数据,在OnDrawColumnCell事件写程序。unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids;type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
Table1: TTable;
DataSource1: TDataSource;
procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName='' then
begin
DBGrid1.Canvas.TextOut(rect.Left,rect.Top,'测试');
end;
end;end.