Question

这可能已被多次询问和回答，但我一直无法找到答案。

在CbProdukt1_SelectedIndexChanged()中，我需要来自另一个子数组的相关值：

Private Sub CbProdukt1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CbProdukt1.SelectedIndexChanged

    With Me.LblEnhed1
         .Text = Enhed(CbProdukt1.SelectedIndex)
         .Location = New Point(230, 150)
    End With
    Me.Controls.Add(LblEnhed1)

End Sub

如果Enhed()已公开，这很容易。但它并不是因为它在另一个子系统中从Sqlite中标注和检索：

Dim count As Integer
sql = "SELECT COUNT(varenr) AS varenrcount FROM '" & Varedatabase & "'"
cmd = New SQLiteCommand(sql, conn)
count = cmd.ExecuteScalar

sql = "SELECT * FROM '" & Varedatabase & "'"
cmd = New SQLiteCommand(sql, conn)
reader = cmd.ExecuteReader

Dim a = 0
Dim Varenr(count + 5) As String
Dim Varenavn(count + 5) As String
Dim Enhed(count + 5) As String

While (reader.Read())
    Varenr(a) = reader("varenr")
    Varenavn(a) = reader("Varenavn")
    Enhed(a) = reader("Enhed")
    CbProdukt1.Items.Add(varenavn(a))
    a += 1
End While

公共声明只允许在类顶部的subs之前。

那么如何让Enhed（a）从sub到sub？

在类中的subs之间传递变量

0 个答案: