我用动态查询做了一个报表,但是Preview只显示一条记录,不知道什么原因,代码如下:
DBQuery: TADOQuery;try
begin
strQuery:='……';
DBQuery.Close;
DBQuery.SQL.Clear;
DBQuery.SQL.Add(strQuery);
DBQuery.Open; //绑定字段
qrtxtQueryNO.DataField:='……';
……
end;
except
on E:Exception Do
Application.MessageBox(PChar(E.Message),PChar(Application.Title),MB_OK);
end;
DBQuery: TADOQuery;try
begin
strQuery:='……';
DBQuery.Close;
DBQuery.SQL.Clear;
DBQuery.SQL.Add(strQuery);
DBQuery.Open; //绑定字段
qrtxtQueryNO.DataField:='……';
……
end;
except
on E:Exception Do
Application.MessageBox(PChar(E.Message),PChar(Application.Title),MB_OK);
end;
解决方案 »
- 200分========求dbGridEh显示的问题
- 品牌->系列->型号,中文名称,价格: 这种多重子表中,在设置中怎样才是最方便最容易被客户接受的呢??
- 请教!!!
- 分数太多,分些给大家
- 那位高人能给我仔细说一下记录和指针????????????
- ShortCutToKey的问题
- 新手的问题
- 多线程操作数据库,在线程内创建ADO控件但线程结束后ADO控件不能被完全释放,运行过程中内存不断增加
- datasnap做的android手机服务程序不稳定
- var a:float; 这样生明一个变量为什么不行阿!
- 请各位大虾!这个对象怎么释放啊,帮帮忙吧!
- 求教一简单SQL语句,解决马上给分,在线等待
我要对字段做处理,在字段绑定的TQRDBText对象中的OnPrint事件中做处理,但没有得到应有的效果,代码如下:
procedure TfrmQRTracking.qrtxtBResolvedPrint(sender: TObject;
var Value: String);
begin
case Integer(Value) of
0:Value:='No';
1:Value:='Yes';
else
Value:='';
end;
IF Value='1' THEN VALUE:='YES';
IF Value=' ' THEN VALUE:=' ';
IF Value='1' THEN VALUE:='YES';
IF Value=' ' THEN VALUE:=' ';
IF Value='1' THEN VALUE:='YES';
IF Value=' ' THEN VALUE:=' ';