If e.Col.name = "申请单号" Then '定位并打开该申请单
If e.Row("申请单号") IsNot Nothing Then
Dim dr As DataRow = DataTables("申请单").SQLfind("申请单号 = '"& e.row("申请单号") & "'")
If dr IsNot Nothing Then
DataTables("申请单").LoadFilter = "申请单号 = '"& e.row("申请单号") & "'"
DataTables("申请单").load()
Dim wz As Integer = Tables("申请单").findrow(dr)
If wz >= 0 Then
Tables("申请单").Position = wz
End If
End If
End If
forms("申请单录入").open()
End If
请教,代码有需要改进的地方吗,我的系统目前全部都是打开系统加载全部数据,觉得有些慢了,想全部换成动态加载,感觉要更改代码的地方好多啊,而且自己有些晕乎,只能一点点啃了,谢谢老师