VB.NET调用GetTransNo函数报变量未赋值空引用异常如何解决

• 触发报错的直接原因是异常分支没有给函数返回值赋值：你目前仅在Try块的正常执行逻辑里给代表返回值的GetTransNo赋值，一旦代码执行进入Catch块，没有任何给GetTransNo赋值的逻辑，最后执行Return GetTransNo时就会触发“变量未赋值”的警告。
• 附加隐藏问题：你先执行dr.Read()再判断dr.HasRows逻辑颠倒，而且直接拼接SQL存在注入风险，全局数据库对象没有可靠释放机制容易引发连接泄漏，高并发场景下当前的流水号生成逻辑还可能出现重复号问题。

建议放弃用函数名作为返回值变量的旧VB兼容写法，先初始化返回值变量覆盖所有执行路径，同时优化数据库操作逻辑，修复后的代码如下：

Function GetTransNo() As String
    ' 先初始化返回值，覆盖所有执行路径避免未赋值问题
    Dim transNo As String = String.Empty
    Try
        Dim sdate As String = Now.ToString("yyyyMMdd")
        ' Using块自动释放数据库资源，不需要手动调用Close
        Using cn As New SqlConnection("替换为你的数据库连接字符串")
            cn.Open()
            ' 参数化查询避免SQL注入风险
            Dim sql As String = "SELECT TOP 1 TransNo FROM TblCart WHERE TransNo LIKE @prefix ORDER BY Id DESC"
            Using cm As New SqlCommand(sql, cn)
                cm.Parameters.AddWithValue("@prefix", sdate & "%")
                Using dr As SqlDataReader = cm.ExecuteReader()
                    ' 直接用Read返回值判断是否有数据，不需要额外判断HasRows
                    If dr.Read() AndAlso Not IsDBNull(dr("TransNo")) Then
                        transNo = (CLng(dr("TransNo").ToString()) + 1).ToString()
                    Else
                        transNo = sdate & "0001"
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MsgBox(ex.Message, vbCritical)
        ' 异常场景可根据业务需要返回空值或者特定错误标识
        transNo = String.Empty
    End Try
    Return transNo
End Function

• 如果一定要使用全局数据库连接对象，每次调用Open前请先判断连接状态，避免重复打开报错
• 高并发场景建议用数据库序列、自增字段或者分布式ID生成方案生成流水号，当前的查询后自增逻辑可能出现重复流水号冲突

内容的提问来源于stack exchange，提问作者Chaker