listview的行号自动读取的问题？

tinkou 2006-06-14 09:16:43

各位大哥我在从数据库中向listview中读数据的时候要在listview中显示行号，怎么自动获取啊，在pb中的数据窗口取得很容易，在vb中怎么做啊，在下先谢谢了，回答出来100分全给他。

...全文

229 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

1111111 2006-06-14

打赏
举报

回复

For i = 0 To 10
List1.AddItem List1.ListCount & "test"
Next

VirtualDesktop 2006-06-14

打赏
举报

回复

你自己建个变量存储行号更好

VirtualDesktop 2006-06-14

打赏
举报

回复

List1.ListCount

Delphi ListView基本用法大全（转）默认分类 2009-09-29 09:27:56 阅读138 评论0 字号：大中小订阅 Delphi高级编程 Delphi文章 WEB开发 Delphi控件 Delphi ListView基本用法大全作者:seeker 日期:2009-04-19 //增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[2].Width:=300; Listview1.ViewStyle:=vsreport; Listview1.GridLines:=true; //注:此处代码也可以直接在可视化编辑器中完成, 也可写成以下这样 begin with listview1 do begin Columns.Add; Columns.Add; Columns.Add; ViewStyle:=vsreport; GridLines:=true; columns.items[0].caption:='进程名'; columns.items[1].caption:='进程ID'; columns.items[2].caption:='进程文件路径'; Columns.Items[0].Width:=100; Columns.Items[1].Width:=100; Columns.Items[2].Width:=150; end end; //增加记录 with listview1.items.add do begin caption:='1212'; subitems.add('hh1'); subitems.add('hh2'); end; //删除 listview1.items.delete(0); //从数据库表里读取数据写入Listview var Titem:Tlistitem; //此处一定要预定义临时记录存储变量. begin ListView1.Items.Clear; with adoquery1 do begin close; sql.Clear; sql.Add('select spmc,jg,sl from kcxs'); Open; ListView1.Items.Clear; while not eof do begin Titem:=ListView1.Items.add; Titem.Caption:=FieldByName('spmc').Value; Titem.SubItems.Add(FieldByName('sl').Value); Titem.SubItems.Add(FieldByName('jg').Value); next; end; //删除 ListView1.DeleteSelected; //如何取得ListView中选中行的某一列的值 procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(ListView1.Selected.SubItems.Strings[1]); //返回选中行第三列中的值 end; showMessage(listView1.Selected.Caption); //返回选中行第一列的值. 第1列的值： -->>> ListView1.Selected.Caption 第i列的值(i>1):-->>> ListView1.Selected.SubItems.Strings[i] ListView1.Items.Item[1].SubItems.GetText); //取得listview某行某列的值 Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列返回选中行所有子列值.是以回车符分开的，你还要从中剥离出来你要的子列的值。 showMessage(ListView1.Selected.SubItems.GetText); ListView 简单排序的实现 ListView 排序怎样实现单击一下按升序,再单击一下按降序。 function CustomSortProc(Item1, Item2: TListItem; ColumnIndex: integer): integer; stdcall; begin if ColumnIndex = 0 then Result := CompareText(Item1.Caption,Item2.Caption) else Result := CompareText(Item1.SubItems[ColumnIndex-1],Item2.SubItems[ColumnIndex-1]) end; procedure TFrmSrvrMain.ListView1ColumnClick(Sender: TObject; Column: TListColumn); begin ListView1.CustomSort(@CustomSortProc,Column.Index); end; =============================================================== //增加 i := ListView1.Items.Count; with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:= IntToStr(i); ListItem.SubItems.Add('第 '+IntToStr(i)+' 行'); ListItem.SubItems.Add('第三列内容'); end; //按标题删除 for i:=ListView1.Items.Count-1 downto 0 Do if ListView1.Items[i].Caption = Edit1.Text then begin ListView1.Items.Item[i].Delete(); //删除当前选中行 end; //选中一行 if ListView1.Selected <> nil then Edit1.Text := ListView1.Selected.Caption; // listview1.Items[Listview1.Items.Count -1].Selected := True; // listview1.Items[Listview1.Items.Count -1].MakeVisible(True); procedure TForm1.Button2Click(Sender: TObject); // 选择第一条 begin listview1.SetFocus; listview1.Items[0].Selected := True; end; procedure TForm1.Button1Click(Sender: TObject); // 选择最后一条 begin listview1.SetFocus; listview1.Items[Listview1.Items.Count -1].Selected := True; end; //这是个通用的过程 procedure ListViewItemMoveUpDown(lv : TListView; Item : TListItem; MoveUp, SetFocus : Boolean); var DestItem : TListItem; begin if (Item = nil) or ((Item.Index - 1 < 0) and MoveUp) or ((Item.Index + 1 >= lv.Items.Count) and (not MoveUp)) then Exit; lv.Items.BeginUpdate; try if MoveUp then DestItem := lv.Items.Insert(Item.Index - 1) else DestItem := lv.Items.Insert(Item.Index + 2); DestItem.Assign(Item); lv.Selected := DestItem; Item.Free; finally lv.Items.EndUpdate; end; if SetFocus then lv.SetFocus; DestItem.MakeVisible(False); end; //此为调用过程，可以任意指定要移动的Item，下面是当前(Selected)Item ListViewItemMoveUpDown(ListView1, ListView1.Selected, True, True);//上移 ListViewItemMoveUpDown(ListView1, ListView1.Selected, False, True);//下移 TListView组件使用方法引用CommCtrl单元 procedure TForm1.Button1Click(Sender: TObject); begin ListView_DeleteColumn(MyListView.Handle, i);//i是要删除的列的序号，从0开始 end; 用LISTVIEW显示表中的信息： procedure viewchange(listv:tlistview;table:tcustomadodataset;var i:integer); begin tlistview(listv).Items.BeginUpdate; {listv:listview名} try tlistview(listv).Items.Clear; with table do {table or query名} begin active:=true; first; while not eof do begin listitem:=tlistview(listv).Items.add; listitem.Caption:=trim(table.fields[i].asstring); // listitem.ImageIndex:=8; next; end; end; finally tlistview(listv).Items.EndUpdate; end; end; ListView使用中的一些要点。以下以一个两列的ListView为例。 →增加一行： with ListView1 do begin ListItem:=Items.Add; ListItem.Caption:='第一列内容'; ListItem.SubItems.Add('第二列内容'); end; →清空ListView1： ListView1.Items.Clear; →得到当前被选中行的行的行号以及删除当前行： For i:=0 to ListView1.Items.Count-1 Do If ListView1.Items[i].Selected then //i=ListView1.Selected.index begin ListView1.Items.Delete(i); //删除当前选中行 end; 当然，ListView有OnSelectItem事件,可以判断选择了哪行,用个全局变量把它赋值出来。 →读某行某列的操作： Edit1.Text := listview1.Items[i].Caption; //读第i行第1列 Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列 Edit3.Text := listview1.Items[i].SubItems.strings[1]; //读第i行第3列以次类推，可以用循环读出整列。 →将焦点上移一行： For i:=0 to ListView1.Items.Count-1 Do If (ListView1.Items[i].Selected) and (i>0) then begin ListView1.SetFocus; ListView1.Items.Item[i-1].Selected := True; end; 不过在Delphi6中，ListView多了一个ItemIndex属性，所以只要 ListView1.SetFocus; ListView1.ItemIndex:=3; 就能设定焦点了。 Delphi的listview能实现交替颜色么？ procedure TForm1.ListView1CustomDrawItem( Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); var i: integer; begin i:= (Sender as TListView).Items.IndexOf(Item); if odd(i) then sender.Canvas.Brush.Color:= $02E0F0D7 else sender.Canvas.Brush.Color:= $02F0EED7; Sender.Canvas.FillRect(Item.DisplayRect(drIcon)); end; 要想随时更改ListView 中某一行的字体颜色，要在ListView的 OnCustomDrawItem 的事件中书写相关的代码。例如我想更改选中的某行字体的颜色，则需要在事件中写入下的代码： if item.Index = strtoint(edit1.Text) then //该条件是用于判断是否符合更改字体颜色的行的条件。 Sender.Canvas.Font.Color := clred;

