无法修复的错误？

Question

我在连接到 SQL 数据库的 VB.NET 应用程序中遇到错误。它连接正常，但由于某种原因我无法修复此错误。当我尝试修复它时，它从脚本的一个部分移动到脚本的另一部分（这两个部分昨天都在工作）。错误详细信息为：

不幸的是，我很难描述我如何产生这个结果，因为它已经发生在多个我的代码的一部分，这些部分唯一的共同点是它们与 Listbox1 的交互。

出现此错误的代码的第一部分是：

Dim sqlpage As MySqlCommand = New MySqlCommand("SELECT * FROM [" & frmMain.ListBox1.SelectedItem.value & "]", con)

然后我得到了同样的错误：

Private Sub ListBox1_SelectedValueChanged( _
    ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles ListBox1.SelectedValueChanged

    Try
        Form1.Label1.Text = ListBox1.SelectedItem
        Form1.Show()
    Catch myerror As MySqlException
        MessageBox.Show("Error Setting Up Project Page: " & myerror.Message)
    End Try
End Sub

更具体地说：

Form1.Label1.Text = ListBox1.SelectedItem

然后我又得到了几次，但我认为上面的例子就足够了。

由于上面的示例中没有“使用块变量”，因此唯一的其他选项是它与对象相关。我尝试了不同的方法来定义和重新定义与错误相关的对象变量。然而，结果是一样的。

作为对 Juxtaposition 的回答，我原来的问题已经解决，但是由于我打开了 Option Strict，所以特别出现了两个新问题。

• 第一个是：

错误1：Option Strict On 不允许后期绑定。

有问题的代码是：

Try
    ' Retrieving the projects list.
    con.Open()
    DataAdapter2.SelectCommand = sqlprojects
    DataAdapter2.Fill(ds2, "projects")
    ListBox1.Items.Clear()

    For Each DataRow In ds2.Tables("projects").Rows

        ' Error occurs on the line below
        ListBox1.Items.Add(DataRow("project_name"))
    Next
    con.Close()

Catch myerror As MySqlException
    MessageBox.Show("Error Retrieving Projects List: " & myerror.Message)
End Try

• 第二个是：

错误 2：Option Strict On 不允许从“对象”到“字符串”的隐式转换。

有问题的代码是：

Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged

    Try
        If ListBox1.SelectedItem IsNot Nothing Then

            ' Error occurs on the line below
            Form1.Label1.Text = ListBox1.SelectedItem
        End If

        Form1.Show()
    Catch myerror As MySqlException
        MessageBox.Show("Error Setting Up Project Page: " & myerror.Message)
    End Try
End Sub

---

它成功了......所以我感谢大家的时间和耐心。

Answer 1

您应该始终（99.999999% 的时间）使用 Option Strict On 编写 VB.NET 代码，除非您正在编写互操作代码或与深奥的数据库提供程序交互。

只需将“Option Strict On”字样放在文件顶部即可。

这将使您能够捕获像您正在处理的错误一样的错误。

如果没有Option Strict On，您可以像您所写的那样编写代码：

Form1.Label1.Text = ListBox1.SelectedItem

该代码的问题是隐式尝试将对象（ListBox1.SelectedItem）转换为字符串（Form1.Label1.Text） ）。

打开选项 strict ，编译器会预先给你一个错误。

然后你将被迫重写你的代码，如下所示：

If ListBox1.SelectItem IsNot Nothing then
    Form1.Label1.Text = ListBox1.SelectedItem
End If

Answer 2

暂时关注这一行：

Form1.Label1.Text = ListBox1.SelectedItem

如果您在此行收到 NullReferenceException，则必须满足以下条件之一：

• Form1 为 null
• Form1.Label1 为 null
• ListBox1 为 null

您可以尝试通过添加如下行来确定这一点：这些就在上面一行之前：

Console.Writeline("Form1: " & (Form1 Is Nothing))
Console.Writeline("Form1.Label1: " & (Form1.Label1 Is Nothing))
Console.Writeline("ListBox1:" & (ListBox1 Is Nothing))

您应该看到一行输出 true；这是第一个线索。但接下来的问题是，为什么它是空的？从你目前所展示的情况来看，我还不能说。

Answer 3

确保在这两种情况下 ListBox1.SelectedItem 不是 Nothing。

Answer 4

无需使用 Option Explicit On 即可修复原始错误。在使用 Listbox.SelectedItem 之前，您需要确保它具有值。代码应写为：

If frmMain.ListBox1.SelectedItem IsNot Nothing Then
    Dim sqlpage As MySqlCommand = New MySqlCommand("SELECT * FROM [" & frmMain.ListBox1.SelectedItem.value & "]", con)
End If 

和

Try
    If ListBox1.SelectedItem IsNot Nothing Then
        Form1.Label1.Text = ListBox1.SelectedItem
    End If

    Form1.Show()
Catch myerror As MySqlException
    MessageBox.Show("Error Setting Up Project Page: " & myerror.Message)
End Try

更新 #2
您的第二个错误应该通过将代码更改为来修复：

If ListBox1.SelectedItem IsNot Nothing Then
    Form1.Label1.Text = ListBox1.SelectedItem.ToString
End If

Option Explicit On 意味着您必须显式转换数据类型。