كيف أقوم بإستبدال قيمة فى الداتا جريد

كما تعلم أن العامود الرقمي النوع لا يمكن أن يحتوي على قيمة نصية!!!

الطريقة كالتالي

الخطوة الاولى : نقوم بإخفاء العامود الرقمي الذي سنأخذ منه القيمة 1 و 0 بهذا الشكل.

Me.Ds1.LOOKUPSex.Sex_IDColumn.ColumnMapping = MappingType.Hidden

الخطوة الثانية : نقوم بتعريف عامود أخر, نصي النوع, لنكتب فيه الكلمتان Active or unactive وفقاً للقيمة في العامود المخفي.

'إنشاء عنصر من نوع عامود
		Dim col As New DataColumn

		'إسناد قيم لخصائص العامود
		With col
			.DataType = Type.GetType("System.String")
			.Caption = "Status"
			.ColumnName = "col"
		End With

الخطوة الثالثة : نقوم بضم هذا العامود في الجدول الذي يقبع فيه الجدول المخبئ. بهذا الشكل.

 'DataGrid ضم العامود في الجدول المعروض في الـ
		Me.Ds1.LOOKUPSex.Columns.Add(col)

الخطوة الرابعة: نعمل حلقة Loop على قيم العامود المخفي و عطفاً عليها نكتب القيمة المناسبة في العامود Col بهذا الشكل.

 For Each row As DataRow In Me.Ds1.LOOKUPSex.Rows
			If row("Sex_ID") = 0 Then row("col") = "unactive"
			If row("Sex_ID") = 1 Then row("col") = "Active"
		Next

إنتهاء و الكود ككل سيكون بهذا الشكل.

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

		'Sex_ID إخفاء العامود السابق وهو 
		Me.Ds1.LOOKUPSex.Sex_IDColumn.ColumnMapping = MappingType.Hidden

		'DataSet تعبئة الـ
		Me.da.Fill(Ds1)

		'إنشاء عنصر من نوع عامود
		Dim col As New DataColumn

		'إسناد قيم لخصائص العامود
		With col
			.DataType = Type.GetType("System.String")
			.Caption = "Status"
			.ColumnName = "col"
		End With

		'DataGrid ضم العامود في الجدول المعروض في الـ
		Me.Ds1.LOOKUPSex.Columns.Add(col)

		For Each row As DataRow In Me.Ds1.LOOKUPSex.Rows
			If row("status") = 0 Then row("col") = "unactive"
			If row("status") = 1 Then row("col") = "Active"
		Next
	End Sub

بالتوفيق إن شاء الله.

لا أعرف ماذا أقول لسيادتكم ، ففى هذا المنتدى دائما ما أجد أقواما سخرهم الله لخدمة البشر فجزاك الله خيرا يا أخى الكريم خاصة

ولإخوانى بالمنتدى عامة، ورفع الله قدرك ونفعك بعلمك

هذا واجبٌ تُجاه أُمتي الكريمة.