主题：[求助] 货币转换自动填入

exchangerate = 表中的pocurrency 找到所选月份的汇率 除以 要转换汇率EUR 所选月份的汇率，currency列再写入转换后的汇率。

谢谢老师了，正确了，那如何把EUR写入 currency相应的列中？

 

老师，如果表中Pocurrenty都是CHF,或都是EUR,或USD是同一种货币时，Exchangerate中就自动填入1， 列Totalprice就自动计算: Qty乘以 列中的PO_unitprice,然后那个控件成灰色，就不需选择汇率，然后去按按钮，以提前工作效率。谢谢了。

此主题相关图片如下：捕获.png

版主，实列在20楼，谢谢了。

版主，不行呀。请查看实例，麻烦了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

谢谢，版主，这个缺陷是把所有记录一条一条加到Shipment.GSSInvoice中后，要触碰这个表中的内容才会生效。否则不更新。

 

可不可以这样，如果Shipment.GSSInvoice 表中POCurrency都是CHF是，Button14成灰色，如果表中POCurrency 都是EUR时，Button15成灰色.那个totalprice还是手工按生效。

版主，这个改成CHF对的，可以改成EUR就不灵了。请帮忙再看一下，上传这个实例。是不是这个嵌套if的原因。谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:test.table

是的，版主，重新进入窗口结果就对了，可是有没有动态更新的？

谢谢。再麻烦版主，可不可以把以下代码加到按钮中，如果这个按钮判断表中都是CHF，就本按钮成灰色无效否则有效。另一个按钮也是这样子。这样可以吗？

 

 

If e.Table.Current IsNot Nothing Then
    If Forms("Mainfrm").Opened
        Dim t As Table =Tables("Shipment.GSSInvoice")
        If t.Rows.Count > 0
            Forms("Mainfrm").Controls("Button14").Enabled = True
            Forms("Mainfrm").Controls("Button1").Enabled = True
            Dim po As String = t.Rows(0)("POCurrency")
            For Each r As Row In t.Rows
                If r("POCurrency") <> po Then Return
            Next
If po = "CHF"
            Forms("Mainfrm").Controls("Button14").Enabled = False
ElseIf po = "EUR"
            Forms("Mainfrm").Controls("Button1").Enabled = False
End If
        End If
    End If
End If