2.在表单1的文框的INTERACTIVECHANGE事件中写道:
X=LEFT(ALLTRIM(STR(THIS.VALUE)),2)
IF X="66"
DO FORM 表单2.SCX NAME MYFORM2
MYFORM2.TOP=N
MYFORM2.LEFT=N&&此时可将表单2像控制控件一般随你设置了
若要关闭表单2:MYFORM2.RELEASE
隐藏表单2:MYFORM2.VISIBLE=.F.
其它的一些事情就看你自已的了,其实就跟你控制表单1中的控件写法以经没什么不一样了,不一样的只是,本表单内引用的是:THISFORM.XXXX.XXX
此处写的就是:MYFORM2.XXX.XXX
2.在表单1的文框的INTERACTIVECHANGE事件中写道:
X=LEFT(ALLTRIM(STR(THIS.VALUE)),2)
IF X="66"
DO FORM 表单2.SCX NAME MYFORM2
MYFORM2.TOP=N
MYFORM2.LEFT=N&&此时可将表单2像控制控件一般随你设置了
若要关闭表单2:MYFORM2.RELEASE
隐藏表单2:MYFORM2.VISIBLE=.F.
其它的一些事情就看你自已的了,其实就跟你控制表单1中的控件写法以经没什么不一样了,不一样的只是,本表单内引用的是:THISFORM.XXXX.XXX
此处写的就是:MYFORM2.XXX.XXX