چگونه DataTableایجاد کنم؟

[ehsan_ei]

سلام دوستان
خواهشا کمکم کنین! خیلی ضروریه:ناراحت:
کسی میدونه datatable چیه وچطوری باید باهاش کار کرد؟
میخوام یه datatableبسازم که یه رکورد شامل اسم و فامیل و تلفن و غیره رو بگیره وتو حافظه فیزیکی ذخیره کنه و بعد بتونیم بر اساس نام سرچ کنیم.

[ehsan_ei]

یعنی هیچکس نیست جواب منو بده:متعجب:
خواهش میکنم!! خیلی حیاتیه:گریه:

[PetekDincos]

با سلام





' Create new DataTable instance.

Dim table As New DataTable
' Create four typed columns in the DataTable.
table.Columns.Add("Dosage", GetType(Integer))
table.Columns.Add("Drug", GetType(String))
table.Columns.Add("Patient", GetType(String))
table.Columns.Add("Date", GetType(DateTime))
' Add five rows with those columns filled in the DataTable.
table.Rows.Add(25, "Indocin", "David", DateTime.Now)
table.Rows.Add(50, "Enebrel", "Sam", DateTime.Now)
table.Rows.Add(10, "Hydralazine", "Christoff", DateTime.Now)
table.Rows.Add(21, "Combivent", "Janet", DateTime.Now)
table.Rows.Add(100, "Dilantin", "Melanie", DateTime.Now)

[ehsan_ei]

:petekdincos
بابت راهنماییتون خیلی ممنون. من تازه شروع کردم به کار باvb.
این کد رو نوشتم برای اینکه چندتا فیلد رو از ورودیtextboxبخونه،اما این خطای زمان اجرا رو واسه textbox1 میده
:argument exception was unhandled


Dim dt As New DataTable
dt.Columns.Add("PersonCode", GetType(Integer))
dt.Columns.Add("PersonName", GetType(String))
dt.Columns.Add("PersonFamily", GetType(String))
dt.Columns.Add("PersonPhonNumber", GetType(String))
dt.Columns.Add("PersonAdrress", GetType(String))
Dim dr As DataRow
dr = dt.NewRow()
dr.Item("PersonCode") = TextBox1
dr.Item("PersonName") = TextBox2
dr.Item("PersonFamily") = TextBox3
dr.Item("PersonPhonNumber") = TextBox4
dr.Item("PersonAdrress") = TextBox5
dt.Rows.Add(dr)

لطفا طریقه درست نوشتنش رو بهم بگین و بگین چیکار کنم!!!:گریه:

[PetekDincos]

یا سلام
شما از کنترل TextBox برای گرفتن ورودی از کاربر استفاده کردید اما مشخص نکردید کدام خاصیت این کنترل را ستونهای DataRow تون قرار بدید شما بایستی از خاصیت تکست تکس باکستون استفاده کنید به این صورت
dr.Item("PersonCode") = TextBox1.Text
dr.Item("PersonName") = TextBox2.Text
dr.Item("PersonFamily") = TextBox3.Text
dr.Item("PersonPhonNumber") = TextBox4.Text
dr.Item("PersonAdrress") = TextBox5.Text

با تشکر

[ehsan_ei]

بازم ممنون:خجالت:
حالا دوتا سوال دارم:
1.میخوام بر اساس نام سرچ کنم و اگه اون اسم مورد نظر روپیدا کرد اندیسiرو برگردونه.این کد رو براش نوشتم اما درست کار نمیکنه! میشه بگین اشکال کارم کجاست؟:ناراحت:


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To dt.Rows.Count - 1
dr = dt.Rows(i)
If dr.Item("PersonName") = TextBox6.Text Then
Label1.Text = i
End If
Next
End Sub

2.میخوام کل رکورد i که در مرحله قبل پیدا کرده رو به کاربر نشون بده.باید چیکار کنم؟از datagridview استفاده کنم؟چطوری؟

[ehsan_ei]

لطفا یکی جواب منو بده!!:گریه:
باید قبل تعطیلات انجامش بدم

[ehsan_ei]

یعنی هیچکی نیست جواب مارو بده:متعجب:
لطفا یکی بگه این کدی که من نوشتم درسته یا نه؟؟؟ میخوام داخل فرم2 اطلاعات افراد رو بگیره و داخل حافظه فیزیکی ذخیره کنه.(از هیچ دیتا بیسی استفاده نمیکنم)


Public Class Form2
Dim dt As New DataTable
Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt.Columns.Add("PersonCode", GetType(Integer))
dt.Columns.Add("PersonName", GetType(String))
dt.Columns.Add("PersonFamily", GetType(String))
dt.Columns.Add("PersonPhonNumber", GetType(String))
dt.Columns.Add("PersonAdrress", GetType(String))
dr = dt.NewRow()
dr.Item("PersonCode") = TextBox1.Text
dr.Item("PersonName") = TextBox2.Text
dr.Item("PersonFamily") = TextBox3.Text
dr.Item("PersonPhonNumber") = TextBox4.Text
dr.Item("PersonAdrress") = TextBox5.Text
dt.Rows.Add(dr)
MessageBox.Show("ذخیره شد")
End Sub
End Class

بعدش میخوام اسم یک فرد را سرچ کنم ورکورد مربوط به آن را در datagridview نمایش بدم،میشه بگید چطوری باید این کار رو بکنم؟؟چه کدی باید براش بنویسم؟؟
خواهشایکی جواب بده :ناراحت:آخه من تازه کارم. و کارم خیلی گیره