Question

vb中这个怎么样实现 数据列表

怎么把他们分类

Answer 1

ListView1.ListItems.Clear '清空列表
ListView1.ColumnHeaders.Clear '清空列表头
ListView1.View = lvwReport '设置列表显示方式
ListView1.GridLines = True '显示网络线
ListView1.LabelEdit = lvwManual '禁止标签编辑
ListView1.FullRowSelect = True
ListView1.ColumnHeaders.Add , , "时间", 2710 ‘标题与宽度
ListView1.ColumnHeaders.Add , , "事件", 7985

Answer 2

你用LISTVIEW或MSFLEXGRID或DATAGRID，都在“部件”里，CTRL+T可以呼出部件添加窗口

追问

怎么用呀

追答

不敢贴代码啊，怕被认为是模版

追问

额 没事吧= =

追答

ListView1.View = lvwReport '显示风格
ListView1.Appearance = ccFlat '平面显示
ListView1.BorderStyle = ccNone '外框风格
ListView1.LabelEdit = lvwManual '不允许即时编辑标签
ListView1.MultiSelect = True '允许多选
ListView1.Gridlines = True '显示网格线
ListView1.FullRowSelect = True '整行选取
ListView1.FlatScrollBar = False '使用三维的滚动条
ListView1.ColumnHeaders.Clear '清除默认列标头
ListView1.ColumnHeaderIcons = ImageList1 '设置列标头图象集合
ListView1.Icons = ImageList1 '设置大图标集合
ListView1.SmallIcons = ImageList1 '设置小图标集合
'以下为列标头设置
ListView1.ColumnHeaders.Add , , "状态", ListView1.Width / 4, , 4
ListView1.ColumnHeaders.Add , , "姓名", ListView1.Width / 4, lvwColumnCenter, 5
ListView1.ColumnHeaders.Add , , "手机", ListView1.Width / 4, lvwColumnCenter, 6
ListView1.ColumnHeaders.Add , , "地址", ListView1.Width / 4, lvwColumnCenter, 7
'以下为添加数据
ListView1.ListItems.Add , , "待发", , 1 '状态
ListView1.ListItems.Item(1).SubItems(1) = "张三" '姓名
ListView1.ListItems.Item(1).SubItems(2) = "123456789" '手机
ListView1.ListItems.Item(1).SubItems(3) = "学院路" '地址
ListView1.ListItems.Add , , "待发", , 2 '状态
ListView1.ListItems.Item(2).SubItems(1) = "李四" '姓名
ListView1.ListItems.Item(2).SubItems(2) = "987654321" '手机
ListView1.ListItems.Item(2).SubItems(3) = "学清路" '地址

Answer 3

用 Listview 控件。

追问

就是要和那个图片实现的一样怎么把那个写出来

Answer 4

你能把具体要求说一下吗？

追问

就是要和那个图片实现的一样
怎么把那个写出来

追答

用 MSHFlexGrid1控件就能实现，你是不是需要访问数据库啊？

追问

不用 我百度hi联系你了 说不清楚