PB 将数据窗口中需要的数据复制到剪切板

计划部门需求，需要将零件的工序弄成一行，复制出来。利用原先工艺打印，增加一个“复制工艺按钮”

一种是复制数据窗口中所有的数据

clipboard(dw_2.object.datawindow.data) 

另一种是部门的求，只要工序的数据

//
/减空值数量的方法
复制工序
//string ls_namearray[]    //定义数组
//ls_namearray  =  dw_2 .Object.fopername.Current  //取工序数组
//int i,j
//
判断数组中空值的数量
//for i=1 to Upperbound(ls_namearray)
//	 if isnull(ls_namearray[i])  or ls_namearray[i]=''  	then j=1
//	 j++
//next 
//
将数据中工序的字符串合并
//string ls_text
//for i=1 to Upperbound(ls_namearray)-j
	 if isnull(ls_namearray[i])  or ls_namearray[i]='' then ls_namearray[i] = ''
//     ls_text = ls_text +string(ls_namearray[i])+','
// next 
// //复制到剪切板
//Clipboard(ls_text )


///取非空值序号的方法
//复制工序
string ls_namearray[]    //定义数组
ls_namearray  =  dw_2 .Object.fopername.Current  //取工序数组

//将数据中工序的字符串合并。嵌套循环判断，如果有空值，则跳出
int i,j
string ls_text, ls_text2
for i=1 to Upperbound(ls_namearray)
	ls_text2=''
	for j=1 to Upperbound(ls_namearray)
	 if isnull(ls_namearray[i])  or ls_namearray[i]=''  then exit
     ls_text2 = string(ls_namearray[i])+','
	 NEXT
	 ls_text =ls_text +ls_text2 
 next 
 //去掉字符串最后的“,”
long li_len
  li_len = len(ls_text)-1
  ls_text = mid(ls_text,1,li_len)
 
 
 //复制到剪切板
Clipboard(ls_text )