new关键字的问题

来源:百度知道 编辑:UC知道 时间:2024/06/07 08:50:55
Dim outData As New DBLayerS.SqlClientDataSet
Dim sqlExecute As New ExecuteSqlClient
sqlExecute.g_SqlConnString = DBCnn
outData = sqlExecute.ExecuteDataSet(objRequest)
_Ada = CType(outData.ReturnedDataAdapter, IDataAdapter)
_Dst = outData.ReturnedDataSet

如 上代码有未将对象引用为实例化的问题。NullReferenceException。这一句 _Ada = CType(outData.ReturnedDataAdapter, IDataAdapter)请问我应该加个什么判断语句修改这种异常呢,我不太熟悉VB,先谢谢了。

先运行一次!然后看下错误号是多少!然后按下边的事例写!把XXX改成错误号!

Private Sub Form_Load()
On Error GoTo Error_Scan
'''''''''''''''''''''''''''''''
代码
'''''''''''''''''''''''''''''''
Error_Scan:
Select Case Err.Number
Case 0
Exit Sub
Case xxx
MsgBox "我捕获了这个错误!编号为" & xxx
End Select

End Sub