تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة صف جديد لدلتا جريد مرتبط
#1
اريد حل لمشكلة اضافة صف جديد لدلتا جريد مرتبطة بالبيانات وهذا هو الفورم برجاء المساعد


الملفات المرفقة
.rar   خطأ في اضافة صف جديد.rar (الحجم : 101.13 ك ب / التحميلات : 11)
الرد
تم الشكر بواسطة:
#2
المشكلة لأن الداتاقريدفيو مرتبطة بمصدر بيانات ولا يمكن إضافة اسطر جديدة مباشرة للداتاقريدفيو ،،

الحل :

إضافة البيانات اولاً لمصدر البيانات داتاتيبل ومن ثم تحديث الداتاقريدفيو .
لا يحزنك أنّك فشلت ما دمت تحاول الوقوف على قدميك من جديد.
الرد
تم الشكر بواسطة: elgokr , عبد العزيز البسكري
#3
مثل اجابة حريف برمجة فهي صحيحة 100%
الرد
تم الشكر بواسطة:
#4
فى البداية لا اعلم لماذا اللفة والدوران اللى انت عملته فى الكود
انشاء بيانات الداتا يدوي
ومن ثم تفريغه ومن ثم تعبئته من الداتا سيت

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

ولكن كل ما يمكننى افادتك به هو فتح عرض الكود الخاص Form1

وحذف جميع الاسطر بها ليتم ادراج الكود التالى
كود :
Public Class Form1
   Private Sub vgrid()
       dgrid.Columns(0).Visible = True
       dgrid.Columns(0).HeaderText = "مسلسل"
       dgrid.Columns(0).Width = 60
       dgrid.Columns(1).Visible = True
       dgrid.Columns(1).HeaderText = "مجموعه"
       dgrid.Columns(1).Width = 150
       dgrid.Columns(2).Visible = True
       dgrid.Columns(2).HeaderText = "الصنف"
       dgrid.Columns(2).Width = 175
       dgrid.Columns(3).Visible = True
       dgrid.Columns(3).HeaderText = "الكمية"
       dgrid.Columns(3).Width = 80
       dgrid.Columns(4).Visible = True
       dgrid.Columns(4).HeaderText = "السعر"
       dgrid.Columns(4).Width = 80
       dgrid.Columns(5).Visible = True
       dgrid.Columns(5).HeaderText = "الاجمالي"
       dgrid.Columns(5).Width = 80
       Me.dgrid.RowHeadersVisible = False
   End Sub
   Private Sub itmcost()
       Dim sqlitm = "select s1,s3,s4 from sanf where sm0= " & Chr(39) & "" & ComboBox1.Text & "" & Chr(39) & " group by s1,s3,s4"
       Dim itmds As New DataSet
       conn.Open()
       Dim dat As New OleDb.OleDbDataAdapter(sqlitm, conn)
       itmds.Clear()
       dat.Fill(itmds, "sanf")
       conn.Close()
       DataGridView1.DataSource = itmds
       DataGridView1.DataMember = "sanf"
       DataGridView1.Columns(0).Visible = True
       DataGridView1.Columns(0).HeaderText = "اســـم الصنــف"
       DataGridView1.Columns(0).Width = 150
       DataGridView1.Columns(1).Visible = False
       DataGridView1.Columns(2).Visible = False
   End Sub
   Private Sub itmcostcrsh()
       Dim sqlit = "select s1,s3,s4 from sanf where sm0= " & Chr(39) & "" & ComboBox1.Text & "" & Chr(39) & " and s1 like '" & TextBox4.Text & "%'"
       Dim itm As New DataSet
       conn.Open()
       Dim dats As New OleDb.OleDbDataAdapter(sqlit, conn)
       itm.Clear()
       dats.Fill(itm, "sanf")
       conn.Close()
       DataGridView1.DataSource = itm
       DataGridView1.DataMember = "sanf"
       DataGridView1.Columns(0).Visible = True
       DataGridView1.Columns(0).HeaderText = "اســـم الصنــف"
       DataGridView1.Columns(0).Width = 150
       DataGridView1.Columns(1).Visible = False
       DataGridView1.Columns(2).Visible = False
   End Sub
   Private Sub TOTALrow()
       Dim total1 As String = 0
       For s As Integer = 0 To dgrid.Rows.Count - 1
           total1 += dgrid.Rows(s).Cells(5).Value
       Next s
       total.Text = total1
   End Sub
   Private Sub combmgma()
       Try
           ComboBox1.Items.Clear()
           Dim Cmd As New OleDb.OleDbCommand
           With Cmd
               .CommandType = CommandType.Text
               .CommandText = (" Select * From mgma ")
               .Connection = conn
           End With
           Dim DA As New OleDb.OleDbDataAdapter(Cmd)
           Dim DT As New DataTable()
           DA.Fill(DT)
           For Each AddData In DT.Rows
               ComboBox1.Items.Add(AddData.item(1))
           Next
           With ComboBox1
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.ListItems
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
   Private Sub comboname()
       Try
           ComboBox2.Items.Clear()
           Dim Cmd As New OleDb.OleDbCommand
           With Cmd
               .CommandType = CommandType.Text
               .CommandText = (" Select * From amel ")
               .Connection = conn
           End With
           Dim DA As New OleDb.OleDbDataAdapter(Cmd)
           Dim DT As New DataTable()
           DA.Fill(DT)
           For Each AddData In DT.Rows
               ComboBox2.Items.Add(AddData.item(1))
           Next
           With ComboBox2
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.ListItems
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text = "" Then Exit Sub
       dgrid.Rows.Clear()
       TextBox1.Text = Format(Val(TextBox1.Text), "00000000")
       ComboBox2.DataBindings.Clear()
       TextBox10.DataBindings.Clear()
       TextBox2.DataBindings.Clear()
       Dim sqlit = "select numb,mgma,sanf,kmea,sar,agmale from fat_ba where id= " & Chr(39) & "" & TextBox1.Text & "" & Chr(39) & "and sanf<>" & Chr(39) & "" & Chr(39) & " and sanf<>" & Chr(39) & "" & Chr(39) & " group by numb,mgma,sanf,kmea,sar,agmale"
       Dim sqlit1 = "SELECT id, numb, format(date,'yyyy/MM/dd')as[date], sdad, amel, mgma, sanf, kmea, sar, agmale,mdfa FROM fat_ba where id= " & Chr(39) & "" & TextBox1.Text & "" & Chr(39) & " group by id, numb, date, sdad, amel, mgma, sanf, kmea, sar, agmale, mdfa"
       Dim itm As New DataSet
       Dim tabl As New DataSet
       Dim dats As New OleDb.OleDbDataAdapter(sqlit1, conn)
       Dim dats1 As New OleDb.OleDbDataAdapter(sqlit, conn)
       itm.Clear()
       dats1.Fill(itm, "fat_ba")
       dats.Fill(tabl, "fat_ba")
       TextBox10.DataBindings.Add("Text", tabl, "fat_ba.sdad")
       If TextBox10.Text = "نقدي" Then
           RadioButton1.Checked = True
       ElseIf TextBox10.Text = "اجل" Then
           RadioButton2.Checked = True
       ElseIf TextBox10.Text = "جزء نقدي" Then
           RadioButton3.Checked = True
           TextBox3.DataBindings.Add("Text", tabl, "fat_ba.mdfa")
       Else
           ComboBox2.Text = "" : TextBox2.Text = ""
           RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False
           Exit Sub
       End If
       ComboBox2.DataBindings.Add("Text", tabl, "fat_ba.amel")
       TextBox2.DataBindings.Add("Text", tabl, "fat_ba.date")
       For ii As Integer = 0 To itm.Tables("fat_ba").Rows.Count - 1
           dgrid.Rows.Add(itm.Tables("fat_ba").Rows(ii).ItemArray)
       Next
       vgrid()
       TOTALrow()
   End Sub

   Private Sub dgrid_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgrid.CellContentClick
       ComboBox1.Text = dgrid.Rows(e.RowIndex).Cells(1).Value
       TextBox5.Text = dgrid.Rows(e.RowIndex).Cells(2).Value
       TextBox6.Text = dgrid.Rows(e.RowIndex).Cells(3).Value
       TextBox7.Text = dgrid.Rows(e.RowIndex).Cells(4).Value
       Me.dgrid.Rows(e.RowIndex).Selected = True
       Dim rowdlet As Integer = e.RowIndex
       Me.dgrid.CurrentCell = Me.dgrid.Rows(e.RowIndex).Cells(1)
       dgrid.Rows.RemoveAt(rowdlet)
       For Each R As DataGridViewRow In dgrid.Rows
           R.Cells(0).Value = (R.Index + 1).ToString
       Next
       TOTALrow()
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim addRow(6) As String
       addRow(0) = dgrid.Rows.Count
       addRow(1) = ComboBox1.Text
       addRow(2) = TextBox5.Text
       addRow(3) = TextBox6.Text
       addRow(4) = TextBox7.Text
       addRow(5) = Val(TextBox6.Text) * Val(TextBox7.Text)
       dgrid.Rows.Add(addRow)
       TOTALrow()
   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       itmcost()
       GroupBox4.Visible = True
       If DataGridView1.Rows.Count <= 0 Then GroupBox4.Visible = False : MsgBox("هــذة المجـمـوعــه فارغــة " & vbCrLf & "" & vbCrLf & "أختــار مجمــوعـة أخـري", MsgBoxStyle.OkOnly, "تحــــــذيــر")
       TextBox5.Text = ""
       TextBox6.Text = ""
       TextBox7.Text = ""
       TextBox4.Focus()
   End Sub

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

   Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
       TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
       TextBox6.Focus()
   End Sub
