获取数据窗口所有字段的字段名

来源:互联网 发布:微软字体打包下载 mac 编辑:程序博客网 时间:2024/05/22 15:45
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



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')



li_Count = Integer(dw_1.Describe("datawindow.column.count"))

For li_cnt = 6 To li_Count - 5
ls_ColName = dw_1.Describe("#"+String(li_cnt)+".name")//获取数据窗口的字段名称

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

//对需要的字段进行操作,不需要的字段直接跳过。

//数据窗口中所有的列名都可以按照select语句中出现的序号代替。

ldc_Data = Dec(dw_1.Object.Data[ll_i,li_cnt])//取当前行、当前字段的值

// ld_gwgz = dw_1.getitemnumber(ll_i,'gwgz')//同上

li_value = f_gz_compare(ls_usrid,ls_ColName,ldc_Data,ld_date,ldc_lastvalue)//两张表比对。


IF li_value = 1 THEN

//返回为1的,修改对应行对应列的单元的颜色。

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

Next

next


原创粉丝点击