辛巴德人设描写:在DBGRID里添加行序号

来源：百度文库 编辑：偶看新闻 时间：2024/07/05 13:51:28

在DBGRID里添加行序号

分类： Delphi 2008-10-08 08:50 297人阅读 评论(0) 收藏 举报
  1. //  1. create new blank field in dbgrid
  2. //  2. rename the title with 'No'
  3. //  3. put this code in OnDrawColumncell
  4. //  4. Now your Grid has a row number
  6. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  7.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
  8. begin
  9.   if DataSource1.DataSet.RecNo > 0 then
  10.   begin
  11.     if Column.Title.Caption = 'No' then
  12.       DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
  13.   end;
  14. end;
分享到：
谁知道在VB6.0里如何添加DBGRID控件？注意：不是DATAGRID啊 请问在EXCEL里如何自动添加序号 如何动态添加dbgrid中的显示列? 有哪位高手知道在VB6.0里怎么把DBGRID输出到EXCEL里啊?? 在excel里如何产生序号？ 排序(把序号填在括号里) 选择正确答案的序号填在( )里 C＋＋ builder Query查询得来的数据在DBGrid里不能修改吗？ 求教：我的VB6.0里不能添加DBGrid控件，部件里没有Microsoft data Gtid control 5.0这一项，是怎么回事儿 关于在VC++中的DBGrid控件问题 破折号的作用，将序号填在括号里 如何查看瑞星的升级序号在哪个文件里 谁有在图片上自动按顺序添加序号1、2、3、4～～～的 VB中如何删除DBGrid指定行 在blog里添加照片 在CS里添加背景音乐？？ word怎么样设置自动添加序号? 在delphi中如何让DBGRID中的内容显示出来 如何在Excel中选中特定序号的多行？ 下面各句中的破折号有什么作用？把正确的序号填在括号里。 下面各句中的破折号有什么作用？把正确的序号填在括号里。 下面句子用了什么修辞手法?把序号填在( )里 字典里的表义项的序号在WORD怎么打? 请问高手：怎样在Word里的表格各行前自动生成序号啊？