L
Luis E Valencia
look at this I dont know how to do that bin song
Public Sub pasar(ByVal sender As System.Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs)
e.Item.BackColor = Color.Red
panelmeta.Visible = False
If IsPostBack Then
If e.CommandName = "Pasar" Then
dgdir.SelectedIndex = e.Item.ItemIndex
dgdir.DataBind()
End If
Dim iddireccion As Int16 = dgdir.DataKeys(e.Item.ItemIndex)
lblmetas.Text = "Indicadores para la direccion seleccionada"
Dim selectCMD2 As SqlCommand = New SqlCommand("select * from tblrelinddir,
tblheaderindicador where
tblheaderindicador.idindicador=tblrelinddir.idindicador and
tblrelinddir.iddireccion=" & iddireccion & "", SqlConnection1)
selectCMD2.CommandTimeout = 30
Dim custDA2 As SqlDataAdapter = New SqlDataAdapter
custDA2.SelectCommand = selectCMD2
Dim custDS2 As DataSet = New DataSet
custDA2.Fill(custDS2, "tblindicadormeta")
dgmetas.DataSource = custDS2.Tables("tblindicadormeta").DefaultView
If custDS2.Tables("tblindicadormeta").Rows.Count = 0 Then
lblmetas.Text = "NO hay indicadores en esta direccion"
dgmetas.Visible = False
panelmeta.Visible = False
Else
dgmetas.DataBind()
dgmetas.Visible = True
panelmeta.Visible = False
End If
End If
End Sub
Public Sub pasar(ByVal sender As System.Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs)
e.Item.BackColor = Color.Red
panelmeta.Visible = False
If IsPostBack Then
If e.CommandName = "Pasar" Then
dgdir.SelectedIndex = e.Item.ItemIndex
dgdir.DataBind()
End If
Dim iddireccion As Int16 = dgdir.DataKeys(e.Item.ItemIndex)
lblmetas.Text = "Indicadores para la direccion seleccionada"
Dim selectCMD2 As SqlCommand = New SqlCommand("select * from tblrelinddir,
tblheaderindicador where
tblheaderindicador.idindicador=tblrelinddir.idindicador and
tblrelinddir.iddireccion=" & iddireccion & "", SqlConnection1)
selectCMD2.CommandTimeout = 30
Dim custDA2 As SqlDataAdapter = New SqlDataAdapter
custDA2.SelectCommand = selectCMD2
Dim custDS2 As DataSet = New DataSet
custDA2.Fill(custDS2, "tblindicadormeta")
dgmetas.DataSource = custDS2.Tables("tblindicadormeta").DefaultView
If custDS2.Tables("tblindicadormeta").Rows.Count = 0 Then
lblmetas.Text = "NO hay indicadores en esta direccion"
dgmetas.Visible = False
panelmeta.Visible = False
Else
dgmetas.DataBind()
dgmetas.Visible = True
panelmeta.Visible = False
End If
End If
End Sub