UC知道VB中Excel导入listview的问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 07:42:15
Dim itmX As ListItem
For k = 0 To i - 1
t = 0
Set itmX = ListView1.ListItems.Add(, , ex.Cells(k+1, t+1))
For t = 1 To j - 1
itmX.SubItems(t + 1) = ex.Cells(k + 1, t + 1)
Next t
Next k
其中i为Excel文档中记录总条数,j为Excel文档的列数
程度运行后,listview中添加了一条记录后(仅仅一条),提示:实时错误:380,无效的属性值,报错行为 :
itmX.SubItems(t + 1) = ex.Cells(k + 1, t + 1)
请高手解决
那我写的语法有错误没?
自己解决了,语法错误
应改为itmX.SubItems(t) = ex.Cells(k + 1, t + 1)
For k = 0 To i - 1
t = 0
Set itmX = ListView1.ListItems.Add(, , ex.Cells(k+1, t+1))
For t = 1 To j - 1
itmX.SubItems(t + 1) = ex.Cells(k + 1, t + 1)
Next t
Next k
其中i为Excel文档中记录总条数,j为Excel文档的列数
程度运行后,listview中添加了一条记录后(仅仅一条),提示:实时错误:380,无效的属性值,报错行为 :
itmX.SubItems(t + 1) = ex.Cells(k + 1, t + 1)
请高手解决
那我写的语法有错误没?
自己解决了,语法错误
应改为itmX.SubItems(t) = ex.Cells(k + 1, t + 1)
listview是可将项目组成带有或不带有列标头的列，可以显示图标和文本。它不是列表控件，不能形成列表。
如果你需要将Excel导入到控件，建议你使用数据显示控件，例如：DataGri、MSFlexGrid之类的控件。
先将listview控件添加j列就好了