[VB]在listview的第i行第j列显示数值

Question

[VB]在listview的第i行第j列显示数值多谢各位！！

Answer 1

listview1.listitem(i).listsubitem(j-1).text=value

Answer 2

如果J=1的话
直接 listview1.listitem(i).text=value

Answer 3

编译后 显示 compile error
     method or data member not found

Answer 4

设置了列表头之后,就直接.ListItems(i).ListSubItems(j).Text ,不用-1

Answer 5

我直接 拖个 listview1控件 到 窗体上然后弄个按钮
Private Sub Command1_Click()
ListView1.ListItem(3).ListSubItem(4).Text = 10
End Sub编译后 显示 compile error
method or data member not found

Answer 6

    With ListView1
        '设置成报表样式
        .View = lvwReport
        '设置列标题
        Call .ColumnHeaders.Add(, , "第1列")
        Call .ColumnHeaders.Add(, , "第2列")
        '添加列表项
        Call .ListItems.Add(1, "A", "有").ListSubItems.Add(1, "a", "yes")
        Call .ListItems.Add(2, "B", "没有")
        Call .ListItems.Add(3, "C", "人")
        .ListItems(1).Selected = False
        '显示列表项
'        Debug.Print .ListItems(1).Text
'        Debug.Print .ListItems(1).SubItems(1)
        .ListItems(1).ListSubItems(1).Text = "yess"
    End With

Answer 7

你不能拿listview控件当grid控件用，listview是要一个一个加项目的．就算是flexgrid,也要先设cols,rows这个数目的啊

Answer 8

既然listview这么麻烦  请问listview有什么优点么？grid 还有别的什么优缺点？ 比较多谢

Answer 9

这两个我都不喜欢，msflexgrid感觉比他们方便，还有好多其它的表格控件

Answer 10

listview可以改变显示形式，象文件夹的详细,列表，大图标，小图标,listview还可以find行，第一列前可加图标和checkbox
dbgrid纯粹就是个表格，很少用，一般用于以前的dao绑定，用它不如datagrid
稍强的用msflexgrid和mshflexgrid，这两个可以配合textbox作小型表格录入用，还可以在cell中单独加图片，详细的可以参照msdn

Answer 11

请弄个简单的msflexgrid出来吧 多谢！看看有多简单？

Answer 12

Private Sub FillData()
    Dim iRow As Integer, iCol As Integer
    With MSFlexGrid1
        .Rows = 10  '将表格设置为10行高,包括固定行
        .Cols = 4
        .Row = 0 '定位到第一行
        '修改３列的标题
        .Col = 1: .CellFontBold = True: .Text = "编号"
        .Col = 2: .CellFontBold = True: .Text = "名称"
        .Col = 3: .CellFontBold = True: .Text = "地址"
        For iRow = 1 To .Rows - 1   '对每行第一列赋值
            .Row = iRow
            .Col = 1: .Text = CStr(iRow)
        Next iRow
        
    
    End With
End Sub

Answer 13

这些都是最最基本的啊   看一下MSDN，试验一下   再不会的网上下几个实例   自己练习一下

Answer 14

类似别人代码中的List1,你从“部件”里拖一个Microsoft FlexGrid Control 6.0 (SP6)到窗体上就行了

Answer 15

Private Sub Command1_Click()
Dim xx As ListItem
Set xx = ListView1.ListItems.Add(, , "111")
With xx
  .SubItems(1) = "ff"
  .SubItems(2) = "ddff"
End With
End SubPrivate Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "第1列", 1000
ListView1.ColumnHeaders.Add , , "第2列", 1000
ListView1.ColumnHeaders.Add , , "第3列", 1000
End Sub