以文本方式查看主题

-  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=52550)

--  作者:oubenming
--  发布时间:2014/6/17 21:24:00
--  [求助]设调整列,金额列可以调整
在金额列里设了
Dim dr As DataRow = e.DataRow 
Select Case e.DataCol.Name 
    Case "单价","调拨","采购" 
        dr("金额") = dr("单价") * (dr("调拨") + dr("采购")) 
End Select

由于是增值税发票,有时会多1分钱或少一分钱,在易表里金额列我用了:If([调整]= -1,[金额],[单价]*[采购])。
在狐表的金额列里怎样写代码?请教老师帮助了。谢谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table

[此贴子已经被作者于2014-6-17 21:25:06编辑过]

--  作者:有点甜
--  发布时间:2014/6/17 21:31:00
--  

代码

 

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "单价","调拨","采购"
        If e.DataRow("调整") = False Then
            dr("金额") = dr("单价") * (dr("调拨") + dr("采购"))
        End If
    Case "金额"
        e.DataRow("调整") = dr("金额") <> dr("单价") * (dr("调拨") + dr("采购"))
End Select


--  作者:oubenming
--  发布时间:2014/6/17 21:40:00
--  
谢谢甜老师,管用了。
以前我用的是易表,现在想改用狐表,在编制的过程免不了麻烦您及其他老师。在此表示衷心感谢!!!