Using DataGrid on Smart Device Application

  • Thread starter Thread starter Enver
  • Start date Start date
E

Enver

Hi!
I am trying to use a datagrid control on a smart device application. I
managed to see my data on it but i have to arrange the width of columns.
How can i do that?
I ve tried to use tablestyles but couldnt manage. I get System Null
Reference Exception...
 
If you would, post the code- If you're getting a null reference exception
something else is the problem and DataGridTableStyles are definitely
supported.
 
I can see the Grid with this code now but still can not use the tablestyle.
All i want is to arrange the colmun width's....

Private Sub SoruForm_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

Dim mydataset As New DataSet

Dim mytable As New DataTable

Dim column1 As New DataColumn("SORU")

mytable.Columns.Add(column1)

Dim column2 As New DataColumn("C")

mytable.Columns.Add(column2)

Dim ts As New DataGridTableStyle

ts.MappingName = "QUESTIONS"

Dim TextCol1 As New DataGridTextBoxColumn

TextCol1.MappingName = "SORU"

TextCol1.HeaderText = "Soru Metni"

TextCol1.Width = 1500

ts.GridColumnStyles.Add(TextCol1)

Dim TextCol2 As New DataGridTextBoxColumn

TextCol2.MappingName = "C"

TextCol2.HeaderText = "Cevap?"

TextCol2.Width = 250

ts.GridColumnStyles.Add(TextCol2)

Sorubox.TableStyles.Clear()

Sorubox.TableStyles.Add(ts)

Dim myrow As DataRow

Dim soruid As String

connection = New SqlCeConnection(connstr)

connection.Open()

Dim command As SqlCeCommand = connection.CreateCommand

command.CommandText = "SELECT SORU_TEXT,SORU_ID FROM QUESTIONS WHERE
FORM_ID='" + Degiskenler.Form_id + "'"

Dim reader As SqlCeDataReader = command.ExecuteReader

While reader.Read

If Not reader.IsDBNull(0) Then

myrow = mytable.NewRow

myrow(0) = reader.GetString(0)

End If

If Not reader.IsDBNull(1) Then

soruid = reader.GetString(1)

End If

Dim command2 As SqlCeCommand = connection.CreateCommand

command2.CommandText = "SELECT CEVAP_OK FROM ANSWERS_POCKET WHERE SORU_ID='"
+ soruid + "'"

Dim reader2 As SqlCeDataReader = command2.ExecuteReader

While reader2.Read

If Not reader2.IsDBNull(0) Then

If reader2.GetString(0) = "C" Then

myrow(1) = "C"

Else

myrow(1) = "?"

End If

End If

End While

mytable.Rows.Add(myrow)

End While

mydataset.Tables.Add(mytable)

Sorubox.DataSource = mydataset.Tables(0)

Sorubox.ColumnHeadersVisible = True

Sorubox.RowHeadersVisible = False

Cursor.Current = Cursors.Default

End Sub
 
Back
Top