以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  更换数据源 代码失效  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=90090)
--  作者：有点蓝
--  发布时间：2016/9/5 15:01:00
--  
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()
--  作者：有点蓝
--  发布时间：2016/9/5 16:23:00
--  
外部表管理那里改成全部加载
--  作者：有点蓝
--  发布时间：2016/9/5 16:44:00
--  
本来就是和AC数据一样灵活加载