vb itmx.SubItems 无效 属性值

来源：百度知道 编辑：UC知道 时间：2024/06/01 19:27:48
VB中的问题：
Set itmx = ListView1.ListItems.Add(, , Form1.Data1.Recordset.Fields("菜名"))
itmx.SubItems(ListView1.ColumnHeaders("店名").SubItemIndex) = Form1.Data1.Recordset.Fields("店名")
itmx.SubItems(2) = Form1.Data1.Recordset.Fields("单价")/说无效的属性值
itmx.SubItems(3) = num
itmx.SubItems(4) = storetel

我抄书上的，怎么还是无效的属性值呢？
忘了说了，我已经搞好列首了。可还是这样

要改成：
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add 1, , ""
ListView1.ColumnHeaders.Add 1, , ""
ListView1.ColumnHeaders.Add 1, , ""
ListView1.ColumnHeaders.Add 1, , ""
ListView1.ColumnHeaders.Add 1, , ""
Set itmx = ListView1.ListItems.Add(, , Form1.Data1.Recordset.Fields("菜名"))
itmx.SubItems(ListView1.ColumnHeaders("店名").SubItemIndex) = Form1.Data1.Recordset.Fields("店名")
itmx.SubItems(2) = Form1.Data1.Recordset.Fields("单价")/说无效的属性值
itmx.SubItems(3) = num
itmx.SubItems(4) = storetel

错误原因，没有指明有几个列首（默认一个），而你却要在345列上添加内容，所以出错。你也可以不用改变你的代码，直接选中listview1然后在右边的属性窗口上修改属性也可，步骤如下：

（自定义）在弹出窗口中选中column headers(列首),点insert column(增加列)按钮，为listview1增加列，多少视情况而定，在text里填上列首名，不填就留空。点“确定”
再选中“view”设值为“3_lvwreport”