- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 列出包含内容的订单表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38259)
-- 发布时间：2013/7/24 11:51:00
-- 列出包含内容的订单表
Dim dr1 As DataRow
dr1 = DataTables("管辖区域表").Find("[A1] = \'" & User.Name & "\'")
DataTables("订单表").LoadFilter = "(管辖区域 In (\'" & dr1("管辖区域") & "\'))"
DataTables("订单表").Load
管辖区域里面某有个销售管辖好几个区域。
但是订单表每一个订单只有某一个区域，我要把这些区域的订单都载入，但是以上代码，什么都没有载入。
请高手指点。
-- 发布时间：2013/7/24 11:53:00
--
你的图片看不到，图片上传的方法：
-- 发布时间：2013/7/24 11:55:00
--
我蒙一下，看看对不对：
Dim dr1 As DataRow
dr1 = DataTables("管辖区域表").Find("[A1] = \'" & Usr.Name & "\'")
if dr1 Isnot Nothing Andalso dr1.Isnull("管辖区域") =false
DataTables("订单表").LoadFilter = "管辖区域 In (\'" & dr1("管辖区域").Replace(",","\',\'") & "\')"
DataTables("订单表").Load
End If
-- 发布时间：2013/7/24 12:21:00
--
还真的可以了，不过下面这句话真心看不懂是什么意思
DataTables("订单表").LoadFilter = "管辖区域 In (\'" & dr1("管辖区域").Replace(",","\',\'") & "\')"
为什么DataTables("订单表").LoadFilter = "(管辖区域 In (\'" & dr1("管辖区域") & "\'))"不行呢？
-- 发布时间：2013/7/25 9:43:00
--
你分别执行：
\'前面的代码
Messagebox.show( "管辖区域 In (\'" & dr1("管辖区域").Replace(",","\',\'") & "\')")
Messagebox.show("(管辖区域 In (\'" & dr1("管辖区域") & "\'))")
就知道有什么区别了