- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]两个关系列如何代码取得值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121004)
-- 发布时间：2018/6/27 15:19:00
-- [求助]两个关系列如何代码取得值
1、字段
元
万元
2、录入要求
只要录入其中1列，另外1列公式获得
例如
A、在元列录入10000，万元列=元列/10000=1
B、在万元列录入1，则元列 = 万元列*10000=10000
题外话：
本来有一天，这个功能已经实现了，没有保存成果，然后过了几天又忘记了。
3、目前代码
datacolchanging
Dim dr As DataRow
Select Case e.DataCol.name
Case "合同金额_元","合同金额_万元"
If dr("合同金额_元") > 0 Then
dr("合同金额_万元") = dr("合同金额_元") /10000
Else
dr("合同金额_元") = dr("合同金额_万元") *10000
End If
end select
Select Case e.DataCol.name
Case "合同金额_元","合同金额_万元"
If dr("合同金额_元") > 0 Then
dr("合同金额_万元") = dr("合同金额_元") /10000
Else
dr("合同金额_元") = dr("合同金额_万元") *10000
End If
end select
-- 发布时间：2018/6/27 15:38:00
--
If e.DataCol.Name = "合同金额_元" Then
SystemReady = False
e.DataRow("合同金额_万元") = e.newvalue / 10000
SystemReady = True
ElseIf e.DataCol.Name = "合同金额_万元" Then
SystemReady = False
e.DataRow("合同金额_元") = e.newvalue * 10000
SystemReady = True
End If
[此贴子已经被作者于2018/6/27 15:38:37编辑过]
-- 发布时间：2018/6/27 18:17:00
--
谢谢。