主题：求助同步加载父子表

狐爸帮忙看看。密码0000同步加载父子表。按帮助里面抄的。就是不行。帮忙看看代码那里不对。最好改好后。传个过来看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

密码。4个0

呵呵，密码呢？

锁起大门，怎么帮你看啊？

狐爸帮忙看看。密码0000同步加载父子表。按帮助里面抄的。就是不行。帮忙看看代码那里不对。最好改好后。传个过来看看

下载信息  [文件大小：360.0 KB  下载次数：1]

点击浏览该文件:管理项目2.table

密码。4个0

0000

你通过关单号建立关联，但是父表和子表都没有输入关单号，代码当然出错的，理由你自己想想吧。

而且父表和子表的关联列内容全部为空，如此测试同步加载，意义何在？

另，代码改成这样，可以避免出错：

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(",")
    If ids = "" Then
        Return
    End If
    DataTables("支出明细").LoadFilter = "关单号 In (" & ids & ")"
End If
DataTables("支出明细").Load()

表达式中的字符串，要用单引号括起来：

If DataTables("业务大表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("支出明细").LoadFilter = "关单号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("业务大表").DataRows
        If dr.Isnull("关单号") = False Then
            ids = ids & ",'" & dr("关单号") & "'"
        End If
    Next
    ids= ids.Trim(",")
    If ids = "" Then
        Return
    End If
    DataTables("支出明细").LoadFilter = "关单号 In (" & ids & ")"
End If
DataTables("支出明细").Load()

建议你看看：

http://www.foxtable.com/help/topics/1284.htm