本DataGridView打印控件和.NET打印控件5.7版2014年11月2日修改完成，完全免费，在.NET2.0及以上环境下都可以使用（VB打印、C#打印都是可以的），有帮助文档与使用实例。与上一版相比，控件5.7版的主要更改如下： 1、重写DataGridView导出Excel的代码，5.7版控件使用开源的NPOI库导出Excel,完全不依赖Office,不会再有因为没装Office或Office安装有问题而导出失败的情况，而且导出速度非常快，支持大于65536条记录的导出（自动分成多个工作表），效果非常好。导出Excel的接口未变，因此您不需要修改任何代码，只需替换控件即可； 2、SimpleReport打印组件添加了导出Excel功能，该功能在打印预览界面的按钮中； 3、多表头组件MulHeaderDataGridView添加了从Excel中导入数据（ImportFromExcel函数）及复制（Copy函数）与粘贴（Paste函数）的功能。其中导入Excel功能使用开源的NPOI组件实现，不依赖Office。 4、其他一些完善，比如解决了导出Excel时强制换行不自动显示，而是要双击才显示问题；导出Excel时，图片能按单元格大小导出。本控件特色： 1、强大的DataGridView打印功能，不仅可以以多种形式（普通打印、分栏打印、跨页打印、工资条打印）打印DGV表格，基本上能完全按DGV控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来，文字图像都可以打印，而且是完全根据表格当前的显示顺序进行打印的，基本上做到了所见即所得的打印。 2、报表设计功能。报表模板设计组件EasyReport可以设计普通报表、分组报表、套打模板等，以DataGridView为数据源。控件的位置以毫米为计量单位，定位准确，很适合套打单据设计。 3、强大的图表打印功能。5.2版控件新增了一个Chartlet的组件，使用非常方便，可以生成柱形图、饼图、折线图等多种图形，而且可以设置2D或3D效果，既可以在打印控件中打印出来，也可以在Graphics对象中显示。 4、分组汇总打印DataGridVeiw功能，每组还可以自动换新页打印，还可以自动增加行号。 5、强大的文本打印输出功能，控件提供多个文本打印重载函数，打印文本时，如果需要，控件会自动换行和换页打印输出。还增加了以指定行间距及字符间距打印文本的功能，可以用固定行距，也可以用单倍或多倍行距打印文本。 6、强大的绘图功能，基本上.NET的GDI+的绘图函数(如直线、矩形、路径、多边形、曲线等)都有，只有个别函数的名称有点区别。 7、支持同一文档多种版面格式打印（类似于Word中的节的功能）：对同一份文档，不同的页面可以设置不同的格式（纸张大小、纸张方向、页边距），只需要在新增一页时在NewPage方法中指定要使用的页面格式即可，使用非常简单。 8、报表文件保存功能。本控件允许将当前打印预览的内容保存为报表文件，以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 9、Excel导出功能，可以将DataGridView导出为Excel文件，5.7版控件使用开源的NPOI导出Excel，速度非常快，效果非常好，5.4版还增加了合并单元格的导出功能。 10、打印DataGridView时的打印方案保存与读取功能。可以将当前打印参数保存为打印方案文件，或者从保存的打印方案文件中读取打印参数。 11、水印打印功能。根据需要，可以在页面中打印或不打印以半透明空心文字打印水印。 12、强大的容器控件打印功能(DrawPanel函数)。借助该函数，您只需要在您的容器控件中设计好要打印的内容及打印内容的相对位置，控件轻松帮你打印出来(如果超过一页，控件会自动换页续打)。 13、特殊文字效果打印功能。控件具有打印浮雕文字、阴影文字、空心文字、块文字的功能。 14、页眉页脚中既可打印文字，也可打印图像，或者即打印图像又打印输出文字。 15、图像与图标打印输出功能。 16、多表头（跨行跨列的复杂表头）打印功能，多表头组件支持多表头显示与打印、单元格内容的合并显示、打印与导出。 17、自定义纸张支持功能。 18、纸张背景图片设置打印功能。 19、.NET4.0支持功能(是单独的一个文件)。 20、直接打印窗口中的TreeView控件功能。 21、打印窗口中的ListView功能。 22、RichTextBox控件的RTF文本打印功能。 23、斜线表头打印功能（5.4版新增）。 24、二维码打印功能（5.5版本增加）。 25、5.6版新增的SimpleReport组件允许您在一个方案文件中管理多个打印方案，在打印预览时能自由在各个打印方案之间切换。 26、5.7版控件增加了使用开源的NPOI从Excel文件中导入数据到DataGridView的功能，以及DataGridView的复制与粘贴功能。我将持续改进该控件，并将不断推出控件的新版本，要查看或下载控件的升级版本，请登陆网站：http://myyouping.download.csdn.net/ 。具体使用方法请参见帮助文件与实例文件，如有疑问或好的建议，请与我联系：邮箱：myyouping@139.com Q Q：479781502

