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

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

 

3、看看：

http://www.foxtable.com/help/topics/2228.htm

 

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

 

 

 

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

    DataTables(nm).LoadFilter = "[型号] Is Not Null And 日期 >= '" & dt & "' Or 日期 Is Null"

提示：列名 ‘型号’无效

 

 

 

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

 

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

 

 

楼主说的型号列是从父表来的，是什么意思？

型号列数据来自父表型号

父表和子表的同步加载，可以看看：

http://www.foxtable.com/help/topics/2228.htm

 

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:'补'  附近有语法错误

你的流水号列是字符型还是数值型？

是字符型的