تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى الداتا جريد salah mansour 1 87 21-05-17, 12:09 AM
آخر رد: boudyonline
  حساب عدد الصفوف في الداتا جريد فيو khaled12345 7 117 16-05-17, 09:17 PM
آخر رد: محمود بكرى
  استراد وزتصدير الداتا الي الاكسيل khaled12345 2 112 12-05-17, 06:58 PM
آخر رد: khaled12345
  مساعدة في البحث في الداتا جريد فيو khaled12345 2 83 10-05-17, 11:17 AM
آخر رد: khaled12345
  [سؤال] سؤال - ربط الحقول بالداتا قريد محمد بوقزاحة 2 70 07-05-17, 03:28 PM
آخر رد: محمد بوقزاحة
  طلب كود بخصوص الداتا قردفيو الراس الكبيرة 16 396 01-05-17, 01:06 PM
آخر رد: الراس الكبيرة
  هل فيه كتاب يشرح التعامل مع الداتا ست في فيجوال دوت نت 2008 samawi 3 111 30-04-17, 10:44 PM
آخر رد: ابو ليلى
  كيفية التحكم في تنسيق عمود خلايا واحد في الداتا جريد تناسيم 3 103 30-04-17, 06:31 PM
آخر رد: alma_fandi
Photo [سؤال] بخصوص اضافة تمرير بيناتا للداتا قريد فيو من تيكست بوكس diab4diab 1 81 20-04-17, 05:26 AM
آخر رد: أسامة السالمي
  فلتر داتا قريد فيو بعرض السجلات بتاريخ اليوم الحالي فقط hglogtd 4 158 19-04-17, 02:35 AM
آخر رد: hglogtd

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


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