现在没搞明白你这个是数据已经显示出来了。你想移除这一行?还是你数据显示前盘断第一列空就整行不显示。
如果是删除某一行。
只需要
Dim i As Long
For i = 1 to ListView1.ListItems.Count
If ListView1.ListItems.Item(i) = "" Then
ListView1.ListItems.Remove i
End If
Next
如果是在显示前判断,
更简单。例如从数据库读取
For i=1 to rs.recordcount
If rs("首列数据")<>"" then
ListView1.ListItems.Add , , rs("首列数据")
ListView1.ListItems(i).SubItems(1) = rs("2列数据")
ListView1.ListItems(i).SubItems(2) = rs("3列数据")
ListView1.ListItems(i).SubItems(3) = rs("4列数据")
end if
Rs.Movenext
next