DataGrid bound to DataTable containing blanks returns  

[John A Grandy]

anyone know why this is ?

Imports System.Data

Imports System.Diagnost ics

Public Class WebForm12

Inherits System.Web.UI.P age

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnos tics.DebuggerSt epThrough()> Private Sub InitializeCompo nent()

End Sub

Protected WithEvents dg1 As System.Web.UI.W ebControls.Data Grid

'NOTE: The following placeholder declaration is required by the Web Form
Designer.

'Do not delete or move it.

Private designerPlaceho lderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeCompo nent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim dcc As DataColumnColle ction

Dim dr As DataRow

Dim drc As DataRowCollecti on

Dim dt As DataTable

Try

If Not Page.IsPostBack Then

dt = New DataTable

dcc = dt.Columns

dcc.Add("Col1", GetType(String) )

dcc.Add("Col2", GetType(String) )

drc = dt.Rows

dr = dt.NewRow

dr(0) = "abcd"

'dr(1) = ""

drc.Add(dr)

dr = dt.NewRow

dr(0) = "efgh"

'dr(1) = ""

drc.Add(dr)

dg1.DataSource = dt.DefaultView

dg1.DataBind()

End If

Catch ex As Exception

Debug.WriteLine (ex.Source & " " & ex.Message)

Finally

End Try

End Sub

Public Sub dg1_ItemCommand (ByVal sender As Object, ByVal e As
DataGridCommand EventArgs)

Dim dgi As DataGridItem

Dim s As String

Dim s1 As String

Try

dg1.SelectedInd ex = e.Item.ItemInde x

dgi = dg1.SelectedIte m

s = dgi.Cells(1).Te xt

'Debug mode mouse-over reveals s = "&nbsp;"

s1 = Trim(Server.Htm lDecode(s))

Catch ex As Exception

Debug.WriteLine (ex.Source & " " & ex.Message)

Finally

End Try

End Sub

End Class

[Dan Bass]

John,

I suppose it could be that if you have a 2x2 table for example written as

<TABLE>
<TR>
<TD>
Cell 1:1
</TD>
<TD>
</TD>
</TR>
<TR>
<TD>
</TD>
<TD>
</TD>
</TR>
</TABLE>

you'll not see the individual emtpy cells in this table. But if you insert a
space (&nbsp;) into each cell, then you'll be able to see the borders around
each cell in the grid affect... To see my point, create a new HTML file
which contains one table where the empty cells really are empty, and where
the empty cells have a "&nbsp;" spacer.

The fact is that a datagrid gets rendered to the client as a table, so if
the empty cells didn't have these characters, the grid would look quite odd.

Thanks.

Dan.

"John A Grandy" <johnagrandy-at-yahoo-dot-com> wrote in message
news:e6******** ******@TK2MSFTN GP14.phx.gbl...

anyone know why this is ?

Imports System.Data

Imports System.Diagnost ics

Public Class WebForm12

Inherits System.Web.UI.P age

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnos tics.DebuggerSt epThrough()> Private Sub
InitializeCompo nent()

End Sub

Protected WithEvents dg1 As System.Web.UI.W ebControls.Data Grid

'NOTE: The following placeholder declaration is required by the Web Form
Designer.

'Do not delete or move it.

Private designerPlaceho lderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeCompo nent()

End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load

Dim dcc As DataColumnColle ction

Dim dr As DataRow

Dim drc As DataRowCollecti on

Dim dt As DataTable

Try

If Not Page.IsPostBack Then

dt = New DataTable

dcc = dt.Columns

dcc.Add("Col1", GetType(String) )

dcc.Add("Col2", GetType(String) )

drc = dt.Rows

dr = dt.NewRow

dr(0) = "abcd"

'dr(1) = ""

drc.Add(dr)

dr = dt.NewRow

dr(0) = "efgh"

'dr(1) = ""

drc.Add(dr)

dg1.DataSource = dt.DefaultView

dg1.DataBind()

End If

Catch ex As Exception

Debug.WriteLine (ex.Source & " " & ex.Message)

Finally

End Try

End Sub

Public Sub dg1_ItemCommand (ByVal sender As Object, ByVal e As
DataGridCommand EventArgs)

Dim dgi As DataGridItem

Dim s As String

Dim s1 As String

Try

dg1.SelectedInd ex = e.Item.ItemInde x

dgi = dg1.SelectedIte m

s = dgi.Cells(1).Te xt

'Debug mode mouse-over reveals s = "&nbsp;"

s1 = Trim(Server.Htm lDecode(s))

Catch ex As Exception

Debug.WriteLine (ex.Source & " " & ex.Message)

Finally

End Try

End Sub

End Class

[Eliyahu Goldin]

Some browsers don't handle blank cells well.

Eliyahu

"John A Grandy" <johnagrandy-at-yahoo-dot-com> wrote in message
news:e6******** ******@TK2MSFTN GP14.phx.gbl...

anyone know why this is ?