listview里被选择的记录如何写进vf数据库？？

[jie202]

我现在打开两个数据库（SQL和VF），并从SQL里筛选出一些记录（存到一个recordset中，命名为rs）显示在listview中，然而我要做的并不是把listview的所有记录都导入vf中，而是把有checked标志的导入，我想用ADDNEW方法，可是我现在不知道怎么去找到这些被选择的记录，怎样写入，怎样使字段相对应，请大家帮帮忙，谢谢！！希望大家给我点代码参考，万分感谢！！

[华芸智森]

Dim I As Long
For I = 0 To ListView1.ListItems.Count - 1
If ListView1.ListItems(I).Checked Then
Debug.Print ListView1.ListItems(I).Text
End If

Next

[jie202]

debug.print是什么意思啊？？我是想写入vf啊，需要一个一字段写入吗？

[华芸智森]

上面的程序只是帮你将所先中的项目找出来.
写入VF,只好用INSERT INTO 一条条写入...

[jie202]

为什么用了这一句有错误，说是什么索引超出边界啊？
而且写入vf时，字段怎么对应啊，就是例如listview的某一条选中的记录，它的第一个字段是不是listview1.listitem，而后面的各字段都是listview1.listsubitem啊？？？

[CALG]

'改成这样试试看:

Dim Litem As ListItem

For Each Litem In ListView1.ListItems
If Litem.Checked Then
Debug.Print Litem.Text
End If
Next

[RUKYO]

而且写入vf时，字段怎么对应啊，就是例如listview的某一条选中的记录，它的第一个字段是不是listview1.listitem，而后面的各字段都是listview1.listsubitem啊？？？
----------------------------------------------------------------------------------
是的第一个字段是ListView1.ListItem(Index),第二字段、第三字段对应
ListView1.SubItems(1)、ListView1.SubItems(2)

[jie202]

怎么写不进vf啊？？我的代码是这样的：（请各位帮忙看一下）
Dim Litem As ListItem
Dim i As Integer
For Each Litem In ListView1.ListItems
If Litem.Checked Then
Debug.Print Litem.Text
dbf_rst(0) = Litem.Text
For i = 1 To 38
dbf_rst(i) = Litem.ListSubItems(i).Text
Next i
End If
Next

代码运行没有出错，不过就是没有写入vf中，这是什么原因啊？？