主题：父表和子表同时加载的错误提示

定单 和 定单明细，   通过  合同号 和 定单号关联

 

定单表通过目录树加载

 

Dim Value()As String
Dim Filter As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Filter ="[合同号] = '" & Value(0) & "'"     
        
    Case 1
        Filter ="[合同号] = '" & Value(0) & "' And [定单号] = '" & Value(1) & "'"
            End Select
DataTables("定单").LoadFilter = Filter
DataTables("定单").Load()

 

 

将 定单表 的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()

 

 

在定单表加载时，出现这个错误提示

此主题相关图片如下：jietu.jpg

 

请教大家 ，这个是什么地方的问题啊

 

 

 

是不是定单表有空行？

没有的

定单号是字符型还是数值型

你现在的代码主表的定单号是字符，而明细表是数值

字符型

这样试试

 

For Each dr As DataRow In DataTables("定单").DataRows
    ids = ids & "','" & dr("定单号")
Next
If ids <> "" Then
    ids = ids.Trim("'").Trim(",")
    DataTables("定单明细").LoadFilter = "定单号 In (" & ids & "')"
End If