主题：又要麻烦各位版主了，谢谢！！！

1、如何实现查询，在“录入查询窗口”录入姓后名，点击查询按钮，这边的录入窗口，就自动回到查询的该人!!!
2、在数据转出时，如何实现进度条，完成后出现提示！！！

谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据转移.table

又要麻烦各位版主了，谢谢！！！ 

应该说你所出的题目不是难题，

建议多学习，帮助和自带的例子，增加“自己的份量”，呵呵

1.
Dim Filter As String
With e.Form.Controls("输入查询姓名")
    If .Value IsNot Nothing Then
        Filter = "姓名 = '" & .Value & "'"
       End If
End With
If Filter > "" Then
    Tables("人事工资管理").Filter = Filter
End If
数据转出时是很快的,没必要用进度条,提示是可以的

Dim ck As WinForm.TextBox = e.Form.Controls("输入查询姓名")
With CurrentTable
    Dim r As Integer
    r = .FindRow("[姓名] = '" & ck.value & "'",0, True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    Else
        MessageBox.Show("没有!", "提示")
    End If
End With