<script runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
BindGrid()
End Sub
Sub BindGrid()
Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ColtAtAspAlliance"))
Dim myDataAdpater As New SqlDataAdapter(" Select Top 10 * from Colt_Products", myConnection)
Dim myDataSet As DataSet
Try
myDataSet = New DataSet()
'----------------------------------
' Fill the DataSet for the DataBinding of the 2 DataGrid
'----------------------------------
myDataAdpater.Fill(myDataSet)
DataGrid1.DataSource = myDataSet
DataGrid1.DataBind()
DataGrid2.DataSource = myDataSet
DataGrid2.DataBind()
Catch SQLEx As SqlException : Response.Write(SQLEx.Message.ToString())
Catch Ex As Exception : Response.Write(Ex.Message.ToString())
End Try
End Sub
Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
'---------------------------------------------------
' Add the OnMouseOver and OnMouseOut method to the Row of DataGrid
'---------------------------------------------------
e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor= 'Silver'")
e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor= 'white'")
End If
End Sub
Sub DataGrid2_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
'---------------------------------------------------
' Add the OnMouseOver and OnMouseOut method a Cell (Column) of DataGrid
'---------------------------------------------------
e.Item.Cells(1).Attributes.Add("onmouseover", "this.style.backgroundColor= '#DDEEFF'")
e.Item.Cells(1).Attributes.Add("onmouseout", "this.style.backgroundColor= 'white'")
'---------------------------------------------------
' Change the Mouse Cursor of a particular Cell (Column) of DataGrid
' (Or you may do it for a whole Row of DataGrid :)
'---------------------------------------------------
e.Item.Cells(3).Style("cursor") = "hand"
'---------------------------------------------------
' Add the OnClick Alert MessageBox to a particular Cell (Column) of DataGrid
'---------------------------------------------------
e.Item.Cells(3).Attributes.Add("onclick", "alert('You click at ID: " & e.Item.Cells(0).Text & "!');")
End If
End Sub
</script>
Sub Page_Load(Sender As Object, E As EventArgs)
BindGrid()
End Sub
Sub BindGrid()
Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ColtAtAspAlliance"))
Dim myDataAdpater As New SqlDataAdapter(" Select Top 10 * from Colt_Products", myConnection)
Dim myDataSet As DataSet
Try
myDataSet = New DataSet()
'----------------------------------
' Fill the DataSet for the DataBinding of the 2 DataGrid
'----------------------------------
myDataAdpater.Fill(myDataSet)
DataGrid1.DataSource = myDataSet
DataGrid1.DataBind()
DataGrid2.DataSource = myDataSet
DataGrid2.DataBind()
Catch SQLEx As SqlException : Response.Write(SQLEx.Message.ToString())
Catch Ex As Exception : Response.Write(Ex.Message.ToString())
End Try
End Sub
Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
'---------------------------------------------------
' Add the OnMouseOver and OnMouseOut method to the Row of DataGrid
'---------------------------------------------------
e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor= 'Silver'")
e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor= 'white'")
End If
End Sub
Sub DataGrid2_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs)
If e.Item.ItemType = ListItemType.Item Or _
e.Item.ItemType = ListItemType.AlternatingItem Then
'---------------------------------------------------
' Add the OnMouseOver and OnMouseOut method a Cell (Column) of DataGrid
'---------------------------------------------------
e.Item.Cells(1).Attributes.Add("onmouseover", "this.style.backgroundColor= '#DDEEFF'")
e.Item.Cells(1).Attributes.Add("onmouseout", "this.style.backgroundColor= 'white'")
'---------------------------------------------------
' Change the Mouse Cursor of a particular Cell (Column) of DataGrid
' (Or you may do it for a whole Row of DataGrid :)
'---------------------------------------------------
e.Item.Cells(3).Style("cursor") = "hand"
'---------------------------------------------------
' Add the OnClick Alert MessageBox to a particular Cell (Column) of DataGrid
'---------------------------------------------------
e.Item.Cells(3).Attributes.Add("onclick", "alert('You click at ID: " & e.Item.Cells(0).Text & "!');")
End If
End Sub
</script>