以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DataColChanged事件中如何动态关联计算字段值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137652)

--  作者:ghxfbl
--  发布时间:2019/7/11 21:45:00
--  DataColChanged事件中如何动态关联计算字段值
问题:表1中有A、B、C、D四个Double型字段,A=C+D,B=C-D,C=A*B,D=A/B,如果输入A、B,则计算C和D,如果输入C、D,则计算出A和B。请问如何在DataColChanged事件中实现代码?

--  作者:有点蓝
--  发布时间:2019/7/11 21:56:00
--  
Select Case e.DataCol.Name
    Case "A","B"
        SystemReady = False
        e.DataRow("C") = e.DataRow("A") * e.DataRow("B")
        If e.DataRow("B") <> 0 Then
            e.DataRow("D") = e.DataRow("A") / e.DataRow("B")
        End If
        SystemReady = True
    Case "C", "D"
        SystemReady = False
        e.DataRow("A") = e.DataRow("C") + e.DataRow("D")
        e.DataRow("B") = e.DataRow("C") - e.DataRow("D")
        SystemReady = True
End Select

--  作者:ghxfbl
--  发布时间:2019/7/12 9:41:00
--  
问题完美解决,谢谢