End Class

وستجد ان الاضافة تعمل معك وعرض البيانات
تعمل كما كنت تريد تماماً وبدون اى مشكلة او تاخر فى الاستعلام ايضاً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
#5
(24-04-19, 05:57 AM)elgokr كتب :
فى البداية لا اعلم لماذا اللفة والدوران اللى انت عملته فى الكود
انشاء بيانات الداتا يدوي
ومن ثم تفريغه ومن ثم تعبئته من الداتا سيت

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

ولكن كل ما يمكننى افادتك به هو فتح عرض الكود الخاص Form1

وحذف جميع الاسطر بها ليتم ادراج الكود التالى
كود :
Public Class Form1
   Private Sub vgrid()
       dgrid.Columns(0).Visible = True
       dgrid.Columns(0).HeaderText = "مسلسل"
       dgrid.Columns(0).Width = 60
       dgrid.Columns(1).Visible = True
       dgrid.Columns(1).HeaderText = "مجموعه"
       dgrid.Columns(1).Width = 150
       dgrid.Columns(2).Visible = True
       dgrid.Columns(2).HeaderText = "الصنف"
       dgrid.Columns(2).Width = 175
       dgrid.Columns(3).Visible = True
       dgrid.Columns(3).HeaderText = "الكمية"
       dgrid.Columns(3).Width = 80
       dgrid.Columns(4).Visible = True
       dgrid.Columns(4).HeaderText = "السعر"
       dgrid.Columns(4).Width = 80
       dgrid.Columns(5).Visible = True
       dgrid.Columns(5).HeaderText = "الاجمالي"
       dgrid.Columns(5).Width = 80
       Me.dgrid.RowHeadersVisible = False
   End Sub
   Private Sub itmcost()
       Dim sqlitm = "select s1,s3,s4 from sanf where sm0= " & Chr(39) & "" & ComboBox1.Text & "" & Chr(39) & " group by s1,s3,s4"
       Dim itmds As New DataSet
       conn.Open()
       Dim dat As New OleDb.OleDbDataAdapter(sqlitm, conn)
       itmds.Clear()
       dat.Fill(itmds, "sanf")
       conn.Close()
       DataGridView1.DataSource = itmds
       DataGridView1.DataMember = "sanf"
       DataGridView1.Columns(0).Visible = True
       DataGridView1.Columns(0).HeaderText = "اســـم الصنــف"
       DataGridView1.Columns(0).Width = 150
       DataGridView1.Columns(1).Visible = False
       DataGridView1.Columns(2).Visible = False
   End Sub
   Private Sub itmcostcrsh()
       Dim sqlit = "select s1,s3,s4 from sanf where sm0= " & Chr(39) & "" & ComboBox1.Text & "" & Chr(39) & " and s1 like '" & TextBox4.Text & "%'"
       Dim itm As New DataSet
       conn.Open()
       Dim dats As New OleDb.OleDbDataAdapter(sqlit, conn)
       itm.Clear()
       dats.Fill(itm, "sanf")
       conn.Close()
       DataGridView1.DataSource = itm
       DataGridView1.DataMember = "sanf"
       DataGridView1.Columns(0).Visible = True
       DataGridView1.Columns(0).HeaderText = "اســـم الصنــف"
       DataGridView1.Columns(0).Width = 150
       DataGridView1.Columns(1).Visible = False
       DataGridView1.Columns(2).Visible = False
   End Sub
   Private Sub TOTALrow()
       Dim total1 As String = 0
       For s As Integer = 0 To dgrid.Rows.Count - 1
           total1 += dgrid.Rows(s).Cells(5).Value
       Next s
       total.Text = total1
   End Sub
   Private Sub combmgma()
       Try
           ComboBox1.Items.Clear()
           Dim Cmd As New OleDb.OleDbCommand
           With Cmd
               .CommandType = CommandType.Text
               .CommandText = (" Select * From mgma ")
               .Connection = conn
           End With
           Dim DA As New OleDb.OleDbDataAdapter(Cmd)
           Dim DT As New DataTable()
           DA.Fill(DT)
           For Each AddData In DT.Rows
               ComboBox1.Items.Add(AddData.item(1))
           Next
           With ComboBox1
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.ListItems
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub
   Private Sub comboname()
       Try
           ComboBox2.Items.Clear()
           Dim Cmd As New OleDb.OleDbCommand
           With Cmd
               .CommandType = CommandType.Text
               .CommandText = (" Select * From amel ")
               .Connection = conn
           End With
           Dim DA As New OleDb.OleDbDataAdapter(Cmd)
           Dim DT As New DataTable()
           DA.Fill(DT)
           For Each AddData In DT.Rows
               ComboBox2.Items.Add(AddData.item(1))
           Next
           With ComboBox2
               .AutoCompleteMode = AutoCompleteMode.SuggestAppend
               .AutoCompleteSource = AutoCompleteSource.ListItems
           End With
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text = "" Then Exit Sub
       dgrid.Rows.Clear()
       TextBox1.Text = Format(Val(TextBox1.Text), "00000000")
       ComboBox2.DataBindings.Clear()
       TextBox10.DataBindings.Clear()
       TextBox2.DataBindings.Clear()
       Dim sqlit = "select numb,mgma,sanf,kmea,sar,agmale from fat_ba where id= " & Chr(39) & "" & TextBox1.Text & "" & Chr(39) & "and sanf<>" & Chr(39) & "" & Chr(39) & " and sanf<>" & Chr(39) & "" & Chr(39) & " group by numb,mgma,sanf,kmea,sar,agmale"
       Dim sqlit1 = "SELECT id, numb, format(date,'yyyy/MM/dd')as[date], sdad, amel, mgma, sanf, kmea, sar, agmale,mdfa FROM fat_ba where id= " & Chr(39) & "" & TextBox1.Text & "" & Chr(39) & " group by id, numb, date, sdad, amel, mgma, sanf, kmea, sar, agmale, mdfa"
       Dim itm As New DataSet
       Dim tabl As New DataSet
       Dim dats As New OleDb.OleDbDataAdapter(sqlit1, conn)
       Dim dats1 As New OleDb.OleDbDataAdapter(sqlit, conn)
       itm.Clear()
       dats1.Fill(itm, "fat_ba")
       dats.Fill(tabl, "fat_ba")
       TextBox10.DataBindings.Add("Text", tabl, "fat_ba.sdad")
       If TextBox10.Text = "نقدي" Then
           RadioButton1.Checked = True
       ElseIf TextBox10.Text = "اجل" Then
           RadioButton2.Checked = True
       ElseIf TextBox10.Text = "جزء نقدي" Then
           RadioButton3.Checked = True
           TextBox3.DataBindings.Add("Text", tabl, "fat_ba.mdfa")
       Else
           ComboBox2.Text = "" : TextBox2.Text = ""
           RadioButton1.Checked = False : RadioButton2.Checked = False : RadioButton3.Checked = False
           Exit Sub
       End If
       ComboBox2.DataBindings.Add("Text", tabl, "fat_ba.amel")
       TextBox2.DataBindings.Add("Text", tabl, "fat_ba.date")
       For ii As Integer = 0 To itm.Tables("fat_ba").Rows.Count - 1
           dgrid.Rows.Add(itm.Tables("fat_ba").Rows(ii).ItemArray)
       Next
       vgrid()
       TOTALrow()
   End Sub

   Private Sub dgrid_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgrid.CellContentClick
       ComboBox1.Text = dgrid.Rows(e.RowIndex).Cells(1).Value
       TextBox5.Text = dgrid.Rows(e.RowIndex).Cells(2).Value
       TextBox6.Text = dgrid.Rows(e.RowIndex).Cells(3).Value
       TextBox7.Text = dgrid.Rows(e.RowIndex).Cells(4).Value
       Me.dgrid.Rows(e.RowIndex).Selected = True
       Dim rowdlet As Integer = e.RowIndex
       Me.dgrid.CurrentCell = Me.dgrid.Rows(e.RowIndex).Cells(1)
       dgrid.Rows.RemoveAt(rowdlet)
       For Each R As DataGridViewRow In dgrid.Rows
           R.Cells(0).Value = (R.Index + 1).ToString
       Next
       TOTALrow()
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Dim addRow(6) As String
       addRow(0) = dgrid.Rows.Count
       addRow(1) = ComboBox1.Text
       addRow(2) = TextBox5.Text
       addRow(3) = TextBox6.Text
       addRow(4) = TextBox7.Text
       addRow(5) = Val(TextBox6.Text) * Val(TextBox7.Text)
       dgrid.Rows.Add(addRow)
       TOTALrow()
   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       itmcost()
       GroupBox4.Visible = True
       If DataGridView1.Rows.Count <= 0 Then GroupBox4.Visible = False : MsgBox("هــذة المجـمـوعــه فارغــة " & vbCrLf & "" & vbCrLf & "أختــار مجمــوعـة أخـري", MsgBoxStyle.OkOnly, "تحــــــذيــر")
       TextBox5.Text = ""
       TextBox6.Text = ""
       TextBox7.Text = ""
       TextBox4.Focus()
   End Sub

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

   Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
       TextBox7.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
       TextBox6.Focus()
   End Sub
