如何將日月和年連接成一個字符串

Question

Dim b1, b2, b3, b4, b5 As String
con1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\FM-DB1.mdb;Persist Security Info=False"
    rs1.Open "select * from New_Family", con1, adOpenDynamic, adLockOptimistic
    rs1.MoveFirst
    While rs1.EOF <> True
        If rs1.Fields(1).Value = frmReport.cmbRegNo.Text Then
            b1 = rs1.Fields(10).Value '---Day---
            b2 = "-"
            b3 = rs1.Fields(11).Value '---Month---
            b4 = "-"
            b5 = rs1.Fields(12).Value '---Year---

            **frmReport.lstDOB.AddItem (b1 + b2 + b3 + b4 + b5)**
        End If  
        rs1.MoveNext
    Wend

Answer 1

在 VB 中連接值，您將使用& （ & ），因此您的代碼在更正后將是：

frmReport.lstDOB.AddItem (b1 & b2 & b3 & b4 & b5)

您使用它的方式會嘗試添加（b1 加 b2 加 b3 等），但這會失敗，因為您的某些變量包含運算符（減號）。 您當然不能對運算符執行加法 :-)