PB中一些技巧Word文档格式.docx
《PB中一些技巧Word文档格式.docx》由会员分享，可在线阅读，更多相关《PB中一些技巧Word文档格式.docx（34页珍藏版）》请在冰豆网上搜索。
ll_colnum=Long（dw_1.object.datawindow.column.count）
fori=1toll_colnum
//得到标题头的名字
ls_colname=dw_1.describe（'
#'
+string（i）+"
.name"
）+"
_t"
ls_value=dw_1.describe（ls_colname+"
.text"
next
8.在程序中动态设置初始值:
ex:
dw_contro.object.columnName.initial='
xxxx'
9.如何在DataWindow的SQL语法中不使用SELECTDISTINCT实现删除重复的行
----起先对你要显示唯一值的列进行排序：
"
cityA"
，然后增加如下过滤字符串：
city<
>
city[-1]orGetRow（）=1"
10.如何改变列的字体颜色，提醒用户此列已做修改
----在列的Color属性中，输入如下表达式IF（column_name<
column_name.Original,RGB（255,0,0）,RGB（0,0,0））。
在这个条件中，如果此列已改变，则显示红色字体，否则显示黑色字体。
这个表达式主要用column_name<
column_name.Original比较当前列的值和原始列的值是否相同来达到判断的目的。
11.在数据窗口的clicked或doubleclicked事件中写上注释//可解决一些意外的bug!
12.如何屏蔽上下鍵触发
新建一个事件：
id为pbm_dwnkey
IFKeyDown（KeyDownArrow!
）ORKeyDown（KeyUpArrow!
）Then
Return1
EndIF
13.你注意到没有，数据窗口画板里面，在写表达式的时候，试着用一些用户自定义的全局变量和全局函数，你会发现在某些特殊的场合，这个小窍门还是很有用的。
14.有些程序员在窗口的右键pop菜单里面写了很多代码，在菜单里面有很多w_windowname.controlname等等引用，如果这个窗口被继承，很容易就会出毛病，别忘了在菜单里面可以引用parentwindow哦，有了它我的pop菜单里面的代码和具体窗口无关，随便继承。
当然强烈建议最好还是把所有和窗口相关的逻辑都转移到窗口的函数和事件中去，在pop菜单中触发调用。
15.whichdw.describe（"
evaluate（'
lookupdisplay（"
+colname+"
）'
"
+string（row）+"
）"
这个表达式可以得到指定列的显示值。
（这个知识点有滥竽充数之嫌，但是一时间我真是想不起来太多的东西）
16.在数据窗口画板里面我们如果想要比较当前行和上一行或者下一行的值，怎么比较呢，哈哈，看这个就知道了
if（yw_bc_circuit_dlcode=yw_bc_circuit_dlcode[-1]and
yw_bc_circuit_dlname=
yw_bc_circuit_dlname[-1]and
yw_bc_circuit_xtno=yw_bc_circuit_xtno[-1],0,1）
这个表达式就是比较当前行和上一行是否相同的。
其他的依此类推就行了。
17.两个结构相同的数据窗口之间快速复制数据
dw_1.object.data=dw_2.object.data
18.根据条件改变记录颜色
if（Mod（getrow（）,2）=0,rgb（0,255,255）,rgb（255,255,255））//奇偶行不同色
if（currentRow（）=getrow（）,rgb（0,255,255）,rgb（255,255,255））//当前行不同色
19.使窗口总位于所有打开窗口的最上面
w_main.SetPosition（Topmost!
20.取数据窗口中列的总数
stringls_count
ls_count=dw_1.describe（"
datawindow.column.count"
21.取数据窗口中可列新的表名。
stringls_table
ls_table=dw_1.describe（"
datawindow.updatetable.table"
）
22.取数据窗口对象中列的名称及类型
stringls_cols[],ls_types[]
int
li_count,i
li_count=integer（ls_count）
fori=1toli_count
ls_cols[i]=dw_1.describe（"
#"
+string（i）+"
ls_types[i]=dw_1.describe（"
.coltype"
next
23.Case（
dealintype
WHEN
0THENRGB（254,251,235）
2THENrgb（254,251,235）
ELSERGB（0,0,255））
写道字段的protect中不仅仅是颜色改变的问题看看
24.dw.Object.col[n]:
直接获得数据窗口的col列第n行的数据。
25.在做数据窗口时，我们有时候希望能够多一些字段来作一些特殊的用处，但是在数据窗口中又不能乱加字段，因为已有的字段必须是数据库中有的或者是他们的组合，呵呵，大家不妨看看这个sql用产生什么样的数据窗口
selectcolname1,colname2,1,'
'
fromtablename
是不是多出了两个字段阿，一个是字符串字段，一个是数字字段
别忘了要convertsyntax哦
26.清空数组
stringa[],b[]
a[1]='
1'
;
2'
3'
a=b//即可以清空a
27.只允许修改第n行的name列：
dw_1.modify（"
name.protect='
1~tif（（getrow（）=n）,0,1）'
28.让run程序和主程序一起关闭：
functionulongfindwindowA（...）.."
user32.dll"
functionlongsetparent（..."
handle=findwindowA（nul,win_title）
setparent（handle,handle（w_main））
29.取得某一天以前或以后n天的函数RelativeDate（date,n）
例：
取得当天前10天的日期
RelativeDate（Today（）,10）
取得当天后10天的日期
RelativeDate（Today（）,-10）
30.不想做排序窗口？
调用PB自身的好了。
stringls_null
SetNull（ls_null）
dw_1.SetSort（ls_null）
dw_1.Sort（）
31.调用PB自身的过滤窗口：
dw_1.SetFilter（ls_null）
dw_1.Filter（）
32.增量输入定位代码或名称记录位置：
定义一个窗口，放一个SLE_1，在它的MODIFY程序中写：
longll_find
stringvalue0
value0=sle_1.text
ifnot（isnull（sle_1.text）orsle_1.text='
）then
ifleft（sle_1.text,1）='
0'
orinteger（sle_1.text）<
>
0then//输入的为代码
ll_find=jwl_dmxz.dw_1.find（'
dmlike"
+value0+'
%"
1,jwl_dmxz.dw_1.rowcount（））//jwl_dmxz为主窗口，dm为查询的字段名，这里是代码。
else//输入的为名称
mclike"
1,jwl_dmxz.dw_1.rowcount（））//
endif
ifll_find>
0then
jwl_dmxz.dw_1.scrolltorow（ll_find）
//为了避免首次目标记录为第一条，无法选中。
ifll_find=ll_find0then
jwl_dmxz.dw_1.selectrow（ll_find,true）
elseifll_find<
ll_find0then
jwl_dmxz.dw_1.selectrow（ll_find0,false）
ll_find0=ll_find
endif
33.然后在查询窗口中的TIMER事件中写：
timer（0.05）
sle_1.triggerevent（modified!
34.判断计算器是否存在：
stringis_
booleanis_Exists
is_'
c:
/windows/calc.exe'
is_Exists=（is_）
ifis_Existsthen
run（"
/windows/calc.exe"
else
messagebox（"
提示信息"
本机的WINDOWS没有计算器！
stopsign!
35.得到硬盘序例号
Stringls_Rootpath,ls_volumnename,ls_return,so
GetCurrentDirectoryA（256,so）
so（so）
ifso'
C:
then
ls_Rootpath='
D:
//指定要得到序列号的硬盘，
//一般情况都是C盘，除非你能保证用户存在其它逻辑盘或物理盘
en
升级会员 