以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  明细追载报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88348)

--  作者:大红袍
--  发布时间:2016/8/1 14:24:00
--  

Dim Filter As String = "订单号 = " & e.Table.Current("订单号")

 

改成

 

Dim Filter As String = "订单号 = \'" & e.Table.Current("订单号") & "\'"


--  作者:大红袍
--  发布时间:2016/8/1 15:03:00
--  

对应的,也把其它表的数据动态加载进来,比如

 

DataTables("产品").LoadFilter = "xxxxx"

DataTables("产品").Load

 

或者 http://www.foxtable.com/webhelp/scr/2894.htm

 


--  作者:大红袍
--  发布时间:2016/8/1 15:29:00
--  

先试试这样

 

If e.Table.Current IsNot Nothing Then    
    Dim Filter As String = "区域号 = \'" & e.Table.Current("区域号") & "\'"
    DataTables("产品").RemoveFor(filter)
    DataTables("产品").AppendLoad(Filter) \'则追载此订单的订单明细
End If


--  作者:大红袍
--  发布时间:2016/8/1 15:43:00
--  

那就这样写

 

If e.Table.Current IsNot Nothing Then    
    Dim Filter As String = "区域号 = \'" & e.Table.Current("区域号") & "\'"
    DataTables("产品").LoadFilter = Filter

    DataTables("产品").Load
End If


--  作者:大红袍
--  发布时间:2016/8/1 17:09:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:关联表动态追载数据.foxdb


--  作者:大红袍
--  发布时间:2016/8/3 9:11:00
--  
回复13楼,你想发什么?没看到你发的内容。