在Android所有常用的原生控件当中，用法最复杂的应该就是ListView了，它专门用于处理那种内容元素很多，手机屏幕无法展示出所有内容的情况。 ListView可以使用列表的形式来展示内容，超出屏幕部分的...

本DataGridView打印控件和.NET打印控件5.6版（含报表模板设计组件）2014年6月22日修改完成，完全免费，在.NET2.0及以上环境下都可以使用（VB打印、C#打印都是可以的），有帮助文档与使用实例。与上一版本的5.5版相比，新控件5.6版的主要更改如下： 1、增加了一个新打印组件SimpleReport组件，该组件与DGVPrint组件一样在运行时可进行打印参数设置，但比DGVPrint组件功能更强大，可以自动管理多个打印方案，在打印预览时可以自由在各个打印方案之间切换；可以在打印参数设置窗口中动态定义多表头，还可以像EasyReport组件一样设置和使用参数变量（具体使用效果参见实例程序）； 2、解决了EasyReport组件在插入变量参数时，变量参数未排序导致查找不方便的问题； 3、在打印预览界面添加了简单的双面打印功能。（打印预览界面工具栏中的“打印\双面打印”菜单）； 4、其他一些完善，比如DGVPrint组件中设置的行高无效等问题。本控件特色： 1、强大的DataGridView打印功能，不仅可以以多种形式（普通打印、分栏打印、跨页打印、工资条打印）打印DGV表格，基本上能完全按DGV控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来，文字图像都可以打印，而且是完全根据表格当前的显示顺序进行打印的，基本上做到了所见即所得的打印。 2、报表设计功能。报表模板设计组件EasyReport与WebEasyReport组件可以设计普通报表、分组报表、套打模板等，分别以DataGridView为数据源。控件的位置以毫米为计量单位，定位准确，很适合套打单据设计。 3、强大的图表打印功能。5.2版控件新增了一个Chartlet的组件，使用非常方便，可以生成柱形图、饼图、折线图等多种图形，而且可以设置2D或3D效果，既可以在打印控件中打印出来，也可以在Graphics对象中显示。 4、分组汇总打印DataGridVeiw功能，每组还可以自动换新页打印，还可以自动增加行号。 5、强大的文本打印输出功能，控件提供多个文本打印重载函数，打印文本时，如果需要，控件会自动换行和换页打印输出。还增加了以指定行间距及字符间距打印文本的功能，可以用固定行距，也可以用单倍或多倍行距打印文本。 6、强大的绘图功能，基本上.NET的GDI+的绘图函数(如直线、矩形、路径、多边形、曲线等)都有，只有个别函数的名称有点区别。 7、支持同一文档多种版面格式打印（类似于Word中的节的功能）：对同一份文档，不同的页面可以设置不同的格式（纸张大小、纸张方向、页边距），只需要在新增一页时在NewPage方法中指定要使用的页面格式即可，使用非常简单。 8、报表文件保存功能。本控件允许将当前打印预览的内容保存为报表文件，以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 9、Excel导出功能，可以将DataGridView和GridView导出为Excel文件，5.2版控件还增加了不依赖Office的导出Excel功能，而且速度非常快，5.4版还增加了合并单元格的导出功能。 10、打印DataGridView时的打印方案保存与读取功能。可以将当前打印参数保存为打印方案文件，或者从保存的打印方案文件中读取打印参数。 11、水印打印功能。根据需要，可以在页面中打印或不打印以半透明空心文字打印水印。 12、强大的容器控件打印功能(DrawPanel函数)。借助该函数，您只需要在您的容器控件中设计好要打印的内容及打印内容的相对位置，控件轻松帮你打印出来(如果超过一页，控件会自动换页续打)。 13、特殊文字效果打印功能。控件具有打印浮雕文字、阴影文字、空心文字、块文字的功能。 14、页眉页脚中既可打印文字，也可打印图像，或者即打印图像又打印输出文字。 15、图像与图标打印输出功能。 16、多表头（跨行跨列的复杂表头）打印功能，多表头组件支持多表头显示与打印、单元格内容的合并显示、打印与导出。 17、自定义纸张支持功能。 18、纸张背景图片设置打印功能。 19、.NET4.0支持功能(是单独的一个文件)。 20、直接打印窗口中的TreeView控件功能。 21、打印窗口中的ListView功能。 22、RichTextBox控件的RTF文本打印功能。 23、斜线表头打印功能（5.4版新增）。 24、二维码打印功能（5.5版本增加）。 25、5.6版新增的SimpleReport组件允许您在一个方案文件中管理多个打印方案，在打印预览时能自由在各个打印方案之间切换。我将持续改进该控件，并将不断推出控件的新版本，要查看或下载控件的升级版本，请登陆网站：http://myyouping.download.csdn.n

