以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195638)
--  作者：朱女士
--  发布时间：2025/2/25 10:34:00
--  加载数据
老师：您好！
    我有这么一个问题：我的数据库都是sql server 数据类型，我想在项目启动时，只加载表的名称，不加载表的任何数据。只是在点击某个菜单或某个按钮时，按编辑或统计需要加载表的数据。我想统计订单评审表的数据统计模块：我的代码执行后，没有按照要求加载，我选择的202501-202502两个月的数据，可是打开订单评审表后看到的还有2019年的数据。请教老师的是：一是对这类问题处理的思路，二是我的代码问题出在哪里。我在项目属性里没写任何代码。谢谢！
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim y1 As Integer = year(dtp1.value)
Dim m1 As Integer = month(dtp1.value)
Dim d1 As Integer = day(dtp1.value)

Dim y2 As Integer = year(dtp2.value)
Dim m2 As Integer = month(dtp2.value)
Dim d2 As Integer = day(dtp2.value)

Dim dt1 As New Date(y1, m1, d1)
Dim dt2 As New Date(y2, m2, d2)

psb = gsName + "ddpsb"
DataTables(psb).LoadFilter = "接单日期>= \'" & dt1 & "\'and 接单日期<=\'" & dt2 & "\'"
DataTables(psb).Load()
以下的统计代码略...
--  作者：有点蓝
--  发布时间：2025/2/25 11:12:00
--  
调试

……
psb = gsName + "ddpsb"
msgbox(psb)
msgbox("接单日期>= \'" & dt1 & "\'and 接单日期<=\'" & dt2 & "\'")
msgbox(DataTables(psb).loadtop)
DataTables(psb).LoadFilter = "接单日期>= \'" & dt1 & "\'and 接单日期<=\'" & dt2 & "\'"
DataTables(psb).Load()