[已解决]在listview中利用文本框修改数据源问题及listview栏排序问题

电子表 · 发表于 2014-2-16 15:04

1、单击listview在文本框中显示数据后，修改时如何反馈到源数据，即修改listview显示也同时修改数据源。

2、点击listview栏可进行排序，不知为什么总是报错？

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Dim i%
With ListView1
      If (ColumnHeader.Index - 1) = .SortKey Then
         If ColumnHeader.Text = "背号" Then
            For i = 1 To .ListItems.Count
                  .ListItems(i).SubItems(ColumnHeader.Index - 1) = Format(.ListItems(i).SubItems(ColumnHeader.Index - 1), "000000000.000")
            Next i
         End If
               .SortOrder = (.SortOrder + 1) Mod 2
         If ColumnHeader.Text = "背号" Then
            For i = 1 To .ListItems.Count
                  .ListItems(i).SubItems(ColumnHeader.Index - 1) = Val(.ListItems(i).SubItems(ColumnHeader.Index - 1))
            Next i
         End If
      Else
         If ColumnHeader.Text = "背号" Then
            For i = 1 To .ListItems.Count
                  .ListItems(i).SubItems(ColumnHeader.Index - 1) = Format(.ListItems(i).SubItems(ColumnHeader.Index - 1), "000000000.000")
            Next i
         End If
         .Sorted = False
         .SortOrder = 0
         .SortKey = ColumnHeader.Index - 1
         .Sorted = True
         If ColumnHeader.Text = "背号" Then
            For i = 1 To .ListItems.Count
                  .ListItems(i).SubItems(ColumnHeader.Index - 1) = Val(.ListItems(i).SubItems(ColumnHeader.Index - 1))
            Next i
         End If
      End If
End With
End Sub

利用文本框修改数据源.zip (27.47 KB, 下载次数: 8)

hwc2ycy · 发表于 2014-2-16 16:48

SubItems是从1开始的，这里碰到index为1然后再减1就成0了。必须出错。

hwc2ycy · 发表于 2014-2-16 16:55

.SubItems(6) = VBA.Trim(TextBox6) Then _
改成 .SubItems(5)= VBA.Trim(TextBox6) Then _

hwc2ycy · 发表于 2014-2-16 16:57

'更新LISTVIEW控件显示列表
Dim listitem As listitem
Set listitem = UserForm1.ListView1.SelectedItem
listitem.Text = TextBox1

复制代码

hwc2ycy · 发表于 2014-2-16 16:59

排序的代码就不需要这么麻烦，特别是点背号列，把运动员的数据全改成数字了。

hwc2ycy · 发表于 2014-2-16 17:08

另外，你在判断的时候，几个TEXTBOX的值如果有空的话也不太好，必须要做检测

hwc2ycy · 发表于 2014-2-16 17:11

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

利用文本框修改数据源.rar (26.1 KB, 下载次数: 73)

电子表 · 发表于 2014-2-16 19:11

谢谢楼上的老师，在您的帮助下解决了一些问题，再次谢谢！

hetianjun888 · 发表于 2014-2-20 11:34

学习了

		自动登录	找回密码
密码			注册

[已解决]在listview中利用文本框修改数据源问题及listview栏排序问题

相关帖子