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等），但这会失败，因为你的一些变量包含一个运算符（减号）。当然，您无法对操作员执行添加操作： - ）

如何将日月和年连接成一个字符串

1 个答案: