Maideen Abdul Kader Ответов: 2

Ошибка компиляции Gridview

Привет
У меня есть "ошибка компиляции" в элементе управления Gridview. Ниже приведен мой код.
gv-это управление gridview. пожалуйста, помогите мне.

ошибка компиляции

Описание: произошла ошибка при компиляции ресурса, необходимого для обслуживания этого запроса. Пожалуйста, ознакомьтесь со следующими конкретными сведениями об ошибке и соответствующим образом измените свой исходный код.

Сообщение об ошибке компилятора: BC30455: аргумент не указан для параметра 'index' элемента свойства 'Public ReadOnly Default(индекс как целое число) В Качестве Системы.Веб.Пользовательского интерфейса.WebControls.GridViewRow'.

Ошибка Источника:
Строка 18: 'Dim myGridItem As DataGridItem
Строка 19: Dim myGridItem как новый GridView
Строка 20: для каждого myGridItem в gv.Rows.Item
Строка 21: If CType(myGridItem.Ячейки(0).Элементы Управления(0), Флажок).Проверено = Истина Тогда
Строка 22: cmd.параметры.AddWithValue("@UserName", Me.txtUserName.Text)


Вот код

Try
   Dim cmd As New SqlCommand("usp_UserRight_Insert", conn)
   cmd.CommandType = CommandType.StoredProcedure
   'Dim myGridItem As DataGridItem
   Dim myGridItem As New GridView
     For Each myGridItem In gv.Rows.Item
        If CType(myGridItem.Cells(0).Controls(0), CheckBox).Checked = True Then
           cmd.Parameters.AddWithValue("@MenuName", Me.gv.SelectedRow.Cells(1).Text)
           cmd.Parameters.AddWithValue("@MenuLink", Me.gv.SelectedRow.Cells(2).Text)
           Dim da As New SqlDataAdapter(cmd)
           Dim dt As New DataTable
           da.Fill(dt)
         End If
     Next
Catch ex As Exception
      MsgBox("Error:" & vbCrLf & ex.Message)
Finally
      conn.Close()
End Try


Пожалуйста, помогите мне

спасибо
Мейден

2 Ответов

Рейтинг:
2

Maideen Abdul Kader 

For i = 0 To GridView1.Rows.Count - 1
    If DirectCast(GridView1.Rows(i).FindControl("chk"), CheckBox).Checked() Then
        Dim row As GridViewRow = GridView1.Rows(i)
        cmd = New SqlCommand
        cmd.Connection = conn
        cmd.CommandText = "INSERT INTO Z_User_MenuVSGroup(menu_id, menu_name, menu_parent_id, menu_url, group_code) Values(@menuid,@menuname,@menuparentid,@menuurl,@groupcode)"
        cmd.CommandType = CommandType.Text
        conn.Open()
        Try
            cmd.Parameters.AddWithValue("@menuid", row.Cells(1).Text)
            cmd.Parameters.AddWithValue("@menuname", row.Cells(2).Text)
            cmd.Parameters.AddWithValue("@menuparentid", row.Cells(4).Text)
            cmd.Parameters.AddWithValue("@menuurl", row.Cells(5).Text)
            cmd.Parameters.AddWithValue("@groupcode", UCase(Me.cboDesigCode.SelectedValue))

            cmd.ExecuteNonQuery()
        Catch ex As Exception

        Finally
            cmd = Nothing
            conn.Close()

        End Try

    End If
Next

CHill60

Вам потребовалось 7 лет, чтобы найти решение? :-О

Рейтинг:
14

manak chand 

If CType(myGridItem.Cells(0).Controls(0), CheckBox).Checked

должно быть
If CType(myGridItem.rows(0).FindControl("Controlname"), CheckBox).Checked

Member 14188766

во время компиляции ресурса, необходимого для обслуживания этого запроса, произошла ошибка. Пожалуйста, ознакомьтесь со следующими конкретными сведениями об ошибке и соответствующим образом измените свой исходный код.