drivign me crazy for last 2 days - itemdatabound

[samir dsf]

hi
i have a link in the datagrid which are actually the names of the
files..what i am doign is when i click to that link i display the
description of that file below it. i have implemented something simialr
before.

the problem now is that when i click the link my datagrid jsut vanishes.

ran thru the debugger...after i click the link it comes to the
dgFiles_ItemCommand then this condition "ElseIf (e.CommandName =
"ShowContent") Then" is satisfied to is goes to the bindGrid; from bind
grid it goes to ==>
dgFiles_ItemDataBound
here is just repeates the dgFiles_ItemDataBound event only 2ice. once
for header and once for footer.

why is this happening..why does the datagird only have header and
footer?

Private Sub dgFiles_ItemCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles
dgFiles.ItemCommand

If e.CommandName = "File" Then

/////
ElseIf e.CommandName = "Delete" Then
////
ElseIf (e.CommandName = "ShowContent") Then 'this is what is causing
problem

dgFiles.EditItemIndex = e.Item.ItemIndex
bindGrid()

End If
Private Sub dgFiles_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs) Handles
dgFiles.ItemDataBound

If e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.Alternating Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.EditItem Then
Dim lbl As System.Web.UI.WebControls.Label
lbl = e.Item.FindControl("lblSize")
FilePath = e.Item.Cells(1).Text
filename = e.Item.Cells(2).Text
Dim fi As FileInfo = New FileInfo(FilePath & filename)
Dim fileBytes As Integer = (fi.Length / 1024)
lbl.Text = fileBytes.ToString
End If
If e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.Alternating Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.Item Then
Dim link As System.Web.UI.WebControls.LinkButton =
CType(e.Item.FindControl("select"),
System.Web.UI.WebControls.LinkButton)
link.Text = e.Item.Cells(2).Text
End If
Dim itemType As System.Web.UI.WebControls.ListItemType =
e.Item.ItemType
If (e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.EditItem) Then
Dim row As DataRowView = CType(e.Item.DataItem, DataRowView)
Dim title As System.Web.UI.WebControls.Label =
CType(e.Item.FindControl("Title"), System.Web.UI.WebControls.Label)
Dim content As System.Web.UI.WebControls.Label =
CType(e.Item.FindControl("content"), System.Web.UI.WebControls.Label)
title.Text = row("FILENAME").ToString()
Dim contentStr As String = ByteArrayToString(row("DESCRIPTION"))
content.Text = contentStr
End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***

[Siva M]

I am not sure what bindGrid() does when it is called in the 'ShowContent'
part. Probably, showing bindGrid() code will help.

"samir dsf" <im************@gmail.com> wrote in message
news:Oe**************@TK2MSFTNGP09.phx.gbl...

hi
i have a link in the datagrid which are actually the names of the
files..what i am doign is when i click to that link i display the
description of that file below it. i have implemented something simialr
before.

the problem now is that when i click the link my datagrid jsut vanishes.

ran thru the debugger...after i click the link it comes to the
dgFiles_ItemCommand then this condition "ElseIf (e.CommandName =
"ShowContent") Then" is satisfied to is goes to the bindGrid; from bind
grid it goes to ==>
dgFiles_ItemDataBound
here is just repeates the dgFiles_ItemDataBound event only 2ice. once
for header and once for footer.

why is this happening..why does the datagird only have header and
footer?

Private Sub dgFiles_ItemCommand(ByVal source As Object, ByVal e As
System.Web.UI.WebControls.DataGridCommandEventArgs ) Handles
dgFiles.ItemCommand

If e.CommandName = "File" Then

/////
ElseIf e.CommandName = "Delete" Then
////
ElseIf (e.CommandName = "ShowContent") Then 'this is what is causing
problem

dgFiles.EditItemIndex = e.Item.ItemIndex
bindGrid()

End If
Private Sub dgFiles_ItemDataBound(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.DataGridItemEventArgs) Handles
dgFiles.ItemDataBound

