11、 超级SYS(1037,1)
USE report1.frx
SYS(1037,1) &&自动读取report1.frx里面的打印环境
确定一下看看,**!
SYS(1037,1)的设置自动保存到report1.frx里面呢
哎,红雨的打印设置表单又白做呢
12、 在WITH … ENDWITH 和FOR EACH … OR中支持智能感应
为在WITH ... ENDWITH 和FOR EACH ... E□□□OR中支持IntelliSense,这两个命令的语法格式增加了AS Type子句,如下所示:
WITH ObjectName [AS Type [OF ClassLibrary]]
Commands
ENDWITH
FOR EACH ObjectName [AS Type [OF ClassLibrary]] IN Group
Commands
[EXIT]
[LOOP]
OR
Type 可以引用任何有效类型,包括数据类型、类类型或ProgID,如果类名称无法找到,Visual FoxPro将忽略该类名称并不显示IntelliSense。
注意:Type引用不影响运行时应用程序的实际功能,这种引用仅是为了使用IntelliSense。ObjectName 表达式可以引用一个内存变量或数组。
ClassLibrary参数指定的类库需要在可以被Visual FoxPro发现的路径中,如果指定的类库不能发现,IntelliSense不显示。
输入特定的ProgIDs和类库不需要引号围住它们,除非在名称中包含有空格。当输入了一个关键词, IntelliSense将显示一个在FoxCode (Type="T")中注册的类型列表。如果指定了一个有效类型,在WITH ... ENDWITH 或FOR EACH ... E□□□OR中输入一个圆点,将显示对于该对象的IntelliSens。
必须指定一个有效类库,对已存在对象引用则无效,例如下面的语句不支持IntelliSense:
WITH THISFORM AS APPLICATION
ENDWITH
WITH THISFORM AT THIS
ENDWITH
有效的书写方式如下:
WITH This AS Form &&在一个表单事件中书写
.Caption="标题"
ENDWITH
又如:
WITH This.Pageframe1.Page1 AS Page
.Caption="页框1"
ENDWITH
Visual FoxPro支持嵌套WITH ... ENDWITH和FOR EACH ... E□□□OR命令,下面是在一个叫Program1.prg的.prg中定义类中的嵌套WITH ... ENDWITH命令。在做这个示例前,首先需要在磁盘中保存一下Program1.prg文件,然后重新打开,可以在WITH和ENDWITH之间输入一个圆点,然后就可以看见IntelliSense,如图5所示。
DEFINE CLASS f1 AS form
MyVar1 = 123
ADD OBJECT t1 AS mytext
PROCEDURE Init
WITH THIS AS f1 OF program1.prg
WITH .t1 AS mytext OF program1.prg
ENDWITH
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS mytext as textbox
MyVar2 = 123
ENDDEFINE
13、 报表可以有多个细节区了