主题：刷新按钮的问题

 问题是：双击代码不能使用？

 

 这个得看你代码是怎么写的了，看看逻辑上有没有错误。

 

 或者上传一个例子，贴出你的代码。

 楼主，你直接这样找和定位是不行的。修改以后，快件列表并没有更新到最新数据的，你的快件列表需要重新加载新数据。

 

不应该，你加入代码测试，截图发上来。

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    Return '则返回
End If
Dim wz As Integer
Dim dr As DataRow
dr = DataTables("快件列表").Find("[序号] = '" & e.Table.Current("序号") & "'")
If dr Is Nothing Then

    msgbox(DataTables("快件列表").datarows.count & "   " & Tables("快件列表").Rows.count)
    DataTables("快件列表").LoadFilter = "[序号] = '" & e.Table.Current("序号") & "'"
    DataTables("快件列表").AppendLoad

    msgbox(DataTables("快件列表").datarows.count & "   " & Tables("快件列表").rows.count)
End If

dr = DataTables("快件列表").Find("[序号] = '" & e.Table.Current("序号") & "'")

 

msgbox(dr is nothing)

If dr IsNot Nothing Then
    wz = Tables("快件列表").FindRow(dr)
    If wz >= 0 Then
        Tables("快件列表").Position = wz
    End If
End If