日志使用

bwf_add_slog('销售支持', '成品替代--批量审核', g_username, ls_rep_id)

调用延迟函数 sleep(3) 的API

Function Long Sleep(Long ms) Library "kernel32.dll"       //可以直接复制在 Local External Functions 中,然后在窗口中进行调用 sleep(3)

(PB中一些调用API的简单使用 http://blog.csdn.net/davinciteam/article/details/8548491    PB中的API )

ls_column = this.GetObjectAtPointer() // 得到鼠标按下位置的对象名

右击事件的简单使用(m_menuitem是一个存在的menu,在其item的点击事件中写入了:message.stringparm = text

w_third是其中的窗口)

m_menuitem m_1,m_t[]

string ls_menu[]

window lw

integer h

ls_menu[1] = '取消'

ls_menu[2] = '帮助'

m_1 = create m_menuitem

for h = 1 to upperbound(ls_menu)

m_t[h] = create m_menuitem

m_t[h].m_item.text = ls_menu[h]

m_1.item[h] = m_t[h].m_item

next

lw = w_third

m_1.popmenu(lw.pointerx() , lw.pointery())

choose case message.stringparm

case '取消'

Closewithreturn(parent,'')

case '帮助'

messagebox("帮助","单击选中日期，双击选择日期！")

End choose

PB中获取电脑名称(API)

FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "kernel32.dll"

String ls_computername=space(512)

Long ll_buffer=512

Getcomputernamea(ls_computername,ll_buffer) //Return ls_computername

cfc_dw_transfer(dw_1, 1, dw_2, ii_editrow) PB中将dw_1中数据复制给dw_2对应列中,两个datawindow的列可以不相同

dw_1.RowsCopy(dw_1.GetRow(), dw_1.RowCount(), Primary!, dwc, 1, Primary!)   两datawindow对应列要相同

datawindow中的字段是否显示,在代码中的写法:dw_1.object.cp_sn.visible = 0

datawindow中的字段通过另外一个窗口的datawindow中的字段的赋值:dw_1.Object.mer_sn.Object.Data = w_order_list.dw_3.Object.Data

执行sql语句:

ls_sql="up_BOM_CopyInf '" + ls_merno + "','" + ls_New_merno + "','" + ls_year2 + "','" + gs_name + "','"+ls_listno+"','"+ls_cat_id+"'"

EXECUTE IMMEDIATE :ls_sql;

f_cs_dismemberchar(ls_file_recipient,';',ls_cc_addr[])

适用于把ls_file_recipient按;分割开,并且放进数组ls_cc_addr[]中