怎么把数据库中的字段添加到cxGrid1TableView1中?
cxGrid1TableView1.DataController.Values[1,0] := ......
cxGrid1TableView1.DataController.Values[1,0] := ......
解决方案 »
- 最近要搞WORD电子签名,没搞懂原理
- 关于MODEM编程问题(急)!!!!!
- 请教一个多线程的写法
- 如何在MaskEdit中设置默认值?
- 请问delphi里面由ip得到域名的操作?
- 关于时间查询类型的问题,急,在线等!
- 在ole容器中创建了Excel对象,但程序结束后,excel进程却释放不掉,请高手帮忙
- LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?LBSOFT?
- 在QuickReport上放QRdbtext对象(用代码方式)???如何办呀????
- 一个三层问题,不知如何解决?
- 它的窗口叫什么名字?
- delphi中图片保存后再使DBIMAGE显示总提示‘BITMAP IMAGE IS NOT VOLID'
1.
[code=Delphi(Pascal)]cxGrid1DBTableView1Column1.DataBinding.FieldName:='CHK';
2.cxgrid-->customize...-->Columns->add(如cxGrid1DBTableView1Column1)->DataBinding->FieldName(填寫數據庫字段名);[/code]
3.打開:
procedure TRes_Cq_QjSh_F.LoadHrdDatas;
begin
qry_approqj.Close;
qry_approqj.SQL.Clear;
qry_approqj.SQL.Add( ' select * from RES_HR_RSQJ where (FLAG=1 or FLAG=2) and SQRQ>=CONVERT(nvarchar(20),GETDATE(),111) Order by SQRQ,GH,ZXB,CBZX desc ' );
qry_approqj.Open;
end;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from xxx');
end;
if adoquery1.recordcount>0 then
begin
cxGrid1TableView1.DataController.RecordCount:=3;
for i:=0 to adoquery1.recordcount-1 do
begin
cxGrid1TableView1.DataController.Values[i,0]:='11111';
cxGrid1TableView1.DataController.Values[i,1]:='22222';
cxGrid1TableView1.DataController.Values[i,2]:='113333111';
end;
end;
ADOQuery1.sql.Add(sSQL1);
ADOQuery1.Open;
if ADOQuery1.recordcount>0 then
begin
cxGrid1TableView1.DataController.RecordCount:=2;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
cxGrid1TableView1.DataController.Values[i,0]:=ADOQuery1.FieldByName('AAA').asstring;
cxGrid1TableView1.DataController.Values[i,1]:=ADOQuery1.FieldByName('BBB').asstring;
// cxGrid1TableView1.DataController.Values[i,2]:='113333111';
end;
end;
在循环里边千万不要使用FieldByName, 效率奇差。
你这个让我汗颜了
换成fieldbyname.asstring就可以了啊