a = "测试" & vbCrLf & "测试" Data1.Recordset.AddNew Data1.Recordset.Fields(1).Value = a Data1.UpdateRecord Data1.Refresh End SubPrivate Sub Command2_Click() Data1.Recordset.MoveLast MsgBox Data1.Recordset.Fields(1) End Sub------------------------------------- 这是我测试的代码你试一下,看看有没有帮助。
a="abcd" & vbcrlf
----------------
vbcrlf 不能在引号内
你看看你的textbox是否设置为多行了(其MultiLine属性要设置为true)
Dim a$
a = "测试" & vbCrLf & "测试"
Data1.Recordset.AddNew
Data1.Recordset.Fields(1).Value = a
Data1.UpdateRecord
Data1.Refresh
End SubPrivate Sub Command2_Click()
Data1.Recordset.MoveLast
MsgBox Data1.Recordset.Fields(1)
End Sub-------------------------------------
这是我测试的代码你试一下,看看有没有帮助。
如何保存的
是用recordset的addnew还是什么?