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

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

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

点击浏览该文件:test.table

代码没问题，修改数据后，请切换主表的行后测试。

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

 

代码是写在currentchanged事件，你必须切换你主表的行才会更新啊。

谢谢。再麻烦版主，可不可以把以下代码加到按钮中，如果这个按钮判断表中都是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

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
    msgbox(1)
    If po = "CHF"
        Forms("Mainfrm").Controls("Button14").Enabled = False
        msgbox(2)
    ElseIf po = "EUR"
        Forms("Mainfrm").Controls("Button1").Enabled = False
        msgbox(3)
    End If
End If