加载当天的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载当天的数据

共有2548人关注过本帖树形打印复制链接主题：加载当天的数据

恒隆君

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

加好友

发短信

等级：二尾狐帖子：496 积分：4055 威望：0 精华：0 注册：2017/7/5 16:15:00

加载当天的数据 发帖心情

Post By：2019/2/26 23:01:00 [显示全部帖子]

SQL server 数据库

为什么明明有入库日期 = 2019-2-26 的行。

但就是不加载。

如果filter 设为 "入库日期 <= '2019-2-26'

也是不能加载2019-2-26，必须要设成 "入库日期 <= '2019-2-27'

Dim dt As DataTable = DataTables("配件入库明细")

dt.LoadFilter = "入库日期 = '" & Date.today & "'"

msgbox(Date.today)

dt.Load()

恒隆君

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

加好友

发短信

等级：二尾狐帖子：496 积分：4055 威望：0 精华：0 注册：2017/7/5 16:15:00

Post By：2019/2/26 23:05:00 [显示全部帖子]

如查设一个全局代码 today.

怎样保持不重启系统

也是最新的日期。

'读取SQL服务器时间

Dim today As Date

Dim cmd As New SQLCommand

cmd.ConnectionName = cn

cmd.CommandText = "Select GetDate()"

Today = cmd.ExecuteScalar()

恒隆君

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

加好友

发短信

等级：二尾狐帖子：496 积分：4055 威望：0 精华：0 注册：2017/7/5 16:15:00

Post By：2019/2/27 0:36:00 [显示全部帖子]

不可以取日期里的日期

加载当天的数据，

以前一直都没有这个问题。

关键是窗口里的筛选代码不知如何改。

Dim bjf() As String = {" ="," = "," like "," = "," = "," = ",">=","<=",">=","<="}

Dim fds() As String = {"仓库名称","入库原因","配件名称","配件代码","供应商名称","送货单号","入库日期","入库日期","数量","数量"}

Dim tpf() As String = {"","","%","","","","","","",""}

Dim filter As String

For i As Integer = 0 To nms.Length - 1

If e.Form.Controls(nms(i)).text <> Nothing Then

If filter > "" Then

filter = filter & " And "

End If

filter = filter & fds(i) & bjf(i) & sps(i) & tpf(i) & e.Form.Controls(nms(i)).value &tpf(i) & sps(i)

' MessageBox.show(filter)

End If

DataTables("配件入库明细").LoadFilter = filter

DataTables("配件入库明细").Load()

下一主题 >> << 上一主题

主题：加载当天的数据