End Class

وستجد ان الاضافة تعمل معك وعرض البيانات
تعمل كما كنت تريد تماماً وبدون اى مشكلة او تاخر فى الاستعلام ايضاً

تحياتى لك
وتمنياتى لك التوفيق
ممتاز جدا جدا طريقة جميلة جدا 
وكمان استفدت كتير جدا جدا من 
انشاء الداتا بدل الف الكتير 
الف الف شكر
الرد
تم الشكر بواسطة:
#6
الشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طلب مساعدة بخصوص حفظ الداتا جريد فيو بها تشيكبوكس عاشق الرسول 10 248 18-08-19, 04:07 PM
آخر رد: ابراهيم ايبو
Exclamation [VB.NET] اريد كود اضافة مجلد في سيرفر FTP SnTnt 2 114 04-08-19, 03:36 AM
آخر رد: SnTnt
  سؤال فى التيكست والداتا جريد احمد خطاب 3 119 02-08-19, 10:32 AM
آخر رد: ابراهيم ايبو
  مشكله في اضافة البيانات التي باللغه العربيه في سيكوال سيرفر Emam emam 10 229 30-07-19, 04:19 AM
آخر رد: ابراهيم ايبو
  كيفية اضافة اسم وصورة المنتج في الفورم نور الهدى الهدى 2 155 18-07-19, 10:29 PM
آخر رد: asemshahen5
  سؤال جديد فى الكريستال ريبورت احمد خطاب 1 121 16-07-19, 10:19 PM
آخر رد: اسامه الهرماوي
  مشكلةفي تحديث البيانات او تحميل البيانات على الداتا جريد فيو alshandodi 1 142 14-07-19, 04:58 PM
آخر رد: سعود
  [VB.NET] عندما يكون حقل معين في الداتا جريد فيو ممتلا يمنع التعديل khairallah 3 172 13-07-19, 10:24 AM
آخر رد: ابراهيم ايبو
  [VB.NET] عندما يكون حقل فارغ في داتا جريد فيو منع اضافة حقل جديد khairallah 0 101 12-07-19, 10:13 PM
آخر رد: khairallah
  طباعة داتا جريد فيو alshandodi 4 280 12-07-19, 01:36 AM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم