[已解决，有新问题]如何在列表框中双击选中用户，在另一窗体中显示出该用户信息。

辉辉

各位高手，请问一下问题：

如例子所示，我想在“用户列表窗体”中，双击相关的用户信息，就能在“收费数据窗体”中自动弹出该用户的数据（即用户服务编号和公司名称），然后自行输入收费信息。请问应该怎么操作？？

另外，请问在“用户列表窗体”中，我想模糊搜索“用户列表框”中公司名称，请问应该怎么做？

谢谢！


已解决该问题，谢谢kangking！

[ 本帖最后由 辉辉 于 2008-6-17 12:04 编辑 ]

chenwm1973

参数传递或全局变量

kangking

见示例。

liaug

[:33] [:33]

辉辉

谢谢kangking。

但还有些问题：好像第一条记录双击后没反应。

[ 本帖最后由 辉辉 于 2008-6-16 16:20 编辑 ]

kangking

原帖由 辉辉 于 2008-6-16 16:17 发表
谢谢kangking。

但还有些问题：好像第一条记录双击后没反应。

Private Sub List3_DblClick(Cancel As Integer)
Dim strInfo As String
Dim I As Long
For I = 0 To List3.ListCount - 1
    If List3.Selected(I) Then
        strInfo = List3.Column(0) & "//" & List3.Column(1)
        DoCmd.OpenForm "收费数据窗体", acNormal, , , acFormAdd, , strInfo
        Exit Sub
    End If
Next
End Sub

原来这句是：For I = 1 To List3.ListCount
改为：For I = 0 To List3.ListCount - 1

不好意思！

辉辉

没事，我后来看了下代码，把“1”改成“0”，也改好了，谢谢！

辉辉

现在发现还有个问题：在实例中选择“列表框”中的某家企业进去后，转到这家企业的“收费数据窗体”（我发现在“收费数据表”中已经产生一条记录）在“收费数据窗体”没有输入任何数据。当再次在“列表框”双击这条记录，再次进入“收费数据窗体”做修改或者察看，就会提示错误  
请问有没有办法解决这个问题？

我想实现只是查看“用户服务编号”和“企业名称”，不是直接写入数据表。如果要写入数据表，通过保存按钮实现。

谢谢！

[ 本帖最后由 辉辉 于 2008-6-17 16:23 编辑 ]

liujiangyuan123

地地道道弹道弹道导弹当地

TNHTJ

解压密码？