标题:请帮手找出代码的错处啊
只看楼主
wingqu
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-8-2
 问题点数:0 回复次数:2 
请帮手找出代码的错处啊

myQuery = "select Id,UserName,Class from Operator order by Id"
If myclsDB.DB(myQuery) = False Then
Exit Sub
Else
For i = 0 To myclsDB.dataset.Tables(0).Rows.Count - 1
With myclsDB.dataset.Tables(0)
stritem = .Rows(i).Item(0)
item = New ListViewItem(stritem)
subitem1 = New ListViewItem.ListViewSubItem(item, .Rows(i).Item(0))
subitem2 = New ListViewItem.ListViewSubItem(item, .Rows(i).Item(1))
subitem3 = New ListViewItem.ListViewSubItem(item, .Rows(i).Item(2))
item.SubItems.Add(subitem1)
item.SubItems.Add(subitem2)
item.SubItems.Add(subitem3)
lsvResult.Items.Add(item)

End With
Next
End If

但是显示的数据有点问题啊!!
比如 要显示下面的数据时
ID UserName Class
1 tt 3
它会这样显示啊!
ID UserName Class
1 1 tt

搜索更多相关主题的帖子: 错处 代码 
2006-09-20 20:22
jlnet
Rank: 1
等 级:新手上路
帖 子:74
专家分:0
注 册:2006-7-29
得分:0 

代码没有错误,是datatable的过。
我也不太明白他的数据是怎么读出来的。
反正不是按照数据表的建立时的顺序读的,你要么就挨个试看是那一个段代表你要出的数据,然后再调整,要么就改一下代码的写法。
这是我写的一种方法。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.OleDbDataAdapter1.Fill(Me.Ds)

count = Me.Ds.person.Count
For j = 0 To count - 1

Me.ListView1.Items.Add(Me.Ds.person(j).id.ToString)
Me.ListView1.Items(j).SubItems.Add(Me.Ds.person(j).xm.ToString)
Me.ListView1.Items(j).SubItems.Add(Me.Ds.person(j).xb.ToString)
Me.ListView1.Items(j).SubItems.Add(Me.Ds.person(j).nl.ToString)
Me.ListView1.Items(j).SubItems.Add(Me.Ds.person(j).bm.ToString)
Next

End Sub

2006-09-26 16:24
jlnet
Rank: 1
等 级:新手上路
帖 子:74
专家分:0
注 册:2006-7-29
得分:0 
对了,person是数据表名子。
2006-09-26 16:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-91593-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048688 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved