如何设置更新路径。。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何设置更新路径。。

共有3393人关注过本帖树形打印复制链接主题：如何设置更新路径。。

身份不明

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

如何设置更新路径。。 发帖心情

Post By：2014/6/26 15:27:00 [只看该作者]

我设置了2个IP访问外部数据库，先连接局域网在连接外网。

请问我的升级路径该如何设置呢？

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/26 15:28:00 [只看该作者]

动态设置 UpdatePath

例如

if 局域网通

UpdatePath=局域网路径

else

UpdatePath=互联网路径

end if

更新代码..

身份不明

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：459 积分：3137 威望：0 精华：0 注册：2014/2/13 9:22:00

Post By：2014/6/26 15:50:00 [只看该作者]

筛选日期代码如下：

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单").DataTable.LoadFilter = Filter
    Tables("订单").DataTable.Load
End If