* 改为这样，就正常，也就是把Text2隐藏起来，不需要
* 我为什么会这样测试呢，因为很多情况，界面上可能是不需要Text2的
DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG
#DEFINE MY_MSG  0x401
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT text1 as textbox WITH left=10,top=10,SelectOnEntry=1
    ADD OBJECT text2 as textbox WITH left=10,top=40,Visible =.f.
    ADD OBJECT text3 as textbox WITH left=10,top=70
    PROCEDURE init
        BINDEVENT(this.hWnd, MY_MSG, this, "myMsg")
    ENDPROC
    PROCEDURE myMsg(hWnd, uMsg, wParam, lParam)
        this.text1.setfocus
    ENDPROC
    PROCEDURE text1.lostfocus
        thisform.text2.value = thisform.text1.value
        PostMessage(thisform.hWnd, MY_MSG, 0, 0)
    ENDPROC
ENDDEFINE

text2是代表text1在lostfocus中要处理的事情，作示例用
实际情况如楼主的调用按钮点击过程

奇怪，表单运行是好的，可我用类浏览器转换出来的代码，运行的时候说语法错误 。。。
就是这句：
    ADD OBJECT yxwhqx.pageframe1.page1.bb100 AS checkbox WITH ;
        Top = 22, ;
        Left = 23, ;
        Height = 16, ;
        Width = 93, ;
        AutoSize = .T., ;
        Caption = "药品标签打印", ;
        Name = "bb100

yxwhqx?

嗯，我给表单起的名字。。。

上面有：DEFINE CLASS yxwhqx AS form

看下命令的语法使用，我不喜欢将表单转换为PRG

ADD OBJECT [PROTECTED] ObjectName AS ClassName2

PROCEDURE text1.lostfocus
**      thisform.text2.value = thisform.text1.value
        PostMessage(thisform.hWnd, MY_MSG, 0, 0)
 ENDPROC

为什么去掉这，就不行的呢

我这测试正常
与text2都相关的都去掉也未见异常

PROCEDURE text1.lostfocus
        PostMessage(thisform.hWnd, MY_MSG, 0, 0)
ENDPROC
我测试，只这样，就是不行。
测试时，在text1不要输入任何数据，直接跑到text2去了。

text1无键盘输入时确实如此，同时发现异步消息对控件的刷新重绘有异常
这样试试
        thisform.text1.Refresh
        PostMessage(thisform.hWnd, MY_MSG, 0, 0)