11-10-13, 03:18 AM
السلام عليكم ورحمة الله وبركاته
كتبت هذا الكود من أجل التأكد من عدم وجود اي تكرار للبيان قبل اضافته وفي حالة وجود البيان مسبقا لا يقوم بالاضافة ... ورغم ظهور رسالة التى تفيد عمل الكود إلا أن البيان يضاف .... وولم استطع معرفة ما هو الخطا بالضبط ... فهل من مساعدة
كتبت هذا الكود من أجل التأكد من عدم وجود اي تكرار للبيان قبل اضافته وفي حالة وجود البيان مسبقا لا يقوم بالاضافة ... ورغم ظهور رسالة التى تفيد عمل الكود إلا أن البيان يضاف .... وولم استطع معرفة ما هو الخطا بالضبط ... فهل من مساعدة
كود :
Try
For i As Integer = 0 To Ds.Tables("OrderForm").Rows.Count - 1
If CustTextBox.Text = Ds.Tables("OrderForm").Rows(i).Item("Cust").ToString Then
MsgBox("Order added Before !", MsgBoxStyle.Information)
Exit Try
End If
Next
Dim R As DataRow = Ds.Tables("OrderForm").NewRow
R(0) = OrderNoTextBox.Text
R(1) = CustTextBox.Text
R(2) = CustNoTextBox.Text
R(3) = FactoryTextBox.Text
R(4) = QtyTextBox.Text
R(5) = RaiseOnTextBox.Text
Ds.Tables("OrderForm").Rows.Add(R)
Cmdb = New OleDbCommandBuilder(Da)
Me.BindingContext(Ds, "OrderForm").EndCurrentEdit()
Ds.AcceptChanges()
Da.Update(Dt)
MsgBox("Order added successfully !", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try