If e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.Alternating Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.EditItem Then
Dim lbl As System.Web.UI.WebControls.Label
lbl = e.Item.FindControl("lblSize")
FilePath = e.Item.Cells(1).Text
filename = e.Item.Cells(2).Text
Dim fi As FileInfo = New FileInfo(FilePath & filename)
Dim fileBytes As Integer = (fi.Length / 1024)
lbl.Text = fileBytes.ToString
End If
If e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.Alternating Item Or
e.Item.ItemType = System.Web.UI.WebControls.ListItemType.Item Then
Dim link As System.Web.UI.WebControls.LinkButton =
CType(e.Item.FindControl("select"),
System.Web.UI.WebControls.LinkButton)
link.Text = e.Item.Cells(2).Text
End If
Dim itemType As System.Web.UI.WebControls.ListItemType =
e.Item.ItemType
If (e.Item.ItemType =
System.Web.UI.WebControls.ListItemType.EditItem) Then
Dim row As DataRowView = CType(e.Item.DataItem, DataRowView)
Dim title As System.Web.UI.WebControls.Label =
CType(e.Item.FindControl("Title"), System.Web.UI.WebControls.Label)
Dim content As System.Web.UI.WebControls.Label =
CType(e.Item.FindControl("content"), System.Web.UI.WebControls.Label)
title.Text = row("FILENAME").ToString()
Dim contentStr As String = ByteArrayToString(row("DESCRIPTION"))
content.Text = contentStr
End If
End Sub

*** Sent via Developersdex http://www.developersdex.com ***

[samir dsf]

here is my bindgrid

Public Sub bindGrid()
Try
'CheckValidate
Page.Validate()
If Not Page.IsValid Then
Return
End If

'get details from the db
GoToDBOpenConn()

strSQL = "select FILEID, FILENAME,
APPSERVICETYPE,LOCATION,FILEREPORT, DESCRIPTION FROM DOWNLOADFILES WHERE
@lower(ORGANISATION)=@lower('" & Orgn & "') and FILEREPORT='FILE' "

'CHECK WHAT APPLICATION TYPES AND SERVICES ARE CHOSEN BY
THIS USER
strSQL2 = "select
DESKTOP,NETWORK,DATACENTRE,PREMIUM,SERVER,HELPDESK FROM SERVICETYPES
where @lower(USERNAME) = @lower('" & Session("GlobalUserName") & "')"
objCommand = New OleDbCommand(strSQL2, objConnection)
objReaderServiceType = objCommand.ExecuteReader()
Dim flagCONCAT As Boolean = False
Dim endSQL As String
While (objReaderServiceType.Read())

If objReaderServiceType("DESKTOP") = 1 Or
objReaderServiceType("DATACENTRE") = 1 Or _
objReaderServiceType("PREMIUM") = 1 Or
objReaderServiceType("SERVER") = 1 Or _
objReaderServiceType("HELPDESK") = 1 Or
objReaderServiceType("NETWORK") = 1 Then
Dim startSQL As String = " AND ("
endSQL = " ) "
flagCONCAT = True
strSQL = strSQL & startSQL
End If
Dim flagOR As Boolean = False
Dim midSQL As String = " OR "
If objReaderServiceType("DESKTOP") = 1 Then
flagOR = True
strSQL = strSQL & " APPSERVICETYPE='DESKTOP'"
End If
If objReaderServiceType("DATACENTRE") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='DATACENTRE'"
End If
If objReaderServiceType("PREMIUM") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='PREMIUM'"
End If
If objReaderServiceType("SERVER") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='SERVER'"
End If
If objReaderServiceType("HELPDESK") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='HELPDESK'"
End If
If objReaderServiceType("NETWORK") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='NETWORK'"
End If
End While
If flagCONCAT = True Then
strSQL = strSQL & endSQL
End If
objReaderServiceType.Close()
GoToDBCloseConn()
If flagCONCAT = True Then
GoToDBOpenConn()
objCommand = New OleDbCommand(strSQL, objConnection)
myDa.SelectCommand = objCommand
Dim dt As New DataTable
myDa.Fill(dt)
Me.dgFiles.DataSource = dt
Me.dgFiles.DataBind()

