主题：请老师帮忙看一下问题出在哪里，逻辑列

一个父表-出库表；一个子表-出库清单；通过出库单号关联；父表有一逻辑列-出库已完成；通过选定父表的逻辑列-出库已完成，禁止编辑子表内容；代码如下：

没人回我，自己顶；另外说一下，我是用商业版，不是盗版，把这段代码删掉，FOXTABLE就可以正常使用，可见这代码是不正确了，请高手指点下；

If e.DataCol.name="出库已完成" Then
    Dim drs As List(Of DataRow) = e.DataTable.DataRows.GetChildRows("出库清单")
    If e.newValue = True Then
        For Each dr As DataRow In drs
            dr.Locked = True
        Next
    Else
        For Each dr As DataRow In drs
            dr.Locked = True
        Next
    End If
End If

Czy兄，我那代码有什么不对吗？

Czy兄，提示编译错误，错误代码：Dim drs As List(Of DataRow) = e.DataTable.DataRows.GetChildRows("出库清单")

呵呵，不好意思，手误

 

If e.DataCol.name="出库已完成" Then
    Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("出库清单")
    For Each dr As DataRow In drs
        dr.Locked = e.newValue
    Next
End If

CZY兄，你这代码一样是会出现FOXTABLE死掉的问题；

晕死了，我突然发现不是FOXTABLE死掉了，是速度慢的问题；逻辑列勾上后，要过半天才有反应；

应该是我出库清单表的数据太多了，请教一下老师，应该如何解决让它速度快起来？

减少加载的数据量，按照需要加载