vb.net警告窗口 vba警告对话框

vb.net 中的警告

这个警告说明你并非所有分支上都有return值

目前创新互联公司已为近千家的企业提供了网站建设、域名、网络空间、网站托管、服务器托管、企业网站设计、贵州网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

解决方法：如果在某个分支不需要处理 则返回默认值即可

VB.net中的警告 大家帮忙看一下 谢谢

1、没有初始化Pro32，仅仅是定义了。

2、在结束函数findfile的地方，例如end function，return之前没有设置返回值。

VB.net编程还用goto？建议不要用这个。

VB.NET中出现如图所示的警告如何更正，帮忙解决下 谢谢

Private Function getAccessConnection() As OleDbConnection

'整体思路应该是：连接数据库－运用适配器运行查询词句-将查询结果填充到数据集－以数据集为数据源，在DataGrid中显示。

Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"

'连接字符串，Provider,连接引擎，可以死记，OLEDB就用这处，Data Source,设置数据库的位置。

Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)

Try

dbConnection.Open()

Catch Ex As Exception

’MsgBox(Err.Description)

End Try

Return dbConnection

End Function

private Sub fillDataGridView()

Dim sqlStr As String = "select * from Table"

Dim DataAdapter As New OleDbDataAdapter

Dim dataSet As New DataSet

Dim DataGridView As New DataGridView

Dim dbConnection As OleDbConnection = getAccessConnection()

If dbConnection.State.ToString = "Closed" Then

MsgBox(Chr(13) " access 数据库连接失败 " Chr(13), , "警告")

Exit Sub

End If

DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)

'用数据适配器进行查询

Try

DataAdapter.Fill(dataSet,"Table") '将查询结果填充到数据集Dataset,有点像VB中的记录集recordset

DataGridView.DataSource = dataSet.Tables("Table").DefaultView '将数据集的内容在表格中显示出来

Catch Ex As Exception

MsgBox(Err.Description)

Finally

dataSet.Dispose

DataAdapter.Dispose

dbConnection.Close

dbConnection.Dispose

End Try

End Sub