我用代码建立了一个表单'Form'，其中有两个editbox 即edit1  edit2
建立了一个命令按钮，'command1'  当我按下'command1'时，执行一过程
文件chaxun.prg  其结果得到一字符串，如：aaaa='测试结果'。
问题是：如何将这结果显示在 'edit2' 中?
先谢谢！

先谢谢老师了！
我是菜鸟，不知道怎么加啊！现在把代码发上来，求帮助看看。
再次感谢！

frmMyForm = CREATEOBJECT('Form')  && 创建表单
frmMyForm.Closable = .F.  && 禁止窗口弹出菜单和"关闭"按钮

frmMyForm.Top = 55  && 指定 Form 表单所在行
frmMyForm.width = 555 && 指定 Form 表单宽度
frmMyForm.Height = 333
frmMyForm.left = 55   && 指定 Form 表单所在列


frmMyForm.AddObject('edit','EditBox')  && 在表单中添加一个 EditBox 控件
frmMyForm.AddObject('cmdCmndBtn1','cmdMyCmndBtn1')  && 添加 Up 命令按钮
frmMyForm.AddObject('cmdCmndBtn2','cmdMyCmndBtn2')  && 添加 Down 命令按钮
frmMyForm.AddObject('cmdCmndBtn3','cmdMyCmndBtn3')  && 添加 Quit 命令按钮

frmMyForm.edit.Visible = .T.  && 使 EditBox 控件可见
frmMyForm.edit.Top = 20  && 指定 EditBox 控件所在行
frmMyForm.edit.width = 140  && 指定 EditBox 控件宽度
frmMyForm.edit.Height = 20
frmMyForm.edit.left = 3   && 指定 EditBox 控件所在列

frmMyForm.AddObject('edit2','EditBox')  && 在表单中添加一个 EditBox 控件

frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见
frmMyForm.edit2.Top = 20  && 指定 EditBox 控件所在行
frmMyForm.edit2.width = 90  && 指定 EditBox 控件宽度
frmMyForm.edit2.Height = 20
frmMyForm.edit2.left = 211   && 指定 EditBox 控件所在列

frmMyForm.cmdCmndBtn1.Visible =.T.  && Up 命令按钮可见
frmMyForm.cmdCmndBtn2.Visible =.T.  && Down" 命令按钮可见
frmMyForm.cmdCmndBtn3.Visible =.T.  && Quit 命令按钮可见

frmMyForm.SHOW  && 显示表单
READ EVENTS  && 开始事件处理

DEFINE CLASS cmdMyCmndBtn1 AS COMMANDBUTTON  && 创建命令按钮
   Caption = 'Slant \<Up'  && 命令按钮上的标题
   Left = 50  && 命令按钮所在列
   Top = 100  && 命令按钮所在行
   Height = 25  && 命令按钮的高度


   PROCEDURE Click
   SET PROCEDURE TO dl_pingze.prg
  frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见
ENDDEFINE

frmMyForm.edit2.Visible = .T.  && 使 EditBox 控件可见

DEFINE CLASS cmdMyCmndBtn2 AS CommandButton  && 创建命令按钮
   Caption = 'Slant \<Down'  && 命令按钮的标题
   Left = 200  && 命令按钮所在列
   Top = 100  && 命令按钮所在行
   Height = 25  && 命令按钮的高度

   PROCEDURE Click
      ThisForm.edit2.Visible = .T.  && 显示 edit2 控件
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn3 AS CommandButton  && 创建命令按钮
   Caption = '\<Quit'  && 命令按钮上的标题
   Cancel = .T.  && 默认的取消按钮 (Esc)
   Left = 125  && 命令按钮所在列
   Top = 150  && 命令按钮所在行
   Height = 25  && 命令按钮的高度

   PROCEDURE Click
      
      THISFORM.Release
      CLEAR EVENTS  && 停止事件处理, 关闭表单
ENDDEFINE

谢谢各位老师！
我发现好象aaa没有传递回来，怎么传递回来呢？

当执行到
 frmMyForm.Edit2.Value = aaa
时，提示“找不到变量aaa”

我明白了一个问题，就是我在edit1中录入的内容没有成功的赋值给一个变量如aaa
在手工的表单中是在属性中设置的，

那么在代码中怎么做呢？

还请老师赐教！谢谢！

谢谢！
现在是edit不让我编辑 如初始aaa = "1234"，
当我在edit中输入‘66666’时，执行后 aaa还是等于‘1234’


[ 本帖最后由 jsyg 于 2012-10-21 01:13 编辑 ]

谢谢老师们了，尤其谢谢版主TonyDeng

我好象没分，也不知道怎么结帖子。

谢谢!以后少麻烦不了你的!

谢谢!
明白了,问题也解决了.