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


الملفات المرفقة
.rar   خطأ في اضافة صف جديد.rar (الحجم : 101.13 ك ب / التحميلات : 10)
الرد
تم الشكر بواسطة:
#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
الشكر لله والحمد لله
والحمد لله على كل حال

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الرجوع الي نفس سطر في داتا جريد atefkhalf2004 2 187 11-06-19, 01:08 PM
آخر رد: سامي محمد
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 168 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 334 04-06-19, 03:12 PM
آخر رد: elgokr
  حساب مجموع ما في الداتا جريد فيو لكل صف alshandodi 8 330 20-05-19, 05:37 PM
آخر رد: alshandodi
  [VB.NET] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 194 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 118 16-05-19, 02:11 PM
آخر رد: حاتمي
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 188 09-05-19, 05:11 PM
آخر رد: makky
  اضافة حقل الي الجدول برمجيا makky 1 122 04-05-19, 02:18 AM
آخر رد: makky
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 180 01-05-19, 12:45 PM
آخر رد: DK-x
  تم الحل : اضافة ازرار التنقل بين السجلات محمد خيري 5 197 26-04-19, 06:16 PM
آخر رد: elgokr

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


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