End If
Catch ex As Exception
lblError.Text = "bindGrid(): " & ex.Message.ToString
Finally
GoToDBCloseConn()
End Try
End Sub

*** Sent via Developersdex http://www.developersdex.com ***

[samir dsf]

only problem now is that when i click the link ... i dont see the
datagrid at all..

so it means the datasource is not being provided. but i ran thru the
debugger

after i click the link it comes to the
dgFiles_ItemCommand then this condition "ElseIf (e.CommandName =
"ShowContent") Then" is satisfied to is goes to the bindGrid; from bind
grid it goes to ==>
dgFiles_ItemDataBound
here is just repeates the dgFiles_ItemDataBound event only 2ice. once
for header and once for footer.

why is this happening..why si the datagird empty?


*** Sent via Developersdex http://www.developersdex.com ***

[Siva M]

Hi,

bindGrid() looks ok to me. Probably, you might want to execute the SQL query
constructed by this procedure separately and check that you are getting one
or more rows.

"samir dsf" <im************@gmail.com> wrote in message
news:uq**************@TK2MSFTNGP12.phx.gbl...
here is my bindgrid

Public Sub bindGrid()
Try
'CheckValidate
Page.Validate()
If Not Page.IsValid Then
Return
End If

'get details from the db
GoToDBOpenConn()

strSQL = "select FILEID, FILENAME,
APPSERVICETYPE,LOCATION,FILEREPORT, DESCRIPTION FROM DOWNLOADFILES WHERE
@lower(ORGANISATION)=@lower('" & Orgn & "') and FILEREPORT='FILE' "

'CHECK WHAT APPLICATION TYPES AND SERVICES ARE CHOSEN BY
THIS USER
strSQL2 = "select
DESKTOP,NETWORK,DATACENTRE,PREMIUM,SERVER,HELPDESK FROM SERVICETYPES
where @lower(USERNAME) = @lower('" & Session("GlobalUserName") & "')"
objCommand = New OleDbCommand(strSQL2, objConnection)
objReaderServiceType = objCommand.ExecuteReader()
Dim flagCONCAT As Boolean = False
Dim endSQL As String
While (objReaderServiceType.Read())

If objReaderServiceType("DESKTOP") = 1 Or
objReaderServiceType("DATACENTRE") = 1 Or _
objReaderServiceType("PREMIUM") = 1 Or
objReaderServiceType("SERVER") = 1 Or _
objReaderServiceType("HELPDESK") = 1 Or
objReaderServiceType("NETWORK") = 1 Then
Dim startSQL As String = " AND ("
endSQL = " ) "
flagCONCAT = True
strSQL = strSQL & startSQL
End If
Dim flagOR As Boolean = False
Dim midSQL As String = " OR "
If objReaderServiceType("DESKTOP") = 1 Then
flagOR = True
strSQL = strSQL & " APPSERVICETYPE='DESKTOP'"
End If
If objReaderServiceType("DATACENTRE") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='DATACENTRE'"
End If
If objReaderServiceType("PREMIUM") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='PREMIUM'"
End If
If objReaderServiceType("SERVER") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='SERVER'"
End If
If objReaderServiceType("HELPDESK") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='HELPDESK'"
End If
If objReaderServiceType("NETWORK") = 1 Then
If flagOR = True Then
strSQL = strSQL & midSQL
Else
flagOR = True
End If
strSQL = strSQL & " APPSERVICETYPE='NETWORK'"
End If
End While
If flagCONCAT = True Then
strSQL = strSQL & endSQL
End If
objReaderServiceType.Close()
GoToDBCloseConn()
If flagCONCAT = True Then
GoToDBOpenConn()
objCommand = New OleDbCommand(strSQL, objConnection)
myDa.SelectCommand = objCommand
Dim dt As New DataTable
myDa.Fill(dt)
Me.dgFiles.DataSource = dt
Me.dgFiles.DataBind()

End If
Catch ex As Exception
lblError.Text = "bindGrid(): " & ex.Message.ToString
Finally
GoToDBCloseConn()
End Try
End Sub

*** Sent via Developersdex http://www.developersdex.com ***