[分享]一个实用的筛选排序窗体

gxlishuxin

tmtony

不错不错,谢谢分享,不过代码还可做得更通用些

cszyq

xiexie

kapqxy0

不错

gxlishuxin

不错不错,谢谢分享,不过代码还可做得更通用些

感谢tmtony站长的关注，可否具体点说明代码如何做到更通用？

tmtony

可在窗体加载的时候加上如下代码：

Dim ctr As Control
For Each ctr In Me.Controls
    If Right(ctr.Name, 2) = "标签" Then
        ctr.OnClick = "=orderme('" & Left(ctr.Name, Len(ctr.Name) - 3) & "')"
    End If
    If (ctr.ControlType = acTextBox) Then
      If (Nz(ctr.ControlSource) <> "") Then ctr.OnDblClick = "=filterme('" & ctr.Name & "')"
    End If
Next
End Sub


这样，后面设置标签和文本框的单击和双击函数就可取消了，而且新增文本框字段和新增标签时不需再修改代码了

gxlishuxin

非常感谢tmtony站长的指点，我在之前的编程中与本例相关的应用上都为一个一个的Control编写相同的代码而厌烦。我在制作flash文件时，也使用过OnClick =事件编程，但就没有想到在access中如此巧妙的应用。

120840580

谢谢 ~12

fannky

以下是引用tmtony在2006-6-2 23:51:00的发言：


可在窗体加载的时候加上如下代码：

Dim ctr As Control
For Each ctr In Me.Controls
    If Right(ctr.Name, 2) = "标签" Then
        ctr.OnClick = "=orderme('" & Left(ctr.Name, Len(ctr.Name) - 3) & "')"
    End If
    If (ctr.ControlType = acTextBox) Then
      If (Nz(ctr.ControlSource) <> "") Then ctr.OnDblClick = "=filterme('" & ctr.Name & "')"
    End If
Next
End Sub


这样，后面设置标签和文本框的单击和双击函数就可取消了，而且新增文本框字段和新增标签时不需再修改代码了

你这样改得源文件会出错，按“合同编号”有会出错

bluelevin

好东西!!!!