عندما اقوم بفتح الفورم مره اخرى اجد ان هناك حقول اضيفت تلقائيا فى الداتا جريد

السلام عليكم

والله يا اخوانى انا عندى مشكله فى اظهار البيانات فى الداتا جريد

عندما اقوم بفتح الفورم الذى فيه الداتا جريد تظهر لى الحقول التى قمت بأختيارها

ولكن عندما اقوم بفتح الفورم مره اخرى اجد ان هناك حقول اضيفت تلقائيا فى الداتا جريد

مثلا انا عندى حقل

SNAME,SECTION,DATE,VALUE

عندما افتح الفورم الذى فيه الداتا جريد تظهر هذه الحقول

ولكن عندما اغلق الفورم وافتح فورم اخر و اغلقه ثم اقوم بفتح الفورم السابق

تظهر لى حقول جدول اخر

مثلا

SNAME,SECTION,DATE,VALUE,PAID,TOTAL

ارجو المساعده وهذا هو كود تحميل الفورم الذى به الداتا جريد

If cn.State = ConnectionState.Closed Then

cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=CLINIC_DB.mdb"

cn.Open()

End If

'===========================================================

'تهيئه الكوماند لاستقبال جمل الاستعلام

cmd.Connection = cn

cmd.CommandType = CommandType.Text

'===========================================================

'جعل المتغير يأرقام السجلات يساوى صفر لاننا لا نقف على اى سجل

onh = 0

'=========================================================

'لتفريغ الداتا بيز

Dim x As Integer

For x = 0 To dS.Tables.Count - 1

If dS.Tables(x).TableName = "PUBLIC_COST" Then

dS.Tables(x).Clear()

End If

'===========================================

cmd.CommandText = "SELECT sname,VALUE_OUT,DATE_OUT FROM PUBLIC_COST "

AD.SelectCommand = cmd

AD.Fill(dS, "PUBLIC_COST")

DBGRID.DataSource = dS.Tables("PUBLIC_COST")

'لتغيير اسماء الحقول

DBGRID.Columns(0).Name = "sname"

DBGRID.Columns(0).HeaderText = " NAME"

DBGRID.Columns(1).Name = "VALUE_OUT"

DBGRID.Columns(1).HeaderText = "VALUE"

DBGRID.Columns(2).Name = "DATE_OUT"

DBGRID.Columns(2).HeaderText = "DATE"

ارجو الرد يا اخوانى

جزاكم الله خيرا

اخوكم فى الله

كريم محمد بدر

عندما اقوم بفتح الفورم مره اخرى اجد ان هناك حقول اضيفت تلقائيا فى الداتا جريد

مواضيع مشابهة

عدد الزوار حالياً