Listbox中显示datagrid中的最后6条数据解决方法

Listbox中显示datagrid中的最后6条数据
条件说明:
使用的是adodc与datagrid进行数据绑定的.
请各位码友帮忙!
datagrid数据格式如下:
Tester ID  Cell ID  Group  Mode  Yield    Action
   5084        01      S11    JB        25%   reboot
   5083        02      S12    JB        5%    reboot
   5082        03      S13    JB        45%   reboot
   5081        04      S21    JB        21%   reboot
   5080        05      S12    JB        33%   reboot
   4002        06      S31    TB        13%   reboot
   5004        07      S22    RM        75%   reboot
最终的list里显示的6条内容为:
[16:01:00]:S12 5083-02 reboot
[16:02:00]:S13 5082-03 reboot
[16:03:00]:S21 5081-04 reboot
[16:04:00]:S12 5080-05 reboot
[16:05:00]:S31 4002-06 reboot
[16:06:00]:S22 5004-07 reboot


"[]"里我取的是系统时间

引用

dim i as integer
for i=0 to 5
list1.list(i)="["& time &"]"
next i

[解决办法]
nCount=Adodc1.Recordset.RecordCount
For i=nCount-5 to nCount
    Adodc1.Recordset.AbsolutePosition = n   '将记录指针移到指定的行
    list1.AddItem "["& time &"]" & ":" & Adodc1.Recordset.Fields("group").Value & _
                   Adodc1.Recordset.Fields("Tester ID").Value & "-" & " "  & _
                   Adodc1.Recordset.Fields("Cell ID").Value & " " & _
                   Adodc1.Recordset.Fields("Action").Value
Next i

[解决办法]
应该写成Adodc1.Recordset.AbsolutePosition = i
或用
Adodc1.Recordset.movefirst
Adodc1.Recordset.move i
[解决办法]
可以倒着来：

List1.Clear
for i=0 to 5
list1.AddItem "["& time &"]:"
next i

With Adodc1.Recordset
.MoveLast
For i = 5 To 0 Step -1
    List1.List(i) = List1.List(i) & .Fields("Group") & " " & .Fields("Test ID") & "-" & .Fields("Cell ID") & " " & .Fields("Action") 
    .MovePrevious
Next i
End With

查看更多 下一篇