以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式列引用时错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174693)

--  作者:段虎成
--  发布时间:2022/1/26 17:31:00
--  表达式列引用时错误
Select Case e.DataCol.name
    Case "合同编号"
        If e.DataRow("合同编号") IsNot Nothing Then
            Dim dr As DataRow
            With DataTables("采购订单管理")
                dr = .SQLfind( "订单编号 = \'" & e.DataRow("合同编号") & "\'")
            End With
            If dr IsNot Nothing Then
                e.DataRow("供应商编号") = dr("供应商编号")
                e.DataRow("供应商名称") = dr("供应商")
                e.DataRow("合同金额")  =  dr("金额")        问题:老师您好,表采购订单管理中的【金额】列是表达式,导致这段代码无法执行,总是提示不存在金额列,应如何解决,谢谢?
            End If
        End If
End Select

--  作者:有点蓝
--  发布时间:2022/1/26 17:36:00
--  
比如金额等于数量*单价,那么应该这样

e.DataRow("合同金额")  =  dr("数量")  * dr("单价")

--  作者:段虎成
--  发布时间:2022/1/26 17:38:00
--  
收到,谢谢老师