pb 技巧

// 过滤只修改的
dw_1.SetFilter ("isRowModified()")
dw_1.Filter ()

//获取ip

function boolean AnimateWindow ( ulong hwnd, ulong dwtime, ulong dwflags ) library "His_dll.dll"
function string ComputerName() library "His_dll.dll"
function string GetIp(string cname) library "His_dll.dll"
Function Long SetWindowPos(Long hwnd,Long ord,Long x,Long y,Long dx,Long dy,Long uflag) Library "user32"

gs_ip_address = GetIP(computername())

//页号显示

'页号 ' + page() + '/ ' + pageCount()

wf_get_drawno 函数

 

//获取单号 填入下拉框
integer li_draw_no
ddlb_draw_no.reset()
DECLARE draw_no CURSOR FOR
取page_no的sql语句
open draw_no;
FETCH draw_no INTO :li_draw_no;
DO WHILE sqlca.sqlcode = 0
ddlb_draw_no.additem(string(li_draw_no))
FETCH draw_no INTO :li_draw_no;
LOOP
CLOSE draw_no;
ddlb_draw_no.selectitem(1)

 //pb6.5 安装在win8上帮助文档打不开解决方法

安装 win8 hlp。