Question

我需要在VBA中添加变量和一些文本（在本例中为＃34;％＆＃34;）。下面的代码不起作用：

Private Sub Form_Load()

    Dim CurrentValue As String
    CurrentValue = DLookup("AvgOfutil_MPS", "AverageDescending", "[dates]")
    Me.Label34.Caption = Round(CDbl(CurrentValue), 2) + "%" 

End Sub

Answer 1

我想知道您定义一个String，然后根据该String计算一个Double。为什么不马上使用Double？

对于你的问题，正如Alex K.所说：试试＆＃34;＆amp;＆＃34;连接。

Answer 2

尝试以下

Private Sub Form_Load()

    Dim CurrentValue As String
    CurrentValue = DLookup("AvgOfutil_MPS", "AverageDescending", "[dates]")
    Me.Label34.Caption = Cstr(Round(CDbl(CurrentValue), 2)) & "%" 

End Sub

向Label - VBA添加值和文本

2 个答案: