主题：奇怪的程序假死问题

没看懂了，

 If DataTables(tbn).DataRows.Count = 0 AndAlso DataTables(tbn1).DataRows.Count = 0 Then
        MessageBox.show("没有查找到相关数据!","提示")
        Return Nothing
    Else
        Dim ids As String
        For Each dr As DataRow In DataTables(tbn).DataRows
            ids = ids & ",'" & dr(keys) & "'"
            ids= ids.Trim(",")
            DataTables(tbn1).LoadFilter = keys & "In (" & ids & ")"
        Next
        Dim vds As String
        For Each dr As DataRow In DataTables(tbn1).DataRows
            vds = vds & ",'" & dr(keys) & "'"
            vds= vds.Trim(",")
            DataTables(tbn).LoadFilter = keys & "In (" & vds & ")"
        Next
    End If
这两段代码干什么的？这个和

    DataTables(tbn).LoadFilter = key & " Like '%" & cx & "%' or " & key1 & " Like '%" & cx & "%'"
    DataTables(tbn).Load()
    DataTables(tbn1).LoadFilter = key2 & " Like '%" & cx & "%'"
    DataTables(tbn1).Load()
有什么本质区别吗？

加载照成死循环，跟着段代码应该没有关系，而是你本身其他代码引起了最后一句加载的卡死

你这个函数的参数过多了，函数参数超过4个以上使用就不方便了。

还是上例子吧，也许可以找到其他方法帮你解决。

负担到没关系，循环几万次也才差零点几秒。

我一直有个问题要问楼主，感觉论坛很多狐友都这么做，子表加载父表所有条件相关的行，这种多对多关系的加载，是做什么用处？

然后那？子表几百行放在那里？主表点击一行然后子表在筛选？