تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ياليت تسـاعدوني في طريقه الداتا قريد فيو
#1
السـلام عليكم روحمة الله وبركاته 

عندي داتا قريد فيـو تعرض البيانات محتاج أضيف لداتا قريدفيـو علامة تشك في كل صف  بحيث أنه إذا عمل علامة تشك تصير خاصية الصف الأنيبل = مفعله 

طبعاً موجود عمود في قاعدة البيانات بترو أو فولس 

شـــاكر ومقدر 
الرد }}}
تم الشكر بواسطة:
#2
معقوله 30 رد ولا فيه مشـاركه وحده ..؟
الرد }}}
تم الشكر بواسطة:
#3
ألف شكر يا أستاذي خضر
الرد }}}
تم الشكر بواسطة:
#4
ممكن أحد يعدل لي المثال على سكيـول سيرفر
الرد }}}
تم الشكر بواسطة:
#5
تفضل اخي الكريم المثال بعد التعديل الى SQL Server


الملفات المرفقة
.rar   DataGridCheckBox.rar (الحجم : 155.77 ك ب / التحميلات : 44)
الرد }}}
تم الشكر بواسطة: adel27 , khodor1985 , العواد الصغير
#6
الله يسعدك ياغالي وأشكرك على مرورك الرائع
الرد }}}
تم الشكر بواسطة:
#7
(16-02-16, 01:48 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد تم تنفيذ المثال بناء لطلبك

الأكواد :
أستدعاء مكتبة OLEDB:
PHP كود :
Imports System.Data.OleDb 

الإغلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MyDB.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim RecordCount 
As Integer 


تحميل البيانات من قاعدة البيانات إلى DataGrid :
PHP كود :
Try

 
           con.Open()

 
           Dim StrSelect As String "SELECT * From Person"
 
           cmd = New OleDbCommand(StrSelectcon)

 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet

            ds
.Clear()
 
           RecordCount da.Fill(ds)

 
           If RecordCount 0 Then
                DGVData
.DataSource ds.Tables(0)
 
               da.UpdateCommand = New OleDbCommandBuilder(da).GetUpdateCommand
            End 
If


 
           If con.State ConnectionState.Open Then con.Close()

 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       End Try
 
       ActiveCell() 

إنشاء إجراء مستقل للتحكم بفعالية الصف في DataGrid :
PHP كود :
Sub ActiveCell()
 
       For i 0 To DGVData.Rows.Count 1
            With DGVData
.Rows(i)
 
               Dim MyCheck As Boolean = .Cells(4).Value
                If MyCheck 
True Then
                    
.Cells(0).ReadOnly True
                    
.Cells(1).ReadOnly True
                    
.Cells(2).ReadOnly True
                    
.Cells(3).ReadOnly True
                    
.DefaultCellStyle.BackColor Color.LightGray

                Else
                    
.Cells(0).ReadOnly False
                    
.Cells(1).ReadOnly False
                    
.Cells(2).ReadOnly False
                    
.Cells(3).ReadOnly False
                    
.DefaultCellStyle.BackColor Nothing
                End 
If
 
           End With
        Next

    End Sub 

أاستدعاء الإجراء المستقل إلى الحدث CellValueChanged في DataGrid :
PHP كود :
ActiveCell() 

النتيجة :


المرفق :

أتمنى لك التوفيق

جزاك الله خيرا
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}
تم الشكر بواسطة:
#8
يـاجماعة الخيـر عندي هالمشكله اللي أستمرت معاي بدون حل هذا الكود 
   
كود :
DAT;Integrated Security=True
    Dim cmd33 As SqlCommand
    Dim das As SqlDataAdapter
    Dim dss As DataSet

    Dim RecordCount As Integer



