hjr231 / office / myListView代码设计,实现客户清单内容的...

0 0

   

myListView代码设计,实现客户清单内容的显示

2019-08-15  hjr231

myListView过程,用于将查询结果显示到“客户清单”控件中。代码会相对复杂一些。

程序根据用户是否选中“按拼音”单选按钮,分别执行分支代码。该分支主要是由于按拼音查询时,需要检测记录中客户名称的拼音是否与输入的拼音一致造成的。执行完以上操作以后,程序为“客户清单”控件的各个列设置宽度。

以下是该过程的详细代码:

Public Sub myListView()

On Error Resume Next

Dim i As Integer, j As Long

'将查询结果显示在ListView1控件中

If 按拼音.Value = False Then

With ListView1

'清空控件所有项目

.ListItems.Clear

'循环记录集所有记录

For i = 1 To rs.RecordCount

.ListItems.Add , rs.Fields(0).Value

For j = 1 To rs.Fields.Count - 1

If IsNull(rs.Fields(j).Value) Then

.ListItems(i).SubItems(j) = ''

Else

.ListItems(i).SubItems(j) = rs.Fields(j).Value

End If

Next

rs.MoveNext

Next

End With

rs.MoveFirst

Else

With ListView1

.ListItems.Clear

For i = 1 To rs.RecordCount

If 检查拼音(rs.Fields('客户名称'), intRow) Then

.ListItems.Add , , rs.Fields(0).Value

For j = 1 To rs.Fields.Count - 1

If IsNull(rs.Fields(j).Value) Then

.ListItems(i).SubItems(j) = ''

Else

.ListItems(i).SubItems(j) = rs.Fields(j).Value

End If

Next

End If

rs.MoveNext

Next

End With

rs.MoveFirst

End If

'自动设置ListView1控件各列的宽度

'循环控件所有标题列

For i = 1 To ListView1.ColumnHeaders.Count

ListView1.ColumnHeaders(i).Width = Ws.Cells(1, i).Width * 0.9

Next

End Sub

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    来自: hjr231 > 《office》

    猜你喜欢

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多