DropDownList en GridView

[Darkrox]

No se si te refieras a este, ya que no se mucho de esto
Así es como carga, yo solo apoyo en el proyecto, así que prefiero no meterle mucha mano de obra a lo brusco

Código vb:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim i As Integer
        Dim Accesos As DataSet
        If Session("sec_sesion") <> 1 Then
            Dim mensaje2 As String = "<script language='javascript'> alert('Debe iniciar sesion'); location.href = 'Inicio.aspx'; </script>"
            ClientScript.RegisterStartupScript(Page.GetType(), "msj", mensaje2)
        Else
            Accesos = Permisos.Permiso("Administracion.aspx", Session("sec_grupo"))
            If Accesos.Tables("acceso").Rows.Count = 0 Then
                Dim mensaje As String = "<script language='javascript'> alert('Acceso denegado a esta página'); location.href = 'Inicio.aspx'; </script>"
                ClientScript.RegisterStartupScript(Page.GetType(), "msj", mensaje)
            Else
                For i = 0 To Accesos.Tables("acceso").Rows.Count - 1
                    If (Accesos.Tables("acceso").Rows(i).Item(0).ToString <> 3) Then
                        Me.TabContainer1.ActiveTabIndex = 0
                        Me.TabContainer1.Tabs(0).Visible = False
                        Me.TabContainer1.Tabs(1).Visible = False
                        Me.TabContainer1.Tabs(2).Visible = False
                        Me.TabContainer1.Tabs(3).Visible = True
                        If Accesos.Tables("acceso").Rows(i).Item(1).ToString <> 8 Then
                            enable_serv()
                        End If
                        Me.TabContainer1.Tabs(4).Visible = False
                        Me.TabContainer1.Tabs(5).Visible = False
                        Me.TabContainer1.Tabs(6).Visible = False
                        If Session("sec_iddepto") = 34 Then
                            Me.TabContainer1.Tabs(7).Visible = True
                        Else
                            Me.TabContainer1.Tabs(7).Visible = False
                        End If
                        Me.TabContainer1.Tabs(8).Visible = False
                    End If
                Next
            End If
        End If
    End Sub
 

Y para registrar los datos a la Base es este

Código vb:

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            Catalogos.RegDir(Me.txtnomb.Text, Me.txtalias.Text, Me.DDLTit.Text)
            ScriptManager.RegisterStartupScript(Me.UpdatePanel1, Me.UpdatePanel1.GetType(), "Catálogos", "alert('Registro Agregado');", True)
            'Conexion.closeCon()
            Me.txtnomb.Text = ""
            Me.txtalias.Text = ""
            Me.DDLTit.Text = ""
        Catch ex As Exception
            ScriptManager.RegisterStartupScript(Me.UpdatePanel1, Me.UpdatePanel1.GetType(), "Catálogos", "alert('" & ex.Message.ToString & "');", True)
        End Try
    End Sub
 

Código vb:

Public Shared Function RegDir(ByVal Nom_dir As String, ByVal Alia As String, ByVal tipo As String) As String
        Dim conection As SqlConnection = Conexion.GetConnection
        Dim sqlquery As String = "exec pc_NewDir '" & Nom_dir & "','" & Alia & "','" & tipo & "'"
        Dim comando As SqlCommand = New SqlCommand(sqlquery, conection)
        comando.ExecuteNonQuery()
        conection.Close()
        Return 0
    End Function