ListView 进行数据绑定
我做的这个模块想使用ListView来实现数据的显示,因为其他的模块都有类似的功能,我想写一个公共的方法来实现这一功能
具体做的时候有一点不知道怎么实现。
就是用循环将数据源中的数据导入的时候,一般我会使用While(dataReader.Read())
{}然后对应不同的数据字段,加入相应的值,但是,由于现在写的是公共方法,传进来的参数只有个数据表的名字,在While()里面无法进行相应的字段的插入,难道要写双重循环么?
我对循环学的不精,望老师具体指点这个过程怎么实现,谢谢老师
参考答案:'本人为这个花了几个小时,专门编了一个通用的函数,呵呵,也算花了不少心思吧.
'该函数运行非常正常,且方便有效。现将关键代码给你
'虽然你给的分实在配不上我这段代码,也就算了吧,谁叫我是好人呢
Private Sub Form_Load()
On Error GoTo ErrProceed
Dim ObjConnTmp As New ADODB.Connection, DataSource As String
DataSource = "数据库名"
ObjConnTmp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DataSource & ";"
ObjConnTmp.Open
Dim ObjTmpRs As New ADODB.Recordset
Set ObjTmpRs.ActiveConnection = ObjConnTmp
ObjTmpRs.CursorType = adOpenDynamic
ObjTmpRs.LockType = adLockOptimistic '设置游标类型
StrTmpSQL = "Select * from 数据库表名"
ObjTmpRs.Open StrTmpSQL
FrmMain.ListView1.View = lvwReport
FrmMain.ListView1.ColumnHeaders.Clear
Call ModListView.SubListViewHeader(FrmMain.ListView1, ObjRsTmp) '加标题
FrmMain.ListView1.ListItems.Clear
Call ModListView.SubListViewListItem(FrmMain.ListView1, ObjRsTmp, "End") '加内容
ObjRsTmp.Close: Set ObjRsTmp = Nothing
ObjConnTmp.Close: Set ObjConnTmp = Nothing
Exit Sub
ErrProceed:
MsgBox "程序发生错误,原因如下:" & vbCrLf & Err.Description
End Sub
Public Sub SubListViewHeader(ByVal ListViewName As ListView, ByVal ObjRs As ADODB.Recordset)
'功能:将相应的记录的 标题加到ListView中去
Dim clmX As ColumnHeader
'设置显示方式
'ListViewName.View = lvwReport
'要想显示出网格,请在属性/通用/网格行 设置
nCounter = ObjRs.Fields.Count - 1
' Dim nWidthGroup() As Integer
' ReDim Preserve nWidthGroup(nCounter)
Dim nWidthGroup(8) As Integer
k = 100
nWidthGroup(0) = k * 6 '[编号]
nWidthGroup(1) = k * 30 '[名称]
nWidthGroup(2) = k * 11 '[大小]
nWidthGroup(3) = k * 8 '[类型]
nWidthGroup(4) = k * 20 '[修改日期]
nWidthGroup(5) = k * 20 '[记录日期]
nWidthGroup(6) = k * 0 '[文件]
For i = 0 To nCounter
nWidth = nWidthGroup(i)
Set clmX = ListViewName.ColumnHeaders.Add(, , ObjRs.Fields(i).Name, nWidth)
Select Case ObjRs.Fields(i).Name
Case "类型"
clmX.Alignment = lvwColumnCenter
Case "大小"
clmX.Alignment = lvwColumnRight
End Select
Next
End Sub
Public Sub SubListViewListItem(ByVal ListViewName As ListView, ByVal ObjRs As ADODB.Recordset, ByVal StrLocate As String)
'功能:将相应的记录的 内容加到ListView中去
'StrLocate 用来定位新加记录在原ListView中的相对位置 Begin,开头 End 结尾
Dim itmX As ListItem
'设置显示方式
'ListViewName.View = lvwReport
'要想显示出网格,请在属性/通用/网格行 设置
'加内容
If ObjRs.EOF And ObjRs.BOF Then Exit Sub
ObjRs.MoveFirst
Do Until ObjRs.EOF
If StrLocate = "End" Then
Set itmX = ListViewName.ListItems.Add(, , ObjRs(0))
Else
Set itmX = ListViewName.ListItems.Add(1, , ObjRs(0))
End If
'向列表中加入数据
For i = 1 To ObjRs.Fields.Count - 1
StrSubItem = FunNullConvert(ObjRs(i))
Select Case ObjRs.Fields(i).Name
Case "大小" '如果是文件大小,则格式化其显示方式为加上千分位
StrSubItem = Format(CLng(StrSubItem), "#,###")
Case "修改日期", "记录日期"
If StrSubItem <> "" Then StrSubItem = FormatDateTime(CDate(StrSubItem), vbGeneralDate)
End Select
itmX.SubItems(i) = CStr(StrSubItem)
Next i
ObjRs.MoveNext
Loop
End Sub