发布网友 发布时间:2024-10-24 02:49
共1个回答
热心网友 时间:2024-11-05 00:19
string ls_user,ls_userR
dec de_money1,de_money2,de_money3
dec de_moneyR1,de_moneyR2,de_moneyR3
long i,j,r,K=0
//取DW1值。
for i = 1 to dw1.rowcount()
if i = 1 Then
k=1
j = rand(dw1.rowcount()) //取DW1中任一一行,并直取一次。
//取出任意一行值
ls_userR = dw1.getitemstring(j,'用户名')
de_moneyR1 = dw_1.getitemnumber(j,'费用1')
de_moneyR2 = dw_1.getitemnumber(j,'费用2')
de_moneyR3 = dw_1.getitemnumber(j,'费用3')
End if
If j <> i then //如果当前行等于任意行,则不取值。
If j = 1 then
i = 2 //如果任一行为第一行,则下次循环从第二行开始。
end if
ls_userA = dw1.getitemstring(i,'用户名')
de_money1 = dw_1.getitemnumber(i,'费用1')
de_money2 = dw_1.getitemnumber(i,'费用2')
de_money3 = dw_1.getitemnumber(i,'费用3')
if k=1 then //与任一一行求和。
de_money1 = de_money1 + de_moneyR1
de_money2 = de_money2 + de_moneyR2
de_money3 = de_money3 + de_moneyR3
End If
r = dw2.insertrow(0) //写入到DW2
dw2.setitem(r,'用户名',ls_userA)
dw2.setitem(r,'费用1',de_money1)
dw2.setitem(r,'费用2',de_money2)
dw2.setitem(r,'费用3',de_money3)
end if
next
以上代码为示例,楼主可跟据实际情况调整,代码未调试,有问题HI我。
热心网友 时间:2024-11-05 00:18
string ls_user,ls_userR
dec de_money1,de_money2,de_money3
dec de_moneyR1,de_moneyR2,de_moneyR3
long i,j,r,K=0
//取DW1值。
for i = 1 to dw1.rowcount()
if i = 1 Then
k=1
j = rand(dw1.rowcount()) //取DW1中任一一行,并直取一次。
//取出任意一行值
ls_userR = dw1.getitemstring(j,'用户名')
de_moneyR1 = dw_1.getitemnumber(j,'费用1')
de_moneyR2 = dw_1.getitemnumber(j,'费用2')
de_moneyR3 = dw_1.getitemnumber(j,'费用3')
End if
If j <> i then //如果当前行等于任意行,则不取值。
If j = 1 then
i = 2 //如果任一行为第一行,则下次循环从第二行开始。
end if
ls_userA = dw1.getitemstring(i,'用户名')
de_money1 = dw_1.getitemnumber(i,'费用1')
de_money2 = dw_1.getitemnumber(i,'费用2')
de_money3 = dw_1.getitemnumber(i,'费用3')
if k=1 then //与任一一行求和。
de_money1 = de_money1 + de_moneyR1
de_money2 = de_money2 + de_moneyR2
de_money3 = de_money3 + de_moneyR3
End If
r = dw2.insertrow(0) //写入到DW2
dw2.setitem(r,'用户名',ls_userA)
dw2.setitem(r,'费用1',de_money1)
dw2.setitem(r,'费用2',de_money2)
dw2.setitem(r,'费用3',de_money3)
end if
next
以上代码为示例,楼主可跟据实际情况调整,代码未调试,有问题HI我。