文档介绍：String a[] 变长数组，赋值时（如 a[30]=333 ）自动分配内存。
PB编程通俗快速入手
张金柱
第一章 一般使用
1、 程序的开始，applicati on 的open事件。
退出程序例程： halt 为退出函NUE
11、 消息框
messagebox( 标题，信息 ) 其他看帮助，查索引 messagebox
12、取得当前时间 now()
=string(now(),"yyyy-mm-dd 10:00:00")
如现在是 2002-7-14 17:22:21 秒，则输出为 2002-7-14 10:00:00
13、列表框应用
() 清空列表框内容
I=1
DO WHILE I<=UpperBound(WINBSC)
IF WINBSC[I]="" THEN EXIT;
(WINBSC[I]) 增加内容项到列表框
I=I+1
LOOP
第二章 应用数据库
1、 datawindow 控件的使用 先创建一个 datawindow 对象 dw_hwtj ，再在窗体中添加一个 datawindow 控件 dw_rep ，最后将 datawindow 的 dataobject 属性设置成 dw_hwtj 。
我写的选行函数， datawindow 控件的 click 事件上用
if row=0 then return
if nowrow<>row and nowrow>=0 then
(nowROW,false)
end if
(ROW,TRUE)
nowrow=row
我写的排序函数，在 datawindow 控件的双击事件上用
IF = "column" THEN
ls_columnname =
END IF
if nowstate='A' then
(ls_columnname+" D")
NOWSTATE='D'
ELSE
(ls_columnname+" A")
NOWSTATE='A'
END IF
()
( 效果，在某一列上双击一次，正向排序，再一次，反向排序 )
规定排序 ("BSCMC A,XQH A,xqmc A") ()
(先按BSCMC再按XQH再按xqmc正向排序)
保存到 xls 文件
('',Excel5!,true)
读写：
写 [I] =a
读 a=w_ [l]
2、 建立与数据库的连接
定义
transaction localdb
设置
=”as”
= ”sda”
= ”def ”
= ”dbo”
= ”abc”
=””
= ””
= ”abc”
=true
3）连接
连接 connect using localdb;
断开 disconnect using localdb;
4） 从库中查询多行数据：（查询语句被固化）
connect using localdb;
//
连接
if <0 then
Messagebox（" 连接本地数据库失败 ...",）
return 1
// 定义游标
end if
DECLARE MY_CURSOR CURSOR FOR
SELECT BSC from BSC ORDER BY BSC USING LOCALDB; // 执行查询
I=1;
OPEN MY_CURSOR; // 标
打开游
DO WHILE NOT = 100
//
直到结束
IF I>UpperBound（WINBSC） THEN EXIT
FETCH MY_CURSOR INTO :WINBSC[I]; //
I=I+1
提取数据项