本DataGridView打印控件和.NET轻松打印控件5.0版（含报表模板设计组件）2012年5月12日修改完成，完全免费，在.NET2.0及以上环境下都可以使用（VB、C#等都可以用），有帮助文档与使用实例。与4.95版相比，控件5.0版的主要更改如下： 1、解决了生成预览及打印过程中的状态窗口中显示的“第页共页”问题，现在可以正确显示总页数。 2、增加了打印DataGridView中选定内容（选定行、列或矩形区域）的功能。对DGVPrint组件，设置PrintRange属性为相应的值即可，而对于VB2008Print组件，请先用CopyDataGridViewSelectedRange函数将要打印的DGV复制到新的DGV，然后再用PrintDGV函数打印这个新DGV即可。 3、增加了大量的绘图函数（如路径、多边形、填充多边形、曲线等），基本上.NET的GDI+绘图函数都有了（注意，填充类绘图函数名称为DrawFill……，而不是GDI+的Fill…。另外，对于Brush参数，只支持SolidBrush、TextureBrush、LinearGradientBrush三种类型的画刷，而且对于后2个画刷，只支持其中的主要属性。 4、增加了直接打印Panel、GroupBox等容器控件中的内容的DrawPanel函数（对容器中的TextBox控件与Label控件以文本的形式打印，除此之外的其他除容器控件之外的控件如CheckBox、ComboBox、Button控件等则直接以图片的形式打印，函数还支持嵌套容器控件的打印，且如果一页打印不下具有自动换页续打功能）。借助该函数的功能，您可以在Panel等容器控件中设计好要打印的内容及打印相对位置，控件轻松帮助您解决打印问题。（参见演示实例） 5、增加了报表文件及模板文件的自动关联功能。在运行了“打印控件安装.msi”文件安装了打印控件的前提下，双击报表文件(扩展名为you的文件)即可打印预览该报表的内容；双击报表模板文件（扩展名为mb的文件)即可进入报表模板修改界面（此时如果打印预览报表模板不会有数据，因为这样修改报表模板时是没有设置数据源的）。 6、解决了原EasyReport报表组件由于资源释放不及时，在多次重复使用时占用大量句柄而可能产生的不能打印或预览问题。 7、解决了DataGridView在有固定列（冻结列）的时候，有些情况下（DGV固定列的index与DisplayIndex不一致时）打印可能出错的问题。 8、DGVPrint组件的自定义纸张使用更方便，设计时在可以通过设置PaperHeight与PaperWidth属性设置，运行时在“打印参数”设置窗口中也可设置自定义纸张大小。 9、解决了EasyReport组件“页表头”区域设置的背景图片覆盖该区域打印内容的问题。 10、增加了打印XML格式的HTML文档的功能（目前只支持部分HTML标记，不支持表格及图片等标记，请参见DrawXML函数） 11、对帮助文件做了进一步的修订 12、增加了很多新的演示实例。 13、其他一些完善和修改。本控件特色： 1、强大的DataGridView打印功能，不仅可以以多种形式（普通打印、分栏打印、跨页打印、工资条打印）打印DataGridView表格，基本上能完全按DataGridView控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来，文字图像都可以打印，而且是完全根据表格当前的显示顺序进行打印的，如果您在使用时调整了列的顺序，刷新打印后就会按调整后的列显示顺序进行打印，基本上做到了所见即所得的打印。 2、报表设计功能，这是4.7版控件的新增功能。报表模板设计组件EasyReport与WebEasyReport组件可以设计普通报表、分组报表、套打模板等，分别以DataGridView和GridView为数据源。控件的位置以毫米为计量单位，定位准确，很适合套打单据设计。 3、分组汇总打印DataGridVeiw功能，每组还可以自动换新页打印，还可以自动增加行号。 4、强大的文本打印输出功能，有多个文本打印重载函数，打印文本时，如果需要，控件会自动换行或换页打印输出。 5、支持同一文档多种版面格式打印（类似于Word中的节的功能）：对同一份文档，不同的页面可以设置不同的格式（纸张大小、纸张方向、页边距），只需要在新增一页时在NewPage方法中指定要使用的页面格式即可，使用非常简单。 6、报表文件保存功能。本控件允许将当前打印预览的内容保存为报表文件，以后使用本控件重新打开该报表文件即可重现原来保存报表时的打印内容。 7、打印方案保存与读取功能。可以将当前打印参数保存为打印方案文件，或都从保存的打印方案文件中读取打印参数。 8、水印

7,763

社区成员

197,605

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章