动态公式设置.txt

PB常用技巧 PB常用技巧 PB常用技巧

动态公式设置

功能：在应用中，用户可以根据数据字段的值设定动态的公式来计算结果（比如工资的计算要求计算出个人所得税并且福利资金等工资项目都是动态的）
1、首先建立一用户对象uo_evaluate（从数据窗口继承来的）
数据源对象为数据窗口dw_column(可以根据实际情况换成你的数据窗口)
2、在这里，我直接固定了四个字段的值A=10,B=20,C=30,D=15，当真正应用时，完全可以实际的数据来进行处理。
3、在窗口中放置了用户对象uo_evaluate，命名为dw_1,隐Visible = False
4、在计算按钮的代码如下：
Long ll_Row
String ls_Ret

dw_1.Reset()
ll_Row = dw_1.InsertRow(0)
dw_1.SetItem(ll_Row,'a',10)
dw_1.SetItem(ll_Row,'b',20)
dw_1.SetItem(ll_Row,'c',30)
dw_1.SetItem(ll_Row,'d',15)

ls_Ret = dw_1.Describe("Evaluate('" + sle_1.Text + "'," + String(ll_Row) + ")")
if Not IsNumber(ls_Ret) then
MessageBox('系统信息','公式设置非法!')
Return
end if
sle_2.Text = ls_Ret
5、现在用户就可以在公式那里设定公式了，比如(A*C/B) + D -(C/A)等任意的数学公式
6、水友们可以根据以上简单的做法变换出大部分的动态公式计算的方法来。