If e.DataCol.Name = "合同金额_元" Then
SystemReady = False
e.DataRow("合同金额_万元") = e.newvalue / 10000
SystemReady = True
ElseIf e.DataCol.Name = "合同金额_万元" Then
e.DataRow("合同金额_元") = e.newvalue * 10000
End If