PB获取数据窗口字段列名和标题名

原创 2012年08月08日 13:24:14
int li_value
long ll_i,ll_rowcount
string ls_usrid,ls_tooltip
decimal ldc_lastvalue
ll_rowcount = dw_1.rowcount( )
if ll_rowcount <= 0 then return

SetPointer(HourGlass!)
Open(w_sys_tip)
w_sys_tip.st_info.text = '系统正在比对上月数据,请耐心等候...'
w_sys_tip.hpb_bar.MaxPosition = ll_rowcount + 1

Int   li_cnt,li_Count
String  ls_ColName
Decimal ldc_Data

String ls_col[], ls_value[]

for ll_i = 1 to ll_rowcount
	ls_usrid = dw_1.getitemstring(ll_i,'usr_id')

//gwgz,qjj,wpbt,zfgjj,dkdj,fzf,ghhf,zfbt
li_Count = Integer(dw_1.Describe("datawindow.column.count"))
//messagebox('',string(li_Count))
For li_cnt = 6 To li_Count - 5
	ls_ColName = dw_1.Describe("#"+String(li_cnt)+".name")
//	messagebox('',ls_ColName)
	If ls_ColName <> 'gwgz' AND ls_ColName <> 'qjj' AND ls_ColName <> 'wpbt' AND &
	ls_ColName <> 'zfgjj' AND ls_ColName <> 'dkdj' AND ls_ColName <> 'fzf' AND &
	ls_ColName <> 'ghhf' AND ls_ColName <> 'zfbt' Then Continue
	ldc_Data = Dec(dw_1.Object.Data[ll_i,li_cnt])
//	messagebox('',string(ldc_Data))
//	ld_gwgz = dw_1.getitemnumber(ll_i,'gwgz')
//	messagebox(string(ll_i),ls_usrid+'/'+ls_ColName+'/'+string(ldc_Data))
	li_value = f_gz_compare(ls_usrid,ls_ColName,ldc_Data,ld_date,ldc_lastvalue)
	IF li_value = 1 THEN
		ls_col = {ls_ColName}
		ls_value = {String(ll_i),"rgb(0,250,0)"}
		uf_setcell_color( dw_1, "background", "row", ls_col, ls_value )
//		ls_tooltip = ls_ColName+".tooltip.tip='~tif(getrow()="+String(ll_i)+",~"上月金额:"+String(ldc_lastvalue,'#,##0.00')+"~",~"~")'" 
//		messagebox('',ls_tooltip)
//		dw_1.modify( ls_tooltip )
		String ls_Title
		ls_Title = dw_1.Describe(ls_ColName+"_t.text")
		ls_value = {String(ll_i),"上月"+ls_Title+":"+String(ldc_lastvalue,'#,##0.00')}
		uf_setcell_tooltip( dw_1, ls_col, ls_value )
	END IF
//	messagebox('end',string(li_value))
	
Next
//messagebox('',string(w_sys_tip.hpb_bar.maxPosition))
if w_sys_tip.hpb_bar.Position <= ll_rowcount then
	w_sys_tip.hpb_bar.Position = w_sys_tip.hpb_bar.Position + 1
end if
next
//f_gz_compare('1002','gwgz',1234)
SetPointer(Arrow!)
Close(w_sys_tip)

PB中取得数据窗口所有列名以及列标题名称

String    ls_column_name[] //存放列名 String    ls_column_text[] //存放列标题名称 Integer i, li_column_count ...
  • zidielang
  • zidielang
  • 2016年11月18日 21:07
  • 1528

PB数据窗口对象之字段属性和计算域属性

〓字段和计算域的属性-更多见帮助(DataWindow objectproperties) *获取字段的类型(Coltype属性) 字段的ColType属性是一个非常有用的属性,使用该属性可以...
  • u012369435
  • u012369435
  • 2014年07月04日 13:01
  • 3353

PB数据窗口对象之信息获取

〓获取数据窗口信息 ※函数Describe 使用函数Describe可以获取数据窗口对象中的信息。该函数语法是: dwcontrol.Describe(propertylist) 其中,d...
  • u012369435
  • u012369435
  • 2014年07月04日 12:56
  • 1653

PB数据窗口对象之Button

〓Button重要属性 *Action属性 该属性是Button控件最重要的一个属性。在数据窗口画板中,可以选择一个按钮有哪个动作。可选的动作都是事先定义好的,开发人员没有机会精确定义某个动作的执...
  • u012369435
  • u012369435
  • 2014年07月04日 13:04
  • 1479

取得数据窗口中的所有列名及其text的文字

  • 2012年06月17日 11:26
  • 26KB
  • 下载

LigerGrid动态改变加载字段列名

  • 2017年05月22日 09:13
  • 17KB
  • 下载

PB中,在用grid形式的数据窗口中,跨列标题头的制作方法

PB的数据窗口中,有一种grid形式的数据窗口,因为可以拖动各列的列宽,在程序中广泛使用,但在制作中国式的报表中,又存在着许多不方便,所以,一般程序员对它是“又爱又恨”。下面,经过摸索,找出一个制作跨...
  • tlammon
  • tlammon
  • 2016年03月17日 19:22
  • 990

PB 数据窗口DW处理图片等大文本字段

方法一:利用数据窗口的列字段,选中display as picture,保证该列内容在图片的路径,则该列显示的就是图片 方法二:在数据窗口中创建compute字段,expression中填写 bit...
  • linybo
  • linybo
  • 2014年04月13日 21:53
  • 1129

PB数据窗口对象之字段的修改属性

数据窗口只能修改一个数据表。当数据窗口的数据来源于不止一个数据表时,可以用脚本控制数据窗口的修改属性来对数据表逐个进行修改。 当数据窗口是用来接受用户的手工录入数据时,应该设置两方面的属性才能确保数据...
  • u012369435
  • u012369435
  • 2014年07月04日 11:00
  • 1353

PB数据窗口条件字段颜色设置(终结)

  • 2017年02月17日 23:57
  • 10KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PB获取数据窗口字段列名和标题名
举报原因:
原因补充:

(最多只允许输入30个字)