为了在grid的左侧显示一个序列号,有如下语句:
ADOQuery1.SQL.Add('Select 1 as 序号,....);
在DBGridEh1DrawColumnCell事件里:
with DBGridEh1.DataSource.DataSet do
if DataCol = 0 then//第一列
if RecNo > 0 then
DBGridEh1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
现在的问题是:
PrintDBGridEh.Preview(or print)的时候,左侧的一列"序号"都是"1",怎么能让"序号"在打印的时候也从1开始递增呢?
好有没来了,顺便散分!!!希望大家不要忘了我...呵呵...
ADOQuery1.SQL.Add('Select 1 as 序号,....);
在DBGridEh1DrawColumnCell事件里:
with DBGridEh1.DataSource.DataSet do
if DataCol = 0 then//第一列
if RecNo > 0 then
DBGridEh1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(RecNo));
现在的问题是:
PrintDBGridEh.Preview(or print)的时候,左侧的一列"序号"都是"1",怎么能让"序号"在打印的时候也从1开始递增呢?
好有没来了,顺便散分!!!希望大家不要忘了我...呵呵...
解决方案 »
- delphi如何实现像C++的fgets 读取一行功能的函数?
- 极其怪异的问提,不能设断点,内存混乱
- 重新开启SQL服务器DELPHI程序可否自动连接上Sql服务器?????
- 没有人回答我的问题,我好伤心啊
- 求救!!!,关于注册第三方组件的问题??
- 请问怎样把桌面上正在播放的媒体视频采集到自己程序上呢?
- 又没有什么类似面板的控件,可以让用户在使用时拖来拖去
- TDataSource组件的onDataChange事件是什么用途的
- 各位:笔记本电脑的英文应该怎么说?
- 请教:如何在程序中动态增加类似在FIELDS EDITOR中设置的字段?
- 做过数据库同步的请进。。。
- ★关于“错误信息”的捕捉问题???
adoquery1.FieldByname('A').asinteger:=adoquery1.recno
就是这个memo的内容是“[LINE#]”,括号内的东西,就这样可以了。以上经过测试。
XXXX年XX月XX日?!
例子里有,不过不知道怎么弄?