主题：怎么加载外部数据库90天的数据

我设的老不行

是要设在那里，xxx是表名吗？

很多表要一个个设吗，登入用户也很多要都一样的开打狐表加载前90天的数据和没有数据的空白行

Dim dt As Date = Date.Today.AddDays(-90) DataTables("xxx").LoadFilter = "日期 >=" & dt & "#" DataTables("xxx").Load()

 

 

我设了它提示什么有附近有语法错误

还是提示

 

 

system.data.oleDb.oledbexception: '#' 附近有语法错误

是SQL Server的数据库

 

可以设了，又有新的问题

 

1.有的日期列没有数据的空行要一起显示出来

2.表太多了，一个个设好麻烦帮我写个一起设的

3.相系表，会出现子表没有母表数据。要怎么设。 设相系表好慢卡在那好久，

1、Dim dt As Date = Date.Today.AddDays(-90)

DataTables("xxx").LoadFilter = "日期 >= '" & dt & "' Or 日期 Is Null"

DataTables("xxx").Load()

 

2、

 

Dim nms() As String  = {"表名1","表名2","表名3","表名4"}

For Each nm As String in nms

    DataTables(nm).LoadFilter = "日期 >= '" & dt & "' Or 日期 Is Null"

    DataTables(nm).Load()

Next

 

 

 

上面的可以加一个条件吗？加一个型号列不为空+日期为空一起显示出来

提示：列名 ‘型号’无效

 

 

 

1.如果型号列是父表来的，设的是不是就无效呢？

 

2.父表没有加载，子表中的父表列数据就没有，要怎么设会有。

 

 

型号列数据来自父表型号

If DataTables("下单").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("压铸").LoadFilter = "流水号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("下单").DataRows
        ids = ids & "," & dr("流水号")
    Next
    ids= ids.Trim(",")
    DataTables("压铸").LoadFilter = "流水号 In (" & ids & ")"
End If
DataTables("压铸").Load()

 

 

设上面会提示：system.data.oledb.oledbexception:'补'  附近有语法错误

是字符型的