以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教用代码写公式问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=131219)

--  作者:weipeng6999
--  发布时间:2019/2/20 15:59:00
--  请教用代码写公式问题
老师好!我想在DataColChanged事件中用代码写公式,表2中的 结算价=(开票价-底价)*税率+底价

开票价,底价,税率,都取自表1,  这四个字段都是Double型。请教该如何写?

--  作者:有点蓝
--  发布时间:2019/2/20 16:17:00
--  
参考:http://www.foxtable.com/webhelp/scr/1451.htm

表1、DataColChanged事件
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "开票价","底价","税率"
        Dim dr As DataRow = DataTables("表2").find("编号=\'" & 编号 & "\'")
        If dr IsNot Nothing Then
            dr("结算价") = (e.DataRow("开票价") - e.DataRow("底价")) * e.DataRow("税率") + e.DataRow("底价")
        End If
End Select

--  作者:weipeng6999
--  发布时间:2019/2/20 16:22:00
--  
谢谢蓝老师