以文本方式查看主题

-  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=24072)
--  作者：zpx_2012
--  发布时间：2012/9/28 19:03:00
--  分页加载时加载子表出错？

各位老师，

 

在导航的目录树中设计了节点动态加载，但当加载有子表的表单时就出错，如下图：

 


图片点击可在新窗口打开查看此主题相关图片如下：360截图20120928-003.jpg
图片点击可在新窗口打开查看

订单编号本身后面还有-001等尾号的，但出错的提示里却少掉了后面的数字。

 

主表的afterload代码如下：

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()

 

是什么原因导致的，谢谢！
--  作者：布莱克朱
--  发布时间：2012/9/28 19:14:00
--  
这个例子是数值型的,你这个现在是字符型的.
--  作者：狐狸爸爸
--  发布时间：2012/9/28 20:02:00
--  
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()
--  作者：playmal
--  发布时间：2012/9/28 20:05:00
--  

狐狸爸爸，你有qq号吗？

 
--  作者：zpx_2012
--  发布时间：2012/9/28 20:36:00
--  

其实我已经改好了，通过这个例子真正明白了In运算符后面若是字符串数组，则一定要在每个成员的两边加上一个单引号“\'”才可以。

谢谢各位老师。