الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال متعلق ب Datagrid

بدأه SwitchBoard في 30 أبريل 2009 · 6 رد · 839 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

هذه اول مشاركة لي في المنتدى وحيث أن السؤال هو باب العلم فسأبدأ مشاركتي بسؤال وانا على ثقة من رحابة قلوبكم وسعة صدوركم

صممت فورم به داتا قرد يعرض بيانات جدول ولكن عندما اقوم بالدخول لسطر جديد من اجل إضافة سجل جديد تظهر عندي كلمة

null

كيف يمكن التخلص منها

تم تعديل هذه المشاركة بواسطة SwitchBoard في 30 أبريل 2009 في 17:21

#2

السلام عليكــم ورحمـة الله وبركاتــه ،،

جرب ان تغير الخاصية NullText للعمود .

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#3

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

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

DataGrid1.TableStyles(0).GridColumnStyles(0).NullText = " "

End Sub

#4

شكرا على الرد لقد استخدمت الكود التالي ولكنه لم يعمل

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

DataGrid1.TableStyles(0).GridColumnStyles(0).NullText = " "

End Sub
#5
		Me.DataGridView1.Columns(0).DefaultCellStyle.NullValue = "0"

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#6
SwitchBoard كتب:
شكرا على الرد لقد استخدمت الكود التالي ولكنه لم يعمل

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

DataGrid1.TableStyles(0).GridColumnStyles(0).NullText = " "

End Sub

جرب هذا الكود:

Public Class frmDataGridNull
	Inherits System.Windows.Forms.Form
	Dim grid As DataGrid

	Public Sub New()

		' This call is required by the Windows Form Designer.
		InitializeComponent()

		' Add any initialization after the InitializeComponent() call.

		grid = New DataGrid()
		grid.Dock = DockStyle.Fill
		Controls.Add(grid)
		Dim gridTbl As New DataGridTableStyle()
		gridTbl.MappingName = "Customers"
		grid.TableStyles.Add(gridTbl)
		Dim col As New DataGridTextBoxColumn()
		col.MappingName = "CustomerID"
		col.HeaderText = "CustomerID"
		col.NullText = ""
		gridTbl.GridColumnStyles.Add(col)
		col = New DataGridTextBoxColumn()
		col.MappingName = "Name"
		col.HeaderText = "Name"
		col.NullText = ""
		gridTbl.GridColumnStyles.Add(col)
		grid.DataSource = CreateDataTable()
	End Sub

	Private Function CreateDataTable() As DataTable
		Dim tbl As New DataTable()
		tbl.TableName = "Customers"
		tbl.Columns.Add("CustomerID", GetType(String))
		tbl.Columns.Add("Name", GetType(String))
		Return tbl
	End Function


End Class

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#7

بسم الله الرحمن الرحيم

شكرا للأخ ghost2010 إلا أنني استخدم vb.net2003

الشكر الخالص لك اخي حسن على هذا الكود الشامل وقد نفذت معظم الكود بشكل مباشر في بيئة vb.net

واصبح الكود بهذا الشكل وقد عمل معي مئة بالمئة

 
Imports System.Data.SqlClient
Public Class Form1
	Inherits System.Windows.Forms.Form

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		DataGrid1.TableStyles(0).MappingName = "orders"
		DataGrid1.TableStyles(0).GridColumnStyles(0).HeaderText = "رقم الطلبية"
		DataGrid1.TableStyles(0).GridColumnStyles(1).HeaderText = "وصف الطلبية"
		DataGrid1.TableStyles(0).GridColumnStyles(0).MappingName = "ordername"
		DataGrid1.TableStyles(0).GridColumnStyles(1).MappingName = "orderdesc"
		DataGrid1.TableStyles(0).GridColumnStyles(0).NullText = " "
		DataGrid1.TableStyles(0).GridColumnStyles(1).NullText = " "
	End Sub

	Private Sub loaddata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		SqlDataAdapter1.Fill(DataSet12)
	End Sub

	Private Sub editandinsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		' لإعتماد التغيرات والاضافات الجديدة
		SqlDataAdapter1.Update(DataSet12)
		' بعد إكمال التعديلات والاضافات على البيانات يمكن تنظيف الداتا قرد وتحميل البيانات من جديد
		DataSet12.Clear()
	End Sub

	Private Sub cleardatagrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		'لتنظيف داتا قرد
		DataSet12.Clear()
	End Sub

	Private Sub closeform_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		End
	End Sub

	Private Sub deleterow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		' لحذف صف من البيانات او سجل كامل
		Dim idRow As Integer
		idRow = DataGrid1.CurrentRowIndex
		DataSet12.Tables(0).Rows(idRow).Delete()
		SqlDataAdapter1.Update(DataSet12)
	End Sub

	Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
		'يمكن من خلال هذا الإجراء تحويل بيانات تحديد صف من الداتا قرد وعرضه على التكست بوكس
		Dim currrow As String
		currrow = DataGrid1.CurrentRowIndex
		TextBox2.Text = DataGrid1.Item(currrow, 0)
		TextBox3.Text = DataGrid1.Item(currrow, 1)
	End Sub
End Class

ملاحظة : عملية الاتصال المنفصل مع sql server 2000 تمت يدويا وليس عن طريق الكود

تم تعديل هذه المشاركة بواسطة SwitchBoard في 7 مايو 2009 في 10:36

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