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

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

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

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

الأكواد :
أستدعاء مكتبة 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() 

النتيجة :
   

المرفق :
.rar   khodor1985 - DataGridCheckBox.rar (الحجم : 155.67 ك ب / التحميلات : 41)

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


الملفات المرفقة
.rar   DataGridCheckBox.rar (الحجم : 155.77 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة: adel27 , khodor1985 , العواد الصغير
#7
الله يسعدك ياغالي وأشكرك على مرورك الرائع
الرد }}}}
تم الشكر بواسطة:
#8
(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
الرد }}}}
تم الشكر بواسطة:
#9
يـاجماعة الخيـر عندي هالمشكله اللي أستمرت معاي بدون حل هذا الكود 
   
كود :
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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 63 01-12-16, 07:04 AM
آخر رد: araxis
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 165 29-11-16, 07:26 AM
آخر رد: amgad525
  [VB.NET] رسم بالحاسوب طريقه رسم نجمه مٌحُمٌدِ الُ ظٌُهرَُه 2 78 25-11-16, 04:34 PM
آخر رد: مٌحُمٌدِ الُ ظٌُهرَُه
  الداتا ببتلغبط لما الكمبيوتر بيتفطع عنة الكهربا مرة واحدة araxis 5 120 22-11-16, 06:42 PM
آخر رد: zinom
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 92 22-11-16, 02:38 PM
آخر رد: thevirus
  كيف اتعامل مع الداتا اقرد فيو واستخدامها في التقارير معتز الجازوي 1 58 17-11-16, 11:53 AM
آخر رد: Genius Live
  جعل مفتاح انتر يعمل عمل مفتاح تاب مع الداتا جريد فيو cvcvcv 7 1,894 15-11-16, 09:00 PM
آخر رد: samnaj00
  كيف اتعامل مع الداتا اقرد فيو واستخدامها في التقارير معتز الجازوي 1 89 15-11-16, 12:41 PM
آخر رد: محمود بكرى
  استدعاء داتا من الداتا بيز عن طريق المعالج araxis 14 272 15-11-16, 07:17 AM
آخر رد: araxis
  مساعدة في طريقه فكرة عمل جدول sql server Rabeea Qbaha 4 106 08-11-16, 04:55 PM
آخر رد: Rabeea Qbaha

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


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