主题：动态加载

If e.Col.name = "申请单号" Then '定位并打开该申请单

    If e.Row("申请单号") IsNot Nothing Then

        Dim dr As DataRow = DataTables("申请单").SQLfind("申请单号 = '"& e.row("申请单号") & "'")

        If dr IsNot Nothing Then

            Dim wz As Integer = Tables("申请单").findrow(dr)

            If wz >= 0 Then

                Tables("申请单").Position = wz

            End If

        End If

    End If

    forms("申请单录入").open()

End If

请教,代码有需要改进的地方吗,我的系统目前全部都是打开系统加载全部数据,觉得有些慢了,想全部换成动态加载,感觉要更改代码的地方好多啊,而且自己有些晕乎,只能一点点啃了,谢谢老师