怎样实现序号大于7的数据，到第三列第一行开始显示。
第二图的程序如下，请问该怎样更改程序
If (n > 0) Then
oRs.MoveFirst
i = 0
End If
Do While Not oRs.EOF
Date1.AddItem CStr(oRs.Fields(0).Value)
Set oItem = dyx.ListItems.Add()
If i<8 Then
oItem.Text=i
oItem.SubItems(1)=CStr(oRs.Fields(0).Value)
i=i+1
oRs.MoveNext
Else
oItem.SubItems(2)=i
oItem.SubItems(3)=CStr(oRs.Fields(0).Value)
i=i+1
oRs.MoveNext
End If
Loop
图片说明：
最佳答案
你这是用的什么控件
当大于8的时候
Set oItem = dyx.ListItems.Add() 这句就不用执行了
想办法把oItem 对象设置成dyx的第一行就行了啊
你用的什么控件，我测试一下
提问者对于答案的评价：
我用的是List View Ctrl控件
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc128091.html
微信扫一扫 
支付宝扫一扫