关于Listview1 读取本地文件

Question

你现在的一条记录是分四行保存的，建议一条记录保存为一行:
Open "Data.db" For Append As #1
Print #1, txtName.Text, _
cmbSex.Text, & _
txtTel.Text, & _
txtMail.Text
Close #1这样读取就更简单：
Dim strLine As String, strArr() As String
Open "Data.db" For Input As #1
Do Until EOF(1)
   Input Line #1, strLine
   strArr = Split(strLine, vbTab)
   Set itmx = frmAll.lvw.ListItems.Add(, , num)
   itmx.SubItems(1) = strArr(0)
   itmx.SubItems(2) = strArr(1)
   itmx.SubItems(3) = strArr(2)
   itmx.SubItems(4) = strArr(3)
   num = num + 1
Loop
Close #1

Answer 1

这样依然不行，总是提示
itmx.SubItems(1) = strArr(0)
itmx.SubItems(2) = strArr(1)
itmx.SubItems(3) = strArr(2)
itmx.SubItems(4) = strArr(3)
这里的下标值超出。

Answer 2

原因找到了，如果按你那样保存的话，两者数据中间同样也产生不了Tab效果。
如果每次保存的数据中间隔有Tab键的话那一切正常。