|
最近在学VB，所以把一些东西都记下来，方便以后学习。下面是将数据查处来显示在ListView中
Dim ledrst As ADODB.Recordset
Set ledrst = New ADODB.Recordset
ledrst.Open sql,g_SqlDBConn,adOpenDynamic,adLockPessimistic
ListView_Show Me.ListView1,ledrst,False,False '把查处来的数据集合绑定到listView中
ListView1.ColumnHeaders(1).width = 800 ‘列跟字段对应
ListView1.ColumnHeaders(2).width = 2000
ListView1.ColumnHeaders(3).width = 800
ListView1.ColumnHeaders(4).width = 800
ListView1.ColumnHeaders(5).width = 800
ListView1.ColumnHeaders(6).width = 800
ListView1.ColumnHeaders(7).width = 1200
ListView1.ColumnHeaders(8).width = 4000
'将recordset显示到listview
Public Sub ListView_Show(Lvw As ListView,rs As ADODB.Recordset,Optional isNum As Boolean = False,Optional isCon As Boolean = False) '结束时 recordset 对象关闭,是否进行合同列表第九,十列解密
Dim i As Double
Dim Order As Double
Dim itmX As ListItem '定义一 个ListView的显示项目。
Dim tempstr As String
Dim tmpSum As Double '结算
'Dim tmpRs As ADODB.Recordset
Dim rc As RECT '定义显示listview区域
'On Error GoTo ErrFillListView
Lvw.View = lvwReport
Lvw.Visible = False
Screen.MousePointer = vbHourglass
Lvw.ListItems.Clear '清除ListView的内容?
With Lvw.ColumnHeaders
.Clear
If isNum Then
.Add 1,"序号 ",800
Else
.Add 1,1
End If
If rs.EOF And rs.BOF Then
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = "Code" Or rs.Fields(i).Name = "SchID" Then
.Add i + 2,rs.Fields(i).Name,0
Else
.Add i + 2,Len(rs.Fields(i).Name) * 200
End If
Next
Else
For i = 0 To rs.Fields.Count - 1
If rs.Fields(i).Name = "Code" Or rs.Fields(i).Name = "SchID" Then
.Add i + 2,Len(rs.Fields(i).Name) * 200
End If
Next
End If
End With
If rs.EOF And rs.BOF ThenScreen.MousePointer = vbDefaultLvw.Visible = TrueExit Sub （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
