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

jie202 2004-04-04 09:00:43
我现在打开两个数据库(SQL和VF),并从SQL里筛选出一些记录(存到一个recordset中,命名为rs)显示在listview中,然而我要做的并不是把listview的所有记录都导入vf中,而是把有checked标志的导入,我想用ADDNEW方法,可是我现在不知道怎么去找到这些被选择的记录,怎样写入,怎样使字段相对应,请大家帮帮忙,谢谢!!希望大家给我点代码参考,万分感谢!!
...全文
51 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
jie202 2004-04-06
  • 打赏
  • 举报
回复
怎么写不进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中,这是什么原因啊??
RUKYO 2004-04-04
  • 打赏
  • 举报
回复
而且写入vf时,字段怎么对应啊,就是例如listview的某一条选中的记录,它的第一个字段是不是listview1.listitem,而后面的各字段都是listview1.listsubitem啊???
----------------------------------------------------------------------------------
是的第一个字段是ListView1.ListItem(Index),第二字段、第三字段对应
ListView1.SubItems(1)、ListView1.SubItems(2)
CALG 2004-04-04
  • 打赏
  • 举报
回复
'改成这样试试看:

Dim Litem As ListItem

For Each Litem In ListView1.ListItems
If Litem.Checked Then
Debug.Print Litem.Text
End If
Next
jie202 2004-04-04
  • 打赏
  • 举报
回复
为什么用了这一句有错误,说是什么索引超出边界啊?
而且写入vf时,字段怎么对应啊,就是例如listview的某一条选中的记录,它的第一个字段是不是listview1.listitem,而后面的各字段都是listview1.listsubitem啊???
华芸智森 2004-04-04
  • 打赏
  • 举报
回复
上面的程序只是帮你将所先中的项目找出来.
写入VF,只好用INSERT INTO 一条条写入...
jie202 2004-04-04
  • 打赏
  • 举报
回复
debug.print是什么意思啊??我是想写入vf啊,需要一个一字段写入吗?
华芸智森 2004-04-04
  • 打赏
  • 举报
回复
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
vf6.0,要考二级没系统的下哈 Microsoft Visual FoxPro 6.0 for Windows 的常见问题 这些是有关 Microsoft Visual FoxPro 最常见的问题。在您求助 Microsoft 产品支持服务之前,请先查阅这张列表。 若想打印这些附注,请从“文件”菜单中选择“打印”命令。此文档分为以下四部分: --------------------------------------------------------------------- 部分 1. 技术支持与市场 部分 2. Visual FoxPro 6.0 新增功能 部分 3. 从其他版本的 FoxPro 和 Visual FoxPro 中移植 部分 4. Visual FoxPro 常见问题 --------------------------------------------------------------------- 部分 1. 技术支持与市场 问题 1-1: 从何处可以获得产品的更新版本? 答案: 在 Visual FoxPro 的 Web 站点上即可获得产品的更新信息,其中包括有关 Service Pack 和更新的示例、向导及其他代码的信息,该站点的网址为: www.microsoft.com/vfoxpro 请定期查看该网站,以便下载产品的最新版本。 问题 1-2: 从何处可以得到有关 Visual FoxPro 的详细资料? 答案: 通过 Microsoft Visual FoxPro Web 站点是随时获得各种最新产品发布信息的最佳途径。在此站点上不仅有新的产品公告,而且还提供了产品的更新信息、技术文章、白皮书、专业开发人员设计的优秀示例、会议公告、以及与其他许多 FoxPro web 站点的各种链接。 问题 1-3: 如何获得技术支持,以及如何报告软件错误? 答案: Microsoft Visual FoxPro Web 站点已经链接到了多种联机支持选项,其中包括覆盖面广阔的有关所有产品 Microsoft Knowledge Base(Microsoft 知识库)。您还可以阅读一份有关常见问题的清单。除联机支持之外,还可以直接通过电话获得技术支持。“帮助”菜单中的选项可列出技术支持的电话号码。这些电话号码也可用于报告产品中的错误。 问题 1-4. 什么是 Knowledge Base?如何使用它? 答案: Knowledge Base 是内容广泛的论文集,覆盖了如何使用产品的各种特性、已知的软件错误及其解决方案或回避的方法、以及其他有助于使用各种 Microsoft 产品的有用信息。通过以下站点可访问整个 Knowledge Base: support.microsoft.com 问题 1-5: 是否会有 Visual FoxPro 6.0a? 答案: Microsoft 公司一向承诺为用户提供高质量的产品。如果确实需要,我们将提供 Visual FoxPro 6.0 的错误修订版。但是,修订版不会使用 6.0a 版的形式。Visual FoxPro 6.0 中任何错误的修正都将包含在 Visual Studio Service Pack 中。同时还会在 Visual FoxPro 的 www.microsoft.com/vfoxpro 或 Visual Studio 的www.microsoft.com/vstudio 的 Web 站点上发布修订公告。 问题 1-6: Microsoft 公司为应用程序的开发提供了一些优秀的解决方案。怎样才能知道应该向客户推荐和使用哪种产品? 答案: 在选择适用某项任务的产品时,需要考虑多方面的因素。Microsoft Visual FoxPro web 站点上有一份优秀的策略背景论文,它比较了 Visual FoxPro、Visual Basic、SQL Server 和 Access 等 Microsoft 产品之间的不同。 问题 1-7: 哪可以找到 Visual FoxPro 的使用示例? 答案: Visual FoxPro 6.0 产品中带有丰富的示例,其中有一些是针对 6.0 版特有功能的新示例。与 Visual FoxPro 以前的版本不同,这些示例将与所有 Visual Studio 示例安装在一起。您必须运行 MSDN Library 的“自定义”安装来安装这些示例。在 Visual FoxPro 中可使用新的 HOME(2) 函数方便地找到已安装示例的位置。 除了产品中所自带的示例外,Microsoft Visual FoxPro web 站点还将经常提供新的示例。

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