向各位高手请教个问题

ezwjezwj

有两个问题向高手们请教:

1)有一个列表框和5个文本框同时显示"表1"的数据,如何让在双击列表框的某一行数据时,5个文本框同时显示这行数据的内容.

2)在窗体通过command 按钮对"表1 "的数据进行添加删除等操作时,如何让列表框实时更新.

看了一个例子,还是不太懂,有两行这样写的.第二句第三句不知道什么意思.

Private Sub List3_DblClick(Cancel As Integer)
Me.选项卡控件.Pages(1).SetFocus
Me.Filter = "客户编号='" & Me.List3 & "'"
Me.FilterOn = True
End Sub

fan0217

Filter 属性

参阅应用于[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilter.htm#example]示例[/url]特性

使用 Filter 属性可以在对[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilter.htm#]窗体[/url]、[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilter.htm#]报表[/url] 查询或表应用筛选时指定要显示的记录子集。String 型，可读/写。

expression.Filter

expression      必需。返回“应用于”列表中的一个对象的表达式。

说明

在 Microsoft Access 项目 (.adp) 中，如果要为服务器上的数据指定服务器筛选，请使用 ServerFilter 属性。

Filter 属性是一个字符串表达式，它包含了一个不带 WHERE 关键字的 WHERE 子句。例如下面的 Visual Basic 代码定义并应用筛选以只显示来自美国的顾客：

1. Me.Filter = "Country = 'USA'"
   
   
2. Me.FilterOn = True

复制代码

fan0217

FilterOn 属性


参阅应用于[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilterOn.htm#example]示例[/url]特性


使用 FilterOn 属性可以指定或确定是否应用[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilterOn.htm#]窗体[/url]或[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acproFilterOn.htm#]报表[/url]的 Filter 属性。Boolean 型，可读/写。


expression.FilterOn


expression      必需。返回“应用于”列表中的一个对象的表达式。


说明


如果已经在 Microsoft Access 项目 (.adp) 中指定了服务器筛选，请使用 ServerFilterByForm 属性。


FilterOn 属性有以下设置：











设置


Visual Basic


说明





是


True  


应用对象的 Filter 属性。





否


False  


（默认值）不应用对象的 Filter 属性。

ezwj_4847

版主能否帮我详细解答一下,列表框怎样与5个文本框同步显示记录的问题,我是个新手,

这一句Me.FilterOn = true用的时候报错,运行时错误'2001',您取消了前次的操作.

[此贴子已经被作者于2006-4-18 11:12:24编辑过]

一点通

将你的例子传上来让别人帮你测试或修改

fan0217

以下是引用ezwj_4847在2006-4-18 10:08:00的发言：


版主能否帮我详细解答一下,列表框怎样与5个文本框同步显示记录的问题,我是个新手,

这一句Me.FilterOn = true用的时候报错,运行时错误'2001',您取消了前次的操作.

这种情况一般是:

这句代码有问题:Me.Filter = "客户编号='" & Me.List3 & "'"

使用Me.Filter = "客户编号=" & Me.List3  试试，客户编号可能是数字类型的。

ezwj_4847

请各位高手修改一下我的例子

ezwj_4847

其实刚才那两句是定义数据库指针的意思吧,

能否再问一下版主,列表框有没有更新属性,我想做一个按钮,添加,保存,删除的同时更新列表框.

[此贴子已经被作者于2006-4-18 14:35:01编辑过]