With CurrentTable Dim Str1 As String = "用户: " & User.Name Str1 = Str1 & " 表名: " & .Name & " 总行数: " Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1) StatusBar.Message1 = Str1End With
使用自定义用户管理后,上面这一段代码如何修改,请老大帮助