18-10-13, 04:34 AM
السلام عليكم ورخمة الله وبركاته
يظهر لي هذا الخطا مع الكود التالي ولا اعرف كيف اتفاده بالضبط ...
كود بالكامل
يظهر لي هذا الخطا مع الكود التالي ولا اعرف كيف اتفاده بالضبط ...
كود :
If Ds.Tables("SpecialColor").AsEnumerable().Count(Function(row) row.Field(Of String)("Ref").ToLower() = Trim(RefTxt.Text.ToLower())) > 0 Then
MsgBox("Order added Before !", MsgBoxStyle.Information)
Return
End If
كود بالكامل
كود :
Imports System.Data.OleDb
Public Class SpecialColor
Dim Con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=|DataDirectory|\db1.mdb;")
Dim Sqltr As String = "Select * From SpecialColor Where OrderNo LIKE '%" & addOrder.OrderNoText.Text & "%'"
Dim Da As New OleDbDataAdapter(Sqltr, Con)
Dim Ds As New DataSet
Dim Cmdb As New OleDbCommandBuilder
Private Sub SpecialColor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Da.Fill(Ds, "SpecialColor")
OrderNoTxt.DataBindings.Add(New Binding("Text", Ds, "SpecialColor.OrderNo"))
PrintOntxt.DataBindings.Add(New Binding("Text", Ds, "SpecialColor.PrintOn"))
SpColortxt.DataBindings.Add(New Binding("Text", Ds, "SpecialColor.SpecialColor"))
Colortxt.DataBindings.Add(New Binding("Text", Ds, "SpecialColor.color"))
RefTxt.DataBindings.Add(New Binding("Text", Ds, "SpecialColor.Ref"))
End Sub
Private Sub Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Sub SaveData()
If Ds.Tables("SpecialColor").AsEnumerable().Count(Function(row) row.Field(Of String)("Ref").ToLower() = Trim(RefTxt.Text.ToLower())) > 0 Then
MsgBox("Order added Before !", MsgBoxStyle.Information)
Return
End If
Dim CurRec As Integer
CurRec = Me.BindingContext(Ds, "SpecialColor").Position
Dim OrderNo As String = Ds.Tables("SpecialColor").Rows(CurRec).Item("OrderNo")
Dim PrintOn As String = Ds.Tables("SpecialColor").Rows(CurRec).Item("PrintOn")
Dim SpColor As String = Ds.Tables("SpecialColor").Rows(CurRec).Item("SpecialColor")
Ds.Tables("SpecialColor").Rows(CurRec).BeginEdit()
Ds.Tables("SpecialColor").Rows(CurRec).Item("color") = Me.Colortxt.Text
Ds.Tables("SpecialColor").Rows(CurRec).Item("Ref") = Me.RefTxt.Text
Da.UpdateCommand = New OleDbCommand("Update SpecialColor Set Color=?,Ref=? Where OrderNo=? And PrintOn=? And SpecialColor=? ", Con)
Da.UpdateCommand.Parameters.Clear()
Da.UpdateCommand.Parameters.AddWithValue("?", Me.Colortxt.Text.ToString)
Da.UpdateCommand.Parameters.AddWithValue("?", Me.RefTxt.Text.ToString)
Da.UpdateCommand.Parameters.AddWithValue("?", OrderNo)
Da.UpdateCommand.Parameters.AddWithValue("?", PrintOn)
Da.UpdateCommand.Parameters.AddWithValue("?", SpColor)
Ds.Tables("SpecialColor").Rows(CurRec).EndEdit()
Da.Update(Ds, "SpecialColor")
End Sub
Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
Me.BindingContext(Ds, "SpecialColor").Position = 0
End Sub
Private Sub Perv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Perv.Click
Me.BindingContext(Ds, "SpecialColor").Position -= 1
End Sub
Private Sub Next1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next1.Click
Me.BindingContext(Ds, "SpecialColor").Position += 1
End Sub
Private Sub Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Last.Click
Dim mngr As BindingManagerBase = Me.BindingContext(Ds, "SpecialColor")
mngr.Position = mngr.Count - 1
End Sub
Private Sub New1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles New1.Click
Dim result = MessageBox.Show("you sure you want to Exit ? ", "caption", MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then
MyBase.Close()
End If
End Sub
Private Sub Finish_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Finish.Click
Dim result = MessageBox.Show("Did you want to Save your data before Exit ? ", "caption", MessageBoxButtons.YesNo)
If result = DialogResult.Yes Then
SaveData()
MyBase.Close()
ElseIf result = DialogResult.No Then
MyBase.Close()
End If
End Sub
Private Sub Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Previous.Click
PrintDetails.Show()
MyBase.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.BindingContext(Ds, "SpecialColor").Position = Me.BindingContext(Ds, "SpecialColor").Count - 1 Then
SaveData()
Me.Close()
Else
SaveData()
Me.BindingContext(Ds, "SpecialColor").Position += 1
End If
End Sub