Office中国论坛/Access中国论坛

标题: 自身多级筛选数据的组合框实例 [打印本页]

作者: todaynew 时间: 2009-5-27 21:04
标题: 自身多级筛选数据的组合框实例
本帖最后由 todaynew 于 2009-5-27 21:08 编辑

[attach]38239[/attach]

[attach]38240[/attach]

注：
1、筛选操作时，双击即可。
2、有点小缺陷，在第二级筛选时，没能将上级数据显示出来。调试了半天，未得其解。

作者: shxh168 时间: 2009-6-1 14:14
我来看看

作者: 黄沙戈壁草泥马 时间: 2009-6-2 16:27
晕,我这是在那里看了的?

作者: lkkl66 时间: 2009-6-2 23:03
本帖最后由 lkkl66 于 2009-6-2 23:12 编辑

1# todaynew

Option Compare Database
Private Sub Form_Load()
Dim sql As String
sql = "select * from 省"
Me.地名.RowSource = sql
Me.地名.BoundColumn = 1
Me.地名.ColumnCount = 2
Me.地名.ColumnWidths = "0;1.2 cm"
End Sub

Private Sub 地名_DblClick(Cancel As Integer)
Dim sql As String
Dim str As String
str = Me.地名.RowSource
If IsNull(Me.地名.Value) = False Then
If InStr(str, "from 省") > 0 Then
      sql = "select * from 市 where 省ID = " & Me.地名.Value
      Me.地名.Value = DLookup("地名", "省", "省ID=" & Me.地名.Value)
      Me.地名.RowSource = sql
      Me.地名.BoundColumn = 2
      Me.地名.ColumnCount = 3
      Me.地名.ColumnWidths = "0;0;1.2 cm"
End If
If InStr(str, "from 市") > 0 Then
      sql = "select * from 县 where 市ID = " & Me.地名.Value
      Me.地名.Value = DLookup("地名", "市", "市ID=" & Me.地名.Value) '不知为何不显示？
      Me.地名.RowSource = sql
'       Me.地名.BoundColumn = 2
      Me.地名.BoundColumn = 3 '不知为何不显示？------将 Me.地名.BoundColumn = 2 改为Me.地名.BoundColumn = 3＝＝＝即可
      Me.地名.ColumnCount = 3
      Me.地名.ColumnWidths = "0;0;1.2 cm"
End If
If InStr(str, "from 县") > 0 Then
      Me.地名.Value = Null
      Form_Load
End If
Else
Form_Load
End If
End Sub

我同时想请教你的动画图片是用什么做得？（我不会flase、photoshop）

作者: todaynew 时间: 2009-6-3 13:38

1# todaynew

Option Compare Database
Private Sub Form_Load()
Dim sql As String
sql = "select * from 省"
Me.地名.RowSource = sql
Me.地名.BoundColumn = 1
Me.地名.ColumnCount = 2
Me.地名.Colu ...
lkkl66 发表于 2009-6-2 23:03

可下载一个Ulead GIF，这个程序做动画比较简单。

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