Dim txt1 As string = CurrentTable.Current("姓名")
Dim txt2 As String = CurrentTable.Cols(CurrentTable.Colsel).Name
dim txt3 As String = "正在输入 " & txt1 & " 的 " & txt2
StatusBar.Message2 = txt3
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("Label1").Text = txt3
End If