[Ronald]

(05-03-21, 07:18 AM)aftfm كتب : الف شكر اخي العزيز ابراهيم مثالك ما اشتغل عندي على 2008
ولكن الفكرة ان لدي جدولين للاصناف وفيه حقل من نوع yes/no
وجدول آخر فيه نفس الحقول الجدول السابق

إذا تم حذف البيانات من الجدول الاول لا تحذف من الجدول الثاني فقط يتم التعديل على حقل yes/no تصبح تساوي False

---

اعمل على vb 2008

Edet.rar

PHP كود :

' حذف المحدد '
#Region " DeleteSelections() "
    Private Sub DeleteSelections()
        Try
            Dim w As New List(Of String)
            Dim chks As Integer = 0
            For Each r As DataGridViewRow In Me.DataGridView1.Rows
                If r.Cells("printCheckBox").Value = True Then chks += 1
            Next
            If chks > 0 Then
                Using conn As New OleDbConnection(connString)
                    conn.Open()
                    Dim sqlupdate = "UPDATE [tblDropping] SET [Notes]=@notes, [Core]=True WHERE [p_num]=@p_num"
                    Dim sqldelete = "DELETE FROM [persons] WHERE [p_num]=@p_num"
                    Using cmd As New OleDbCommand
                        cmd.Connection = conn
                        For Each r As DataGridViewRow In Me.DataGridView1.Rows
                            If r.Cells("printCheckBox").Value = True Then
                                ' تنفيذ التعديل '
                                cmd.CommandText = sqlupdate
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@notes", If(r.Cells("Notes").Value Is Nothing, "", r.Cells("Notes").Value))
                                cmd.Parameters.AddWithValue("@p_num", r.Cells("p_num").Value)
                                cmd.ExecuteNonQuery()
                                ' تنفيذ الحذف '
                                cmd.CommandText = sqldelete
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@p_num", r.Cells("p_num").Value.ToString)
                                cmd.ExecuteNonQuery()
                            End If
                        Next
                    End Using
                    conn.Close()
                End Using
                ' تعبئة الداتاجريدفيو '
                FillDataGridView()
            Else
                MsgBox("لم تقم بإختيار أي عنصر للطباعة", MsgBoxStyle.Exclamation, "خطأ")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region