(1)默认情况下，数据表中字符型字段左对齐，数值型字段右对齐。
(2)InteractiveChange事件:当用户使用键盘或鼠标更改控件的值时发生。
例如:用鼠标单击组合框中的条目或从键盘上输入数据到文本框时发生或者是用鼠标单击列
表框的条目时其它控件的内容发生相应的变化。
(3)复制别人的原代码会出现一些错误，最好把别人的代码重写一遍。
(4)如果某个控件中事件的程序代码准确无误，发生其上的某事件时总是出现错误，这时可重新
新建一个相同的控件，把相关的程序代码复制过来，然后再把原来的那个控件删除即可。
(5)如果某个控件的事件中包含两种类型的程序代码，当用控件的标题作为判断条件时，一定要
注意标题文本中是否含有空格。
(6)有时为了防止出错可先将其内容清空然后再往里写入内容。
(7)在程序中改变表中的数据内容后，重新起动运行程序发现表中的内容并没有改变，说明没有
使用replace with 对表中的内容进行替换。
(8)如果在控件上设置了提示信息，而当把鼠标移到控件上不出现提示信息时，就要把
AlwaysOnTop设置为.F.否则就会把提示信息挡住
(9)ShowTips属性：指定位于给定的Form对象和ToolBar对象上的控件是否显示工具提示，设置
为.T.时就可显示提示信息。
(10)Desktop属性：指定表单是否包含在Visual FoxPro主窗口中，一般设置为.T.表示同意把表
单包含在VF主窗口中。
(11)messagebox("提示内容"[,0,["提示标题"]]) 没有图标信息
messagebox("提示内容",4+16/32/48/64,"提示标题")
16代表"X"图标；32代表"?"图标；48代表"!"图标；64代表"i"图标；4代表出现"是"和"否"两个
按钮；
messagebox("提示内容",4+48,"提示标题")=6代表单击"是"这个按钮；messagebox("提示内
容",4+48,"提示标题")=7代表单击"否"这个按钮
(12)组合框或列表框的ListIndex属性：指定组合框或列表框控件中选定数据项的索引值。
也就是显示索引值所对应的数据项(即索引值所对应的某一个条目的内容---设置Combo控件中显
示的默认值)。
当VF图标最小化不能最大化时，可以在图标上单击右键选择最大化等
一个没有错误的表单当不能显示时，有两点可能：
第一：该表单的left和top属性设置不适当，使表单在屏幕之外
第二：就是表单的showWindow属性设置为(默认值)-在屏幕中
而我们为了界面显示的美观,通常将主屏幕隐藏啦,在隐藏窗口中的表单肯定是看不见的
use database\car.dbf
copy structure to a.dbf 复制car.dbf的表结构到a.dbf
?recno()
?reccount()
copy to database\b.dbf 复制car.dbf表结构和内容到b.dbf中，这两个表完全一样
close all
use database\a.dbf
append from database\b.dbf 在a.dbf和b.dbf表结构一样的前提下，可以将另外一个表中的内
容复制到这个表中，重复的记录不会自动去掉
browse
select * from database\a.dbf;
union;
select * from database\b.dbf;
into table database\demo.dbf
select car
use database\car.dbf
zap
browse
append from database\demo.dbf
browse
select b
zap
append from database\car.dbf
browse
close database
open database("database\YYGSP")
if !used("tab_user")
use database\tab_user
endif
ad
=================================================
select * from database\a.dbf;
union;
select * from database\b.dbf;
into table database\demo.dbf
close database
*if !used("car.dbf")
use database\car.dbf exclusive
*else
* select car
*endif
zap
append from database\demo.dbf
use
*use database\car.dbf exclusive
use database\a.dbf exclusive
zap
append from database\car.dbf
use
use database\b.dbf exclusive
zap
append from database\car.dbf
use
use database\demo.dbf exclusive
zap
use
***********************************************************************************
*
select * from database\a1.dbf;
union;
select * from database\b1.dbf;
into table database\demo1.dbf
close database
*if !used("person.dbf")
use database\person.dbf exclusive
*else
* select car
*endif
zap
append from database\demo1.dbf
use
use database\person.dbf exclusive
use database\a1.dbf exclusive
zap
append from database\person.dbf
use
use database\b1.dbf exclusive
zap
append from database\person.dbf
use
use database\demo1.dbf exclusive
zap
use
阅读(1748) | 评论(2) | 转发(0) |
