Foxtable(狐表)用户栏目专家坐堂 → 碰到个怪问题,帮忙看下


  共有8132人关注过本帖树形打印复制链接

主题:碰到个怪问题,帮忙看下

帅哥哟,离线,有人找我吗?
even0898
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
碰到个怪问题,帮忙看下  发帖心情 Post By:2013/2/22 2:06:00 [只看该作者]

With DataTables("供应商资料主表")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 15
    .LoadPage = 0
    .Load()
    e.Form.Controls("页码信息").Text= "共: [" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页"
End With
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()

上面代码执行后子表数据固定只加载10行数据..

我外部表已经用[_Identify] Is Null限制过了..

[此贴子已经被作者于2013-2-22 2:06:53编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/2/22 2:42:00 [只看该作者]

不明白您什么问题


 回到顶部
帅哥哟,离线,有人找我吗?
even0898
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:186 积分:1294 威望:0 精华:0 注册:2011/8/17 17:29:00
  发帖心情 Post By:2013/2/22 2:49:00 [只看该作者]

我主表加载了15行数据,子表只加载10行

我刚刚把子表在外部表设置里设置成全部加载就可以了..很奇怪,我给子表设置条件[_Identify] Is Null就只固定加载10行..

导致我的主表有5行没有子表数据..


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/2/22 8:34:00 [只看该作者]

With DataTables("供应商资料主表")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 15
    .LoadPage = 0
    .Load()
    e.Form.Controls("页码信息").Text= "共: [" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页"
End With
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("供应商资料子表").LoadTop = ""
DataTables("供应商资料子表").Load()

 回到顶部