Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:代码优化问题

1楼
lin98 发表于: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
2楼
有点蓝 发表于:2024/6/27 10:59:00
使用函数:http://www.foxtable.com/webhelp/topics/1486.htm
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02148 s, 2 queries.