Office中国论坛/Access中国论坛

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

作者: 辉辉 时间: 2008-6-16 14:43
标题: [已解决，有新问题]如何在列表框中双击选中用户，在另一窗体中显示出该用户信息。
各位高手，请问一下问题：

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

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

谢谢！

已解决该问题，谢谢kangking！

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

作者: chenwm1973 时间: 2008-6-16 15:27
参数传递或全局变量

作者: kangking 时间: 2008-6-16 15:48
见示例。

作者: liaug 时间: 2008-6-16 15:50
[:33] [:33]

作者: 辉辉 时间: 2008-6-16 16:17
谢谢kangking。

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

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

作者: kangking 时间: 2008-6-16 17:28

原帖由辉辉于 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

不好意思！

作者: 辉辉 时间: 2008-6-17 10:13
没事，我后来看了下代码，把“1”改成“0”，也改好了，谢谢！

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

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

谢谢！

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

作者: liujiangyuan123 时间: 2008-6-27 15:16
地地道道弹道弹道导弹当地

作者: TNHTJ 时间: 2011-4-20 14:33
解压密码？

作者: 三天打鱼 时间: 2013-8-31 22:43
q我想学

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)