Это CheckBoxList проверено vb.net окна формы

-1

Я хочу добавить несколько записей в базе данных, но я получаю следующее сообщение об ошибке:Это CheckBoxList проверено vb.net окна формы

Conversion from type 'DataRowView' to type 'Integer' is not valid.

Мой код выглядит следующим образом:

Private Sub CheckedListBox1_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck 

    Dim SelectedMainCat As Integer 
    Dim DMV As DataRowView = TryCast(CheckedListBox1.SelectedItem, DataRowView) 

    If DMV IsNot Nothing Then 

     'SelectedMainCat = DMV.CheckedItems(n) 

     For n As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1 
      Dim userWants As Integer = CheckedListBox1.CheckedItems(n) 
     Next n 


    End If 

End Sub

источник

2014-10-02 Sheeraz Bughio

Тип, который CheckedListBox1.CheckedItems (п) возвращает к типу DataRowView и вы re пытается установить «userWants», который является целым числом для этого значения. Попробуйте «Dim userWants As DataRowView = Check ...» – Sasse

'CheckedItems (n)' возвращает 'DataRowView'. Это не может быть преобразовано в целое число, как указано в сообщении об ошибке. –

Да, вы правы тогда, как с этим справиться? –

Спасибо Теперь мой код работает Thankyou еще раз

Private Sub CheckedListBox1_ItemCheck (ByVal отправитель Как System.Object, ByVal е Как System.Windows.Forms.ItemCheckEventArgs) Ручки CheckedListBox1.ItemCheck

Dim SelectedMainCat As DataRowView 
    Dim DMV As DataRowView = TryCast(CheckedListBox1.SelectedItem, DataRowView) 

    If DMV IsNot Nothing Then 



     For n As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1 
      SelectedMainCat = CheckedListBox1.CheckedItems(n) 
      Dim userWants As DataRowView = DirectCast(CheckedListBox1.CheckedItems(n), DataRowView) 

      **'insert query** 


     Next n 


    End If 
End Sub

источник

2014-10-02 11:48:46

Это CheckBoxList проверено vb.net окна формы

ответ

Смежные вопросы