Foxtable(狐表)用户栏目专家坐堂 → 代码优化问题


  共有85人关注过本帖平板打印复制链接

主题:代码优化问题

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1145 积分:7566 威望:0 精华:0 注册:2020/11/4 22:15:00
代码优化问题  发帖心情 Post By:2024/6/27 10:56:00 [只看该作者]

下面的代码,在多处使用或重复使用高,能不能写一个公共 地方,其他不同的表或窗口事件要使用,用类于变量或事件,调这个变量或事件,这样可以少很多代码,如何实现?
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "创建日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "创建日期 <= #" & .Value & "#"
    End If
End With

 回到顶部