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

定单表通过目录树加载

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