需要判断，再插入。
比如原本这样写
"Insert Into cc(a) Values ('" & txt.Text & "')"
就要改成这样
Dim val As String
If txt.Text = nothing Then
val = "null"
Else
val = "'" & txt.Text & "'"
End If
"Insert Into cc(a) Values (" & val & ")"
加好友 
发短信
Post By：2014/4/27 14:09:00 [只看该作者]
