Shipment表,currentchanged事件加上
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("Button15").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("Button15").Enabled = False
end if
End If
End If
End If