Question

在Access 2007 VB中，是否可以将多个If Then语句的结果合并到一个文本框中？这段代码产生了三个结果，但最后需要将三个结合到txtLOB中。

Private Sub Report_Load()

    If CSBB <> "No Impact" Then
        txtCSBB = "CSSB"
    End If

    If HL <> "No Impact" Then
        txtHL = "HL"
    End If

    If GWIM <> "No Impact" Then
        txtGWIM = "GWIM"
    End If

    txtLOB.Text = txtCSSB.Text & txtHL.Text & txtGWIM.Text

End Sub

Answer 1

是的，是的。跳过'文字'

txtLOB = txtCSSB & txtHL & txtGWIM

如果这些是表单上的文本框的名称，那么最好使用Me：

Me.txtLob

您只能将.text属性用于具有焦点的文本框，并且它引用当前内容，不一定与.value属性相同。

Answer 2

如果您想避免额外的三个文本框，请尝试以下方法：

Private Sub Report_Load()
    Dim sText As String

    If CSBB <> "No Impact" Then
        sText = "CSSB"
    End If
    If HL <> "No Impact" Then
        sText = sText & "HL"
    End If
    If GWIM <> "No Impact" Then
        sText = sText & "GWIM"
    End If

    txtLOB = sText

End Sub

多个IF然后结果到一个文本框

2 个答案: