函数返回有警告,如何解决这样的警告??

zsx123 2008-08-20 12:28:14
Public Function SMTReturnDataReader(ByVal str As String) As SqlDataReader
Dim Settings As ConnectionStringSettings

Settings = ConfigurationManager.ConnectionStrings("SQLConnString")
Dim localoutputserver As New SMTDataAccess.SMTDataObject(Settings.ConnectionString)
Try
SMTReturnDataReader = localoutputserver.RunSQLDataReader(str)//得到数据层返回的DataReader
localoutputserver.Dispose()
Catch ExceptionObject As Exception
localoutputserver.Dispose()
MsgBox(ExceptionObject.Message, MsgBoxStyle.Critical)
Finally

End Try
End Function
====================
警告 4 函数“SMTReturnDataReader”并非在所有代码路径上都返回值。当使用结果时,可能会在运行时发生空引用异常。 C:\Documents and Settings\Administrator\桌面\SMTManage\SMTManage\SMTManage\ModPublic.vb 71 5 SMTManage


错误应该在抛出异常函数返回的问题上?如果有异常该返回什么呢?谢谢
...全文
162 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
rainbowsoftware 2008-08-20
  • 打赏
  • 举报
回复
这个问题不大,你可以在发生没有数据返回时设置成SMTReturnDataReader=nothing
QQ46128558 2008-08-20
  • 打赏
  • 举报
回复
在Catch块内加入return nothing

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