Question

对于pb（powerbuilder）数据窗口问题？

我的数据窗口时这样的
科目代码 科目名称 预算额度
5001 事业支出 ？
500101 财政补助支出 ？
50010101 基本支出 ？
5001010101 工资福利支出 ？
500101010101 基本工资 1000
500101010102 XXXXXXX 1500
500101010103 XXXXXXX 1800
50010102 XXXXXXX ？
5001010201 XXXXXXX ？
500101020101 XXXXXXX 2000
500101020102 XXXXXXX 3000
这些问号怎么算出来？科目代码是4位开始，每一个下级科目多两位？我想窗口的open事件里面写代码，实现此功能。我写了一部分后面不知怎么写？
integer is_count,i
string is_id
is_count=dw_1.rowcount()

for i=1 to is_count
is_id=dw_1.object.科目代码[i]
len(is_id)//不会写了
next

Answer 1

我给个思路：

这个如果排好序的话，应该从后往前循环比较方便，可以用双层循环实现。

循环每一个代码；

启动内层循环（后到前），如果内层循环的代码前面和外层循环代码一样，并且多2位长度，那么累加 额度
直到 内层循环 代码和 外层循环代码一致（或者循环到第一行也行）

如此

Answer 2

Int i,k,li_find
Long ll_total
String ls_kmdm,ls_kmdmA
For i = dw_1.RowCount() To 1 Step -1
ls_kmdm = Trim(dw_1.Object.科目代码[i])
ls_kmdmA = Left(ls_kmdm,Len(ls_kmdm)-2)
li_find = dw_1.Find('科目代码="'+ls_kmdmA+'"',1,dw_1.RowCount())
for k=li_find+1 to dw_1.rowcount()
if Left(Trim(dw_1.Object.科目代码[k]),Len(Trim(dw_1.Object.科目代码[k]))-2)=Trim(dw_1.Object.科目代码[li_find]) then
ll_total+=dw_1.Object.预算额度[k]
end if
next
dw_1.SetItem(li_find,"预算额度",ll_total)
ll_total=0
Next

追问

　　我修改代码了后成功，要增加下面的代码
　　if li_find>0 then

　 end if
　　非常感谢！！！

Answer 3

你不说 预算额度 是按怎样的 件算出来 怎么帮你！