sunroses2007的专栏

（支持导出分组带、合计带，并且支持多层嵌套报表导出,基本是所见及所得）///////////////////////////////////////////////////////////////////////////////Parameters:ad_dw:datawindow//as_file:file name//Returns:true/false:boolean//Descriptio

存货计价方法——加权平均法 var g_nNewsID=46

http://www.cnblogs.com/shyuan/archive/2007/06/11/779479.html 

发一个系统错误日志函数2007-06-12 20:35 将这个函数写到app的systemerror事件即可 //=====================================================================

使DataWindow列只能追加不能修改 如何使DataWindow中的数据只能追加新记录而不能修改，利用 Column 的 Protect 属性可以很方便的做到这一点，方法如下：将每一列的 Protect 属性设置为：If( IsRowNew(), 0, 1) ) 在 PowerScript 中可以动态修改 Protect 属性：dw_1.Modify("column_name_here.Pro

PB中的Describe,Evaluatate,LookUpDisplay小结Describe 可以描述DW中某个对象的某个属性的取值,虽然函数Describe可以获取对象的信息，但是表达式的取值就不能正常读取了，而这又是经常遇到的.Evaluate 如果想获取数据窗口对象中由属性、函数等构成的表达式的取值时，必须在函数Describe中使用函数Evaluate,LookUpDisplay 

/****** Object:  Trigger dbo.tr_kcdjsh_compute_jc    Script Date: 2005-1-24 14:22:23 ******//****** Object:  Trigger dbo.tr_kcdjsh_compute_jc    Script Date: 2003-8-12 18:24:57 ******/-----作用：--库存

1 查找多个字段同时重复的记录select distinct a.id,a.treeid,a.xh,a.namege from x_spzl a,x_spzl b where b.id2 1 查找单个字段重复的记录select * from x_spzl where id in (select Id from x_spzl group by  id having count(id)>1

pb中利用api使pb编写的窗口始终置前通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗口永远不会被其它窗口覆盖，该函数声明为：     Function  Long  SetWindowPos(Long  hwnd,  Long  ord,  Long  x,  Long  y,  Long     dx,  Long  dy,  Long  ufl

1. nvo_excel 只要是两个接口函数导出数据存储的数据,可以定义 excel 的标题public function integer uf_toexcel (datastore ads_data, readonly string as_title)导出数据窗口的数据,可以定义 excel 的标题public function integer uf_toexcel (datawindow

//====================================================================// [PUBLIC] Function uf_data2excel 在 u_data2word inherited from nonvisualobject//-------------------------------------------------

cfc_exceltodw(datawindow adw, string excelname)参数是导出的dw和excel文件的完整路径OLEObject ole_objectole_object = CREATE OLEObjectinteger li_ret1,valuestring namedli_ret1 = ole_object.ConnectToObject("","Excel

//***************************************************************//// 函数名称： GF_EXCEL_TO_DATAWINDOW                                                              // 函数功能： EXCEL文件导入DATAWINDOW            

DECLARE mycur CURSOR FOR SELECT distinct users.lg_name FROM users; OPEN mycur;DO   FETCH mycur INTO :glydl;  if sqlca.sqlcode ddlb_1.additem(string(glydl)) loop while sqlca.sqlcode=0 CLOSE mycur;