عضو جديد: من فضلكم كيف يمكن إخفاء عمود كامل في DataGrid بواسطة VB 2003

اخي يمكنك فعل ذلك من خلال التحكم في خصائص الـ DataGrid

وذلك من خلال الكود التالي :

DG.Columns(0).Visible = False

حيث ان الـ .... هي ما قمت بتسميته للأداه .

والـ 0 هو رقم الـ Index الخاص بالعامود المراد اخفاءه

بالتوفيق ..........

A7med_prof

أخي هدا الكود خاص ب vb 2005

وأنا أريد vb 2003

و شكرا جزيلا

DG.Columns[0].Visible=false;

الكود لا يعمل وأقول مرة أخرى vb 2003 و ليس vb 2005

إليكم رابط الصورة

http://www.uploadimages.com/manage/ODM5Ni44NjI3

أرجو منك وضع الكود المستخدم ..

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

مرحباً بكم في موقع اسطوانة المبرمج CoderCD

يعتبر هذا الموقع هو الأول في هذا المجال وسط المواقع العربية ، فالموقع يقوم بعرض الكود المصدري ( Source Code ) مجموعة كبيرة من البرامج التجارية التي تم تصميمها على مدار أربع سنوات متتالية لشركات ومؤسسات ومكاتب وأفراد وتتنوع مجالات هذه البرامج من ( قواعد بيانات - مبيعات ومخازن - برامج إدارية صادر ووارد وأرشيف - أنظمة صوتية ورد آلي وتعامل مع الهاتف - شئون موظفين وحضور وانصراف ورواتب ) والكثير من الأنظمة والمجلات المختلفة التي تغطيها هذه المجموعة من البرامج التجارية ، وذلك مقابل سعر رمزي يناسب كافة المستويات ، حيث يعرض الموقع ( 35 برنامج ) على أسطوانة واحدة ، تكون هذه المجموعة هي بمثابة المرجع الأول للمبرمجين ، فهي تناسب المبتدئين ممن يرغبون في شق طريقهم في عالم البرمجة وذلك اعتمادا على وحدات متكاملة من المشروعات التجارية التي تعطيهم القدرة على فهم تحليل المنظومات البرمجة ويحتاجها المحترفين الذين يرغبون في تطوير أدائهم ومستواهم البر مجي ، كما أنها مصدري ثري كأفكار مشاريع تخرج لطلاب المعاهد والكليات المتخصصة في مجال الحاسب الآلي

- ولغات البرمجة التي تم إنشاء هذه البرامج هي

• VB.NET 2005

VB.NET 2003

• VB6

- قواعد البيانات المعتمد عليها هذه البرامج هي

• Microsoft SQL Server

• Microsoft Access

http://www.segaal.com/codercd

Public Class Affichage_des_indicateurs
	Inherits System.Windows.Forms.Form
	' Const a11 As Integer = a
