I copied the code from one of my other applications, it contains a datagrid x2 text boxes and x2 buttons and a resource file.
I am getting this error:
In relation to the tr
ds.ReadXml(tr)
I don't understand, everything works fine on the other form yet on this one it bugs out.
Original Code
I am getting this error:
Code:
'>' is an unexpected token. The expected token is '='. Line 4, position 14.ds.ReadXml(tr)
I don't understand, everything works fine on the other form yet on this one it bugs out.
Code:
Imports System.Xml
Imports System.Data
Public Class Form4
Private Property iChildFormNumber As Integer
Dim ds As New DataSet
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tr As New System.IO.StringReader(My.Resources.Errors)
ds.ReadXml(tr)
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Errorcode.TextChanged
ds.Tables(0).DefaultView.RowFilter = "[Error Code] like '%" & Errorcode.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Result_TextChanged(sender As Object, e As EventArgs) Handles Result.TextChanged
ds.Tables(0).DefaultView.RowFilter = "[Result] like '%" & Result.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Errorcode.Text = ""
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Result.Text = ""
End Sub
End ClassCode:
Imports System.Xml
Imports System.Data
Public Class Form1
'Added 8th May 2013
Private WithEvents pd As New Printing.PrintDocument
Private WithEvents ppd As New PrintPreviewDialog
'Added 8th May 2013 Above
Private Property iChildFormNumber As Integer
Dim ds As New DataSet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim tr As New System.IO.StringReader(My.Resources.PhoneData)
ds.ReadXml(tr)
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub btnMobileDeviceFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMobileDeviceFilter.Click
ds.Tables(0).DefaultView.RowFilter = "[Mobile] like '%" & tbMobileDevice.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub btnSimType_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimType.Click
ds.Tables(0).DefaultView.RowFilter = "[SIM] like '%" & tbSIMType.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub btnWebsiteLinkFilter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWebsiteLinkFilter.Click
ds.Tables(0).DefaultView.RowFilter = "[Specs] like '%" & tbWebsiteLink.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub tbMobileDevice_TextChanged(sender As Object, e As EventArgs) Handles tbMobileDevice.TextChanged
ds.Tables(0).DefaultView.RowFilter = "[Mobile] like '%" & tbMobileDevice.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub tbSIMType_TextChanged(sender As Object, e As EventArgs) Handles tbSIMType.TextChanged
ds.Tables(0).DefaultView.RowFilter = "[SIM] like '%" & tbSIMType.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub tbWebsiteLink_TextChanged(sender As Object, e As EventArgs) Handles tbWebsiteLink.TextChanged
ds.Tables(0).DefaultView.RowFilter = "[Specs] like '%" & tbWebsiteLink.Text & "%'"
DataGridView1.DataSource = ds.Tables(0)
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
tbMobileDevice.Text = ""
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
tbSIMType.Text = ""
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
tbWebsiteLink.Text = ""
End Sub
'Added 8th May 2013
Private Sub pd_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles pd.PrintPage
Dim startX As Integer = 50
Dim startY As Integer = 50
Dim sf As New StringFormat
sf.Alignment = StringAlignment.Near
sf.LineAlignment = StringAlignment.Center
Dim cells() As DataGridViewCell = DataGridView1.SelectedCells.Cast(Of DataGridViewCell).OrderBy(Function(c) c.OwningRow.Index).ThenBy(Function(c) c.OwningColumn.Index).ToArray
For x As Integer = 0 To cells.Count - 1
Dim cell As DataGridViewCell = cells(x)
e.Graphics.DrawRectangle(Pens.Black, New Rectangle(startX, startY, cell.Size.Width, cell.Size.Height))
e.Graphics.DrawString(cell.Value.ToString, DataGridView1.Font, Brushes.Black, New Rectangle(startX, startY, cell.Size.Width, cell.Size.Height), sf)
If x < cells.Count - 1 AndAlso cells(x + 1).OwningRow Is cells(x).OwningRow Then
startX += cell.Size.Width
End If
If x < cells.Count - 1 AndAlso cells(x + 1).OwningRow IsNot cells(x).OwningRow Then
startX = 50
startY += cell.Size.Height
End If
Next
End Sub
End Class