Question

为什么 提示无效使用 null 错误

If DBCombo3.Text = "" Then
MsgBox "没有选择客户！"
Timer2.Enabled = False
Exit Sub
End If

Data3.Recordset.FindFirst " 名称 ='" & DBCombo3.Text & "'"
If Data3.Recordset.NoMatch = True Then
MsgBox "Err", 0, "提示"
Timer2.Enabled = False
Exit Sub
End If

Dim MyStr As String
MyStr = CStr(Data3.Recordset("名称")) & " 地址：" & CStr(Data3.Recordset("地址")) & " 联系人：" & CStr(Data3.Recordset("联系人")) & " 电话：" & CStr(Data3.Recordset("电话")) & " 需求产品：" & CStr(Data3.Recordset("产品")) & " 数量：" & CStr(Data3.Recordset("数量")) & " 备注：" & CStr(Data3.Recordset("备注"))
Timer2.Enabled = False

为什么 提示无效使用 null
错误的语句是
MyStr = CStr(Data3.Recordset("名称")) & " 地址：" & CStr(Data3.Recordset("地址")) & " 联系人：" & CStr(Data3.Recordset("联系人")) & " 电话：" & CStr(Data3.Recordset("电话")) & " 需求产品：" & CStr(Data3.Recordset("产品")) & " 数量：" & CStr(Data3.Recordset("数量")) & " 备注：" & CStr(Data3.Recordset("备注"))

求解

Answer 1

Recordset 指针？