#Region " Code généré par le Concepteur Windows Form "

	Public Sub New()
		MyBase.New()

		'Cet appel est requis par le Concepteur Windows Form.
		InitializeComponent()

		'Ajoutez une initialisation quelconque après l'appel InitializeComponent()

	End Sub

	'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
	Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
		If disposing Then
			If Not (components Is Nothing) Then
				components.Dispose()
			End If
		End If
		MyBase.Dispose(disposing)
	End Sub

	'Requis par le Concepteur Windows Form
	Private components As System.ComponentModel.IContainer

	'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
	'Elle peut être modifiée en utilisant le Concepteur Windows Form.  
	'Ne la modifiez pas en utilisant l'éditeur de code.
	Friend WithEvents Label1 As System.Windows.Forms.Label
	Friend WithEvents Button3 As System.Windows.Forms.Button
	Friend WithEvents Button2 As System.Windows.Forms.Button
	Friend WithEvents Button1 As System.Windows.Forms.Button
	Friend WithEvents Button5 As System.Windows.Forms.Button
	Friend WithEvents Button4 As System.Windows.Forms.Button
	Friend WithEvents DataView1 As System.Data.DataView
	Friend WithEvents Label2 As System.Windows.Forms.Label
	Friend WithEvents Label3 As System.Windows.Forms.Label
	Friend WithEvents Label4 As System.Windows.Forms.Label
	Friend WithEvents Label5 As System.Windows.Forms.Label
	Friend WithEvents Label6 As System.Windows.Forms.Label
	Friend WithEvents Label7 As System.Windows.Forms.Label
	Friend WithEvents Label8 As System.Windows.Forms.Label
	Friend WithEvents TextNbr As System.Windows.Forms.TextBox
	Friend WithEvents Textfcalc As System.Windows.Forms.TextBox
	Friend WithEvents Textseuil As System.Windows.Forms.TextBox
	Friend WithEvents Textnom As System.Windows.Forms.TextBox
	Friend WithEvents Texttyp As System.Windows.Forms.TextBox
	Friend WithEvents Textsec As System.Windows.Forms.TextBox
	Friend WithEvents DataGrid10 As System.Windows.Forms.DataGrid
	<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
		Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Affichage_des_indicateurs))
		Me.Label1 = New System.Windows.Forms.Label
		Me.Button3 = New System.Windows.Forms.Button
		Me.Button2 = New System.Windows.Forms.Button
		Me.Button1 = New System.Windows.Forms.Button
		Me.Button5 = New System.Windows.Forms.Button
		Me.Button4 = New System.Windows.Forms.Button
		Me.DataGrid10 = New System.Windows.Forms.DataGrid
		Me.DataView1 = New System.Data.DataView
		Me.Label2 = New System.Windows.Forms.Label
		Me.TextNbr = New System.Windows.Forms.TextBox
		Me.Label3 = New System.Windows.Forms.Label
		Me.Textfcalc = New System.Windows.Forms.TextBox
		Me.Textseuil = New System.Windows.Forms.TextBox
		Me.Textnom = New System.Windows.Forms.TextBox
		Me.Texttyp = New System.Windows.Forms.TextBox
		Me.Textsec = New System.Windows.Forms.TextBox
		Me.Label4 = New System.Windows.Forms.Label
		Me.Label5 = New System.Windows.Forms.Label
		Me.Label6 = New System.Windows.Forms.Label
		Me.Label7 = New System.Windows.Forms.Label
		Me.Label8 = New System.Windows.Forms.Label
		CType(Me.DataGrid10, System.ComponentModel.ISupportInitialize).BeginInit()
		CType(Me.DataView1, System.ComponentModel.ISupportInitialize).BeginInit()
		Me.SuspendLayout()
		'
		'Label1
		'
		Me.Label1.BackColor = System.Drawing.Color.Transparent
		Me.Label1.Font = New System.Drawing.Font("Palatino Linotype", 12.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Label1.ForeColor = System.Drawing.Color.White
		Me.Label1.Image = CType(resources.GetObject("Label1.Image"), System.Drawing.Image)
		Me.Label1.Location = New System.Drawing.Point(424, 48)
		Me.Label1.Name = "Label1"
		Me.Label1.Size = New System.Drawing.Size(368, 32)
		Me.Label1.TabIndex = 9
		Me.Label1.Text = "Table des indicateurs"
		Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
		'
		'Button3
		'
		Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
		Me.Button3.Font = New System.Drawing.Font("Palatino Linotype", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Button3.ForeColor = System.Drawing.Color.White
		Me.Button3.Image = CType(resources.GetObject("Button3.Image"), System.Drawing.Image)
		Me.Button3.Location = New System.Drawing.Point(40, 152)
		Me.Button3.Name = "Button3"
		Me.Button3.Size = New System.Drawing.Size(96, 32)
		Me.Button3.TabIndex = 19
		Me.Button3.Text = "Modifier"
		'
		'Button2
		'
		Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
		Me.Button2.Font = New System.Drawing.Font("Palatino Linotype", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Button2.ForeColor = System.Drawing.Color.White
		Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
		Me.Button2.Location = New System.Drawing.Point(40, 200)
		Me.Button2.Name = "Button2"
		Me.Button2.Size = New System.Drawing.Size(96, 32)
		Me.Button2.TabIndex = 18
		Me.Button2.Text = "Supprimer"
		'
		'Button1
		'
		Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
		Me.Button1.Font = New System.Drawing.Font("Palatino Linotype", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Button1.ForeColor = System.Drawing.Color.White
		Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
		Me.Button1.Location = New System.Drawing.Point(40, 104)
		Me.Button1.Name = "Button1"
		Me.Button1.Size = New System.Drawing.Size(96, 32)
		Me.Button1.TabIndex = 17
		Me.Button1.Text = "Ajouter"
		'
		'Button5
		'
		Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
		Me.Button5.Font = New System.Drawing.Font("Palatino Linotype", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Button5.ForeColor = System.Drawing.Color.White
		Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
		Me.Button5.Location = New System.Drawing.Point(40, 288)
		Me.Button5.Name = "Button5"
		Me.Button5.Size = New System.Drawing.Size(96, 32)
		Me.Button5.TabIndex = 16
		Me.Button5.Text = "Quitter"
		'
		'Button4
		'
		Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
		Me.Button4.Font = New System.Drawing.Font("Palatino Linotype", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
		Me.Button4.ForeColor = System.Drawing.Color.White
		Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
		Me.Button4.Location = New System.Drawing.Point(40, 248)
		Me.Button4.Name = "Button4"
		Me.Button4.Size = New System.Drawing.Size(96, 32)
		Me.Button4.TabIndex = 15
		Me.Button4.Text = "Annuler"
		'
		'DataGrid10
		'
		Me.DataGrid10.BackgroundColor = System.Drawing.Color.Transparent
		Me.DataGrid10.DataMember = ""
		Me.DataGrid10.HeaderForeColor = System.Drawing.SystemColors.ControlText
		Me.DataGrid10.Location = New System.Drawing.Point(232, 104)
		Me.DataGrid10.Name = "DataGrid10"
		Me.DataGrid10.PreferredColumnWidth = 70
		Me.DataGrid10.PreferredRowHeight = 20
		Me.DataGrid10.RowHeaderWidth = 10
		Me.DataGrid10.Size = New System.Drawing.Size(776, 592)
		Me.DataGrid10.TabIndex = 22
		'
		'Label2
		'
		Me.Label2.BackColor = System.Drawing.Color.Transparent
		Me.Label2.Location = New System.Drawing.Point(216, 96)
		Me.Label2.Name = "Label2"
		Me.Label2.Size = New System.Drawing.Size(104, 632)
		Me.Label2.TabIndex = 23
		'
		'TextNbr
		'
		Me.TextNbr.Location = New System.Drawing.Point(152, 360)
		Me.TextNbr.Name = "TextNbr"
		Me.TextNbr.Size = New System.Drawing.Size(112, 20)
		Me.TextNbr.TabIndex = 24
		Me.TextNbr.Text = ""
		'
		'Label3
		'
		Me.Label3.BackColor = System.Drawing.Color.Transparent
		Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label3.ForeColor = System.Drawing.Color.White
		Me.Label3.Location = New System.Drawing.Point(8, 360)
		Me.Label3.Name = "Label3"
		Me.Label3.Size = New System.Drawing.Size(96, 24)
		Me.Label3.TabIndex = 25
		Me.Label3.Text = "Nbr		   "
		'
		'Textfcalc
		'
		Me.Textfcalc.Location = New System.Drawing.Point(152, 552)
		Me.Textfcalc.Name = "Textfcalc"
		Me.Textfcalc.Size = New System.Drawing.Size(112, 20)
		Me.Textfcalc.TabIndex = 28
		Me.Textfcalc.Text = ""
		'
		'Textseuil
		'
		Me.Textseuil.Location = New System.Drawing.Point(152, 520)
		Me.Textseuil.Name = "Textseuil"
		Me.Textseuil.Size = New System.Drawing.Size(112, 20)
		Me.Textseuil.TabIndex = 30
		Me.Textseuil.Text = ""
		'
		'Textnom
		'
		Me.Textnom.Location = New System.Drawing.Point(152, 480)
		Me.Textnom.Name = "Textnom"
		Me.Textnom.Size = New System.Drawing.Size(112, 20)
		Me.Textnom.TabIndex = 31
		Me.Textnom.Text = ""
		'
		'Texttyp
		'
		Me.Texttyp.Location = New System.Drawing.Point(152, 432)
		Me.Texttyp.Name = "Texttyp"
		Me.Texttyp.Size = New System.Drawing.Size(112, 20)
		Me.Texttyp.TabIndex = 32
		Me.Texttyp.Text = ""
		'
		'Textsec
		'
		Me.Textsec.Location = New System.Drawing.Point(152, 400)
		Me.Textsec.Name = "Textsec"
		Me.Textsec.Size = New System.Drawing.Size(112, 20)
		Me.Textsec.TabIndex = 33
		Me.Textsec.Text = ""
		'
		'Label4
		'
		Me.Label4.BackColor = System.Drawing.Color.Transparent
		Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label4.ForeColor = System.Drawing.Color.White
		Me.Label4.Location = New System.Drawing.Point(8, 400)
		Me.Label4.Name = "Label4"
		Me.Label4.Size = New System.Drawing.Size(96, 24)
		Me.Label4.TabIndex = 34
		Me.Label4.Text = "Secteur	 "
		'
		'Label5
		'
		Me.Label5.BackColor = System.Drawing.Color.Transparent
		Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label5.ForeColor = System.Drawing.Color.White
		Me.Label5.Location = New System.Drawing.Point(8, 440)
		Me.Label5.Name = "Label5"
		Me.Label5.Size = New System.Drawing.Size(96, 24)
		Me.Label5.TabIndex = 35
		Me.Label5.Text = "Type	   "
		'
		'Label6
		'
		Me.Label6.BackColor = System.Drawing.Color.Transparent
		Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label6.ForeColor = System.Drawing.Color.White
		Me.Label6.Location = New System.Drawing.Point(8, 480)
		Me.Label6.Name = "Label6"
		Me.Label6.Size = New System.Drawing.Size(128, 24)
		Me.Label6.TabIndex = 36
		Me.Label6.Text = "Nom de l'indicateur	"
		'
		'Label7
		'
		Me.Label7.BackColor = System.Drawing.Color.Transparent
		Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label7.ForeColor = System.Drawing.Color.White
		Me.Label7.Location = New System.Drawing.Point(8, 520)
		Me.Label7.Name = "Label7"
		Me.Label7.Size = New System.Drawing.Size(96, 24)
		Me.Label7.TabIndex = 37
		Me.Label7.Text = "Seuil	 "
		'
		'Label8
		'
		Me.Label8.BackColor = System.Drawing.Color.Transparent
		Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(177, Byte))
		Me.Label8.ForeColor = System.Drawing.Color.White
		Me.Label8.Location = New System.Drawing.Point(8, 552)
		Me.Label8.Name = "Label8"
		Me.Label8.Size = New System.Drawing.Size(120, 24)
		Me.Label8.TabIndex = 38
		Me.Label8.Text = "Formule de calcul		"
		'
		'Affichage_des_indicateurs
		'
		Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
		Me.AutoScroll = True
		Me.BackColor = System.Drawing.SystemColors.Control
		Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
		Me.ClientSize = New System.Drawing.Size(960, 667)
		Me.Controls.Add(Me.Label8)
		Me.Controls.Add(Me.Label7)
		Me.Controls.Add(Me.Label6)
		Me.Controls.Add(Me.Label5)
		Me.Controls.Add(Me.Label4)
		Me.Controls.Add(Me.Textsec)
		Me.Controls.Add(Me.Texttyp)
		Me.Controls.Add(Me.Textnom)
		Me.Controls.Add(Me.Textseuil)
		Me.Controls.Add(Me.Textfcalc)
		Me.Controls.Add(Me.TextNbr)
		Me.Controls.Add(Me.Label3)
		Me.Controls.Add(Me.Label2)
		Me.Controls.Add(Me.DataGrid10)
		Me.Controls.Add(Me.Button3)
		Me.Controls.Add(Me.Button2)
		Me.Controls.Add(Me.Button1)
		Me.Controls.Add(Me.Button5)
		Me.Controls.Add(Me.Button4)
		Me.Controls.Add(Me.Label1)
		Me.Name = "Affichage_des_indicateurs"
		Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
		Me.Text = "Affichage_des_indicateurs"
		Me.TopMost = True
		Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
		CType(Me.DataGrid10, System.ComponentModel.ISupportInitialize).EndInit()
		CType(Me.DataView1, System.ComponentModel.ISupportInitialize).EndInit()
		Me.ResumeLayout(False)

	End Sub

#End Region
	Dim dat As Date = DateValue(Now).ToString
	Dim ds As New DataSet
	Dim ds1 As New DataSet
	Dim ds2 As New DataSet
	Dim ds3 As New DataSet
	Dim dt As DataTable
	Dim dr As New DataColumn

	Dim connString As String = "provider=microsoft.jet.oledb.4.0;data source=" + Directory.GetParent(Application.ExecutablePath).ToString + "\indicpro.mdb"
	Dim msAccessCn As New OleDbConnection(connString)

	Dim da As New OleDbDataAdapter("SELECT * FROM [Table des indicateur]", msAccessCn)
	Dim da1 As New OleDbDataAdapter("SELECT * FROM [Table des données d entreés]", msAccessCn)
	Dim da2 As New OleDbDataAdapter("SELECT * FROM [Table des données de sorties]", msAccessCn)
	Dim da3 As New OleDbDataAdapter("SELECT * FROM [Table ponderation]", msAccessCn)
	Const z As Integer = 399

	Dim dc As New DataColumn
	Private Sub Affichage_des_indicateurs_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load




		'*************************************Table des données d entreés************************
		da1.Fill(ds1, "Table des données d entreés")
		Dim a11d_1 As Double = ds1.Tables("Table des données d entreés").Rows(9).Item("Valeur")
		Dim a11d_2 As Double = ds1.Tables("Table des données d entreés").Rows(11).Item("Valeur")
		Dim a11d_3 As Double = ds1.Tables("Table des données d entreés").Rows(8).Item("Valeur")
		Dim a11d_4 As Double = ds1.Tables("Table des données d entreés").Rows(10).Item("Valeur")
		'**************************************Table des données de sortie***********************
		Try


			da2.Fill(ds2, "Table des données de sorties")
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
		Dim a11s_1 As Double = ds2.Tables("Table des données de sorties").Rows(15).Item("Valeur calculé")
		Dim a11s_2 As Double = ds2.Tables("Table des données de sorties").Rows(17).Item("Valeur calculé")
		Dim a11s_3 As Double = ds2.Tables("Table des données de sorties").Rows(19).Item("Valeur calculé")
		'**************************************Table pondération*********************************
		da3.Fill(ds3, "Table ponderation")
		Dim a11p_1 As Double = ds3.Tables("Table ponderation").Rows(7).Item("VALEUR")
		Dim a11p_2 As Double = ds3.Tables("Table ponderation").Rows(8).Item("VALEUR")
		Dim a11p_3 As Double = ds3.Tables("Table ponderation").Rows(9).Item("VALEUR")
		Dim a11 As String = (a11d_1 + a11d_2) / (a11d_3 + a11d_4)
		Dim a11_a As String = (a11d_1 / a11d_2) / (a11d_3 / a11d_4)
		Dim a11_b As String = (a11s_1 * a11p_1) + (a11s_2 * a11p_2) + (a11s_3 * a11p_3)

		Dim dr As DataRow

		Dim i As Integer = 0
		Dim a As Integer
		'Dim a As Integer = ds2.Tables("Table des données de sorties").Rows(0).Item("type")
		Dim b As String = ds2.Tables("Table des données de sorties").Rows(0).Item("Num")
		For a = 0 To 399
			Dim v As String = ds2.Tables("Table des données de sorties").Rows(i + 1).Item("Valeur") / ds1.Tables("Table des données d entreés").Rows(i).Item("Valeur")
			MsgBox(v)

			Dim j As Integer = 0
			With ds.Tables("Table des indicateur")
				for z=0 to fin ds.Tables("Table des indicateur").Rows().Item("Valeu") Is "B34"
					.Rows(0)("Valeur") = v
					.Rows(0)("Seuil") = "ddddd"
					'.Rows(0)("Date") = dat
					.Rows(0)("Cumulatif de l'année") = 125
					.Rows(0)("Cumul Total") = 6388
					j = j + 1
				Loop
			End With

			i = i + 1
		Next

		da.Fill(ds, "Table des indicateur")

		'Dim dat As Date = DateValue(Now)

		'Dim j As Integer = 0
		'With ds.Tables("Table des indicateur")
		'	'  Do While ds1.Tables("Table des indicateur").Rows().Item("Num") Is "399"
		'	.Rows(0)("Valeur") = a11
		'	.Rows(0)("Seuil") = "ddddd"
		'	.Rows(0)("Date") = dat
		'	.Rows(0)("Cumulatif de l'année") = 125
		'	.Rows(0)("Cumul Total") = 6388
		'	' Loop
		'End With



		With ds.Tables("Table des indicateur")
			.Rows(1)("Valeur") = a11_a
			.Rows(1)("Seuil") = "zs"
			.Rows(1)("Date") = dat
			.Rows(1)("Cumulatif de l'année") = 58624
			.Rows(1)("Cumul Total") = 4583
		End With

		With ds.Tables("Table des indicateur")
			.Rows(2)("Valeur") = a11_b
			.Rows(2)("Seuil") = "2333333"
			.Rows(2)("Date") = dat
			.Rows(2)("Cumulatif de l'année") = 454699
			.Rows(2)("Cumul Total") = 555555
		End With
		With ds.Tables("Table des indicateur")
			.Rows(3)("Valeur") = a11_b / a11
			.Rows(3)("Seuil") = "546899"
			'.Rows(3)("Date") = dat
			.Rows(3)("Cumulatif de l'année") = 1000000
			.Rows(3)("Cumul Total") = 10566
		End With

		With ds.Tables("Table des indicateur")


			' .Rows(4)("Valeur") = 
			.Rows(4)("Seuil") = "ddddd"
			.Rows(4)("Date") = dat
			.Rows(4)("Cumulatif de l'année") = 125
			.Rows(4)("Cumul Total") = 6388
		End With

		Dim cmd As New OleDbCommandBuilder(da)
		cmd.QuotePrefix = "["
		cmd.QuoteSuffix = "]"
		da.UpdateCommand = cmd.GetUpdateCommand
		da.DeleteCommand = cmd.GetDeleteCommand
		da.InsertCommand = cmd.GetInsertCommand
		Try


			da.Update(ds, "Table des indicateur")
		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
		' DataGrid10.Columns[0].Visible = False

		Dim Gstyle1 As New DataGridTableStyle

		For Each dt In ds.Tables
			DataGrid10.DataSource = dt
		Next


















	End Sub

يا اخى انا عندى ليك حل سريع جدا و دقيق جدا بدا اما تدور على اخفاء عمود

انتا ممكن تيجى فى جملة الاستعلام و تحدد الحقول المطلوب اظهرها ازى كده مثلا لو فى جدول اسمه Item و انتا عاوز تظهر فى الداتا جريد حقل ID و Nameitem تكتب الكوماند Command الاتى فى ADO.NET

Select ID,Nameitem FROM Item

بس ياعم ولا توجع دماغك خاص