Блог

Как вы можете видеть из закомментированного кода, я пытаюсь повлиять на выпадающий список модели selCurrentManuf.Text .

Я получаю эту ошибку

‘selCurrentManuf’ не объявлен. Он может быть недоступен из-за его уровня защиты.

Как это можно решить?

Я могу получить доступ к выпадающему списку в другой части страницы следующим образом..

 Dim sc1_currentmanuf As String = CType(e.Item.FindControl("selCurrentManuf"), DropDownList).Text
  

Однако в функции, которую я пытаюсь использовать, selCurrentManuf не имеет доступа к e

     Dim sc1_currentmanuf As String = CType(dlContacts.Items(0).FindControl("selCurrentManuf"), DropDownList).Text
    Dim myQuery As String = "SELECT * FROM c5_model where c5_manufid = "   sc1_currentmanuf
  

Щелкните правой кнопкой мыши на вашей странице .aspx и выберите команду Преобразовать в веб-приложение.

Тогда вы сможете написать:

   Dim myQuery As String = 
    String.Format("SELECT * FROM c5_model WHERE c5_manuf = '{0}'", 
                  selCurrentManuf.SelectedItem.Text )
  

Я предполагаю, что ваши функции находятся внутри класса в вашем App_Code или другой dll, а не в коде страницы.

Если это так, сделайте это вместо:

Я предполагаю, что у вас есть что-то подобное в коде вашей страницы asp:

 Protected Sub selCurrentManuf_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        GetCurrentModel(selCurrentManuf.Text)
End Sub
  

Измените код GetCurrentModel на:

 Function GetCurrentModel(Byval c5_manuf as String) As DataSet
    Dim mySession = System.Web.HttpContext.Current.Session
    Dim myQuery As String = "SELECT * FROM c5_model " 'where c5_manuf = "     c5_manuf 
    Dim myConnection As New MySqlConnection(mySession("localConn"))
    myConnection.Open()
    Dim myCommand As New MySqlCommand(myQuery, myConnection)
    Dim myDataAdapter = New MySqlDataAdapter(myCommand)
    Dim myDataset As New DataSet
    myDataAdapter.Fill(myDataset, "c5_model")
    Dim dr As DataRow = myDataset.Tables(0).NewRow       
    myDataset.Tables(0).Rows.Add(dr)      
    GetCurrentModel =  myDataset
    myConnection.Close()         
 End Function