مشروع ترزى+ داتا

مرحباً أخي الكريم .

أعرف أن جواب متأخر بعض الشيء, لكني عضو جديد في هذا المنتدى :P .

Public Class Form1

Private _DataTable As New DataTable("Tabl1")

Private _DataFileName As String = Replace( Application.StartupPath.ToString() &"\Data.xml", "\\", "\" )

Private Sub Form1_Load( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles MyBase.Load

If IO.File.Exists( _DataFileName ) Then

_DataTable.ReadXML( _DataFileName )

Else

_DataTable.Columns.Add( "CTextBox1", "In this Column the TextBox1.Text Goes")

_DataTable.Columns.Add( "CTextBox2", "In this Column theTextBox2.Text Goes")

_DataTable.Columns.Add( "CTextBox3", "In this Column theTextBox3.Text Goes")

End If

DataGridView1.DataSource = _DataTable

End Sub

Private Sub Form1_FormClosing( Byval Sender As System.Object, Byval E As System.Windows.Forms.FormClosingEventArgs ) Handles MyBase.FormClosing

_DataTable.WriteXML( _DataFileName )

End Sub

Private Sub Button1_Click( Byval Sender As System.Object, Byval E As System.EventArgs ) Handles Button1.Click

Dim CInput As Boolean = ( TextBox1.Text = String.Empty ) And ( TextBox2.Text = String.Empty ) And ( TextBox3.Text = String.Empty )

If CInput Then

Msgbox(" Please fill the whole text boxes . ")

Else

Dim NRow() As String = { TextBox1.Text, TextBox2.Text, TextBox3.Text }

_DataTable.Rows.Add( NRow )

End If

End Sub

End Class

تحياتي BasharVS .