Private Sub DATAG_CellValueChanged(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DATAG.CellValueChanged
       ActiveCell()

   End Sub

   Sub ActiveCell()
       For i = 0 To DATAG.Rows.Count - 1
           With DATAG.Rows(i)
               Dim MyCheck As String = .Cells(6).Value.ToString
               If MyCheck = "True" Then
                   .Cells(0).ReadOnly = True
                   .Cells(1).ReadOnly = True
                   .Cells(2).ReadOnly = True
                   .Cells(3).ReadOnly = True
                   .Cells(4).ReadOnly = True
                   .Cells(5).ReadOnly = True
                   .Cells(6).ReadOnly = True
                   .DefaultCellStyle.BackColor = Color.LightGray

               Else
                   .Cells(0).ReadOnly = False
                   .Cells(1).ReadOnly = False
                   .Cells(2).ReadOnly = False
                   .Cells(3).ReadOnly = False
                   .Cells(4).ReadOnly = False
                   .Cells(5).ReadOnly = False
                   .Cells(6).ReadOnly = False
                   .DefaultCellStyle.BackColor = Nothing
               End If
           End With
       Next

   End Sub
   Sub hht()
       Try

           conne.Open()

           Dim StrSelect As String = "SELECT * From hala"
           cmd33 = New SqlCommand(StrSelect, conne)
           'Update()
           das = New SqlDataAdapter(cmd33)
           dss = New DataSet

           ds.Clear()
           RecordCount = das.Fill(dss)

           If RecordCount > 0 Then
               DATAG.DataSource = dss.Tables(0)
               das.UpdateCommand = New SqlCommandBuilder(das).GetUpdateCommand
           End If


           If conne.State = ConnectionState.Open Then conne.Close()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       ActiveCell()
   End Sub



   Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
       da = New SqlDataAdapter("SELECT * FROM hala ", conn)
       da.Fill(dt)
       DATAG.DataSource = dt

       With DATAG()
           .RowsDefaultCellStyle.SelectionBackColor = Color.PaleGoldenrod
           .RowsDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
           .RowsDefaultCellStyle.SelectionForeColor = Color.Black
           .ColumnHeadersDefaultCellStyle.BackColor = Color.Gainsboro

           .Columns(0).HeaderText = "الرقم التسلسلي"
           .Columns(1).HeaderText = "أسم  "
           .Columns(2).HeaderText = "رقم الخطاب"
           .Columns(3).HeaderText = "جهة البرقيه "
           .Columns(4).HeaderText = "الأجـــراء"
           .Columns(5).HeaderText = "تـاريخ الأرسـال"
           .Columns(6).HeaderText = "تحقق"
           '  -------------------------------
           .Columns(0).Width = 180
           .Columns(1).Width = 350
           .Columns(2).Width = 195
           .Columns(3).Width = 200
           .Columns(4).Width = 150
           .Columns(5).Width = 230
           .Columns(6).Width = 120
           .DefaultCellStyle.Font = New Font("Times New Roman", 14, FontStyle.Bold)
           .ColumnHeadersDefaultCellStyle.Font = New Font("Times New Roman", 16, FontStyle.Bold)
           .ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
           .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.AutoSize
           hht()
           .Refresh()
       End With

   End Sub
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
  هل الداتا قراد فيو تسمح بتعدد الاسطر داخل الخلية عند جلب بيانات نصية طويله من قاعدة ب khalidalwdi 3 460 10-11-23, 11:08 AM
آخر رد: khalidalwdi
  ممكن كود ترقيم تلقائي في الداتا غريد فيو المبرمج البسيط 16 10,576 08-11-23, 01:44 AM
آخر رد: الحزين اليماني
  انتقال المؤشر بين الخلايا في نفس الصف في الداتا جريد فيو fares_mohammed 2 462 03-11-23, 09:57 PM
آخر رد: fares_mohammed
Photo [سؤال] تجميع قيم العناصر المتشابهة في الداتا جريد فيو علاء الكبابي 6 565 13-08-23, 01:00 PM
آخر رد: تركي الحلواني
Wink كيفية اظهار قاءمة عند النقر بزر الفأرة الايمن على الداتا قريد فيو في فيجوال 2010 RADOS 1 397 09-08-23, 09:39 PM
آخر رد: أبووسم
  عندي مشكلة اثناء عرض البيانات الضخمة في قريد يسبب بطى اثناء عرضها RADOS 5 690 07-05-23, 12:29 AM
آخر رد: new_programer

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


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