以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  好了  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95047)
--  作者：lake163
--  发布时间：2017/1/9 9:54:00
--  好了
好了

[此贴子已经被作者于2017/1/9 10:00:01编辑过]
--  作者：有点色
--  发布时间：2017/1/9 9:55:00
--  
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
--  作者：lake163
--  发布时间：2017/1/9 10:05:00
--  
谢谢！