Question

关于VB中ListView控件的问题

编了一个小程序，是将学号、姓名、成绩输入ListView中显示的。但是关闭程序再打开以前输入的数据就没有了。我想设置一个“保存”按键，通过这个按键能保存文件，这样在关闭程序后再次打开能显示上次输入的数据。我是初学者，请高手指点，最好能有代码附上。谢谢啦~~~
谢谢universe171402,还想问一下，如果我想实现这样的功能应该怎样编：
一次输入“学号”（假设是1）和“姓名”（假设是张三）后按下“添加姓名”按键，然后又输入“学号”（还是1号）和“成绩”后按下“添加成绩”按键，这两次输入的信息在ListView中都显示在同一个学号（即1号）的信息中，而不是出现两个1号。
麻烦你了，真的很急，谢谢~~~

Answer 1

如果还有什么问题，如果时间很急的话，可以加 QQ 570403438 !我几乎每天都会在
-----------------------------------------
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i) = Text1.Text Then '如果 Listview1 的某一条记录的第一列和输入的学号相同
ListView1.ListItems(i).SubItems(2) = Text2.Text 'Text2 输入成绩
Exit For
End If
Next i
---------------------------------------
在添加记录完成后，加一段代码:
ListView1.Sorted = False
ListView1.SortKey = 0 '根据第一列排列，也就是学号
ListView1.SortOrder = lvwAscending '升序排列 如果用 lvwDescending 就是降序排列
ListView1.Sorted = True '允许ListView 排列
--------------------------------------

Private Sub Command1_Click() 'ListView1 的所有记录输出到文件
Open "c:\tem.txt" For Output As #1 '打开文件用来输出,输出到 C:\tem 的文本文件下
For i = 1 To ListView1.ListItems.Count '循环，读取 ListView1 的每一条记录
Print #1, ListView1.ListItems(i).Text & "|" & ListView1.ListItems(i).SubItems(1) & "|" & ListView1.ListItems(i).SubItems(2)
Next i
Close #1 '关闭文件

End Sub

'----------------------------
注意：每条记录的不同字段，我用"|" 符号分割开来:

'姓名A|学号A|成绩A
'姓名B|学号B|成绩B
'姓名C|学号C|成绩C

'姓名D|学号D|成绩D

'姓名E|学号E|成绩E

'----------------------------------------------------------------------
Private Sub Command3_Click() '从刚才保存的文件输入信息
Dim b() As String
Open "c:\tem.txt " For Input As #2 '打开文件用来读取记录
Do While Not EOF(2) '循环读取每一行，知道文件末尾
Line Input #2, a '读取一条记录到a
a = Trim(a)
b = Split(a, "|") 'a 拆分成3个记录，到数组 b(0), b(1) , b(2),分别表示学号，姓名，成绩
'具体的 Split() 函数的用法，可以到网上查一下

ListView1.ListItems.Add , , b(0) '添加第一列(学号)
ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = b(1) '添加第二列 姓名
ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = b(2) '添加第三列 成绩

Loop
Close #2 '关闭文件

End Sub
'注意：listview 共有3个字段：学号，姓名，成绩
'已经在 vb 中试过了，没有问题
'如果还有什么问题可以说明一下