(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية 

كود :

If itemname.Text = "" Then
           MessageBox.Show("ادخل اسم الصنف")
           itemname.Focus()
           Exit Sub
       End If
       If Categorizationname.Text = "" Then
           MessageBox.Show("ادخل التصنيف الرئيسي للصنف")
           Categorizationname.Focus()
           Exit Sub
       End If
       If firstunit.Text = "" Then
           MessageBox.Show("ادخل الوحدة الاولي للصنف ")
           firstunit.Focus()
           Exit Sub
       End If
       Try
           Dim str = "select *from items where itemname=N'" & itemname.Text & "'"
           Dim adp = New SqlDataAdapter(str, Module1.con)
           Dim ds = New DataSet
           adp.Fill(ds)
           Dim dt As DataTable
           If dt.Rows.Count > 0 Then
               MessageBox.Show("اسم الصنف المدخل موجود مسبقا يرجي تغير اسم الصنف")
               itemname.Focus()
           Else
               Dim dr = dt.NewRow
               '=====================بيانات اساسية ==========================
               dr!itemcode = itemcode.Text
               dr!itemserail = itemserial.Text
               dr!itemname = itemname.Text
               dr!CategorizationName = Categorizationname.Text
               dr!size = size.Text
               dr!company = company.Text
               dr!color = color.Text
               dr!origin = origin.Text


               '====================الوحدات===============
               dr!firstunit = firstunit.Text
               dr!firstunitbarcode = firstunitbarcode.Text

               dr!secondunit = secondunit.Text
               dr!secondunitbarcode = secondunitbarcode.Text
               dr!secountunitoperatingconversion = secountunitoperatingconversion.Text

               dr!thirdunit = thirdunit.Text
               dr!thirdunitbarcode = thirdunitbarcode.Text
               dr!thirdtunitoperatingconversion = thirdtunitoperatingconversion.Text
               '================خيارات حدود====================
               dr!maxlimitforfirstunit = maxlimitforfirstunit.Text
               dr!minlimitforfirstunit = minlimitforfirstunit.Text
               dr!orderlimitforfirstunit = orderlimitforfirstunit.Text

               dr!maxlimitforsecondunit = maxlimitforsecondunit.Text
               dr!minlimitforsecondunit = minlimitforsecondunit.Text
               dr!orderlimitforsecondunit = orderlimitforsecondunit.Text

               dr!maxlimitforthirdunit = maxlimitforthirdunit.Text
               dr!minlimitforthirdunit = minlimitforthirdunit.Text
               dr!orderlimitforthirdunit = orderlimitforthirdunit.Text

               If unitdefault1.Checked = True Then dr!unitdefault1 = 1
               If unitdefault2.Checked = True Then dr!unitdefault2 = 2
               If unitdefault3.Checked = True Then dr!unitdefault3 = 3

               '============اسعار البيع===============================================
               dr!itemcode = itemcode.Text
               dr!wholesaleforfirstunit = Val(wholesaleforfirstunit.Text)
               dr!wholesaleforsecondunt = Val(wholesaleforsecondunt.Text)
               dr!wholesaleforthirdunit = Val(wholesaleforthirdunit.Text)
               dr!halfwholesaleforfirstunit = Val(halfwholesaleforfirstunit.Text)
               dr!halfwholesaleforsecondunt = Val(halfwholesaleforsecondunt.Text)
               dr!halfwholesaleforthirdunit = Val(halfwholesaleforthirdunit.Text)
               dr!distributorforfirstunit = Val(distributorforfirstunit.Text)
               dr!distributorforsecondunt = Val(distributorforsecondunt.Text)
               dr!distributorforthirdunit = Val(distributorforthirdunit.Text)
               dr!exportforfirstunit = Val(exportforfirstunit.Text)
               dr!exportforsecondunt = Val(exportforsecondunt.Text)
               dr!exportforthirdunit = Val(exportforthirdunit.Text)
               dr!retailforfirstunit = Val(retailforfirstunit.Text)
               dr!retailforsecondunit = Val(retailforsecondunit.Text)
               dr!retailforthirdunit = Val(retailforthirdunit.Text)
               dr!enduserforfirstunit = Val(enduserforfirstunit.Text)
               dr!enduserforsecondunit = Val(enduserforsecondunit.Text)
               dr!enduserforthirdunit = Val(enduserforthirdunit.Text)

               If pricedefault1.Checked = True Then dr!pricedefault1 = 1
               If pricedefault2.Checked = True Then dr!pricedefault2 = 2
               If pricedefault3.Checked = True Then dr!pricedefault3 = 3
               If pricedefault4.Checked = True Then dr!pricedefault4 = 4
               If pricedefault5.Checked = True Then dr!pricedefault5 = 5
               If pricedefault6.Checked = True Then dr!pricedefault6 = 6
               dt.Rows.Add(dr)
               Dim SAVE As New SqlCommandBuilder(adp)
               adp.Update(dt)
               MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Dim st2 As String = "قم بحفظ صنف" & itemname.Text
               Module1.logfunc(str_username, st2)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


       cl()
       Btn_del.Enabled = False
           Btn_edit.Enabled = False
           Btn_save.Enabled = True
           Button3_Click(sender, e)

(05-02-23, 06:11 PM)AnyDesk كتب :

(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية 

كود :

If itemname.Text = "" Then
           MessageBox.Show("ادخل اسم الصنف")
           itemname.Focus()
           Exit Sub
       End If
       If Categorizationname.Text = "" Then
           MessageBox.Show("ادخل التصنيف الرئيسي للصنف")
           Categorizationname.Focus()
           Exit Sub
       End If
       If firstunit.Text = "" Then
           MessageBox.Show("ادخل الوحدة الاولي للصنف ")
           firstunit.Focus()
           Exit Sub
       End If
       Try
           Dim str = "select *from items where itemname=N'" & itemname.Text & "'"
           Dim adp = New SqlDataAdapter(str, Module1.con)
           Dim ds = New DataSet
           adp.Fill(ds)
           Dim dt As DataTable
           If dt.Rows.Count > 0 Then
               MessageBox.Show("اسم الصنف المدخل موجود مسبقا يرجي تغير اسم الصنف")
               itemname.Focus()
           Else
               Dim dr = dt.NewRow
               '=====================بيانات اساسية ==========================
               dr!itemcode = itemcode.Text
               dr!itemserail = itemserial.Text
               dr!itemname = itemname.Text
               dr!CategorizationName = Categorizationname.Text
               dr!size = size.Text
               dr!company = company.Text
               dr!color = color.Text
               dr!origin = origin.Text


               '====================الوحدات===============
               dr!firstunit = firstunit.Text
               dr!firstunitbarcode = firstunitbarcode.Text

               dr!secondunit = secondunit.Text
               dr!secondunitbarcode = secondunitbarcode.Text
               dr!secountunitoperatingconversion = secountunitoperatingconversion.Text

               dr!thirdunit = thirdunit.Text
               dr!thirdunitbarcode = thirdunitbarcode.Text
               dr!thirdtunitoperatingconversion = thirdtunitoperatingconversion.Text
               '================خيارات حدود====================
               dr!maxlimitforfirstunit = maxlimitforfirstunit.Text
               dr!minlimitforfirstunit = minlimitforfirstunit.Text
               dr!orderlimitforfirstunit = orderlimitforfirstunit.Text

               dr!maxlimitforsecondunit = maxlimitforsecondunit.Text
               dr!minlimitforsecondunit = minlimitforsecondunit.Text
               dr!orderlimitforsecondunit = orderlimitforsecondunit.Text

               dr!maxlimitforthirdunit = maxlimitforthirdunit.Text
               dr!minlimitforthirdunit = minlimitforthirdunit.Text
               dr!orderlimitforthirdunit = orderlimitforthirdunit.Text

               If unitdefault1.Checked = True Then dr!unitdefault1 = 1
               If unitdefault2.Checked = True Then dr!unitdefault2 = 2
               If unitdefault3.Checked = True Then dr!unitdefault3 = 3

               '============اسعار البيع===============================================
               dr!itemcode = itemcode.Text
               dr!wholesaleforfirstunit = Val(wholesaleforfirstunit.Text)
               dr!wholesaleforsecondunt = Val(wholesaleforsecondunt.Text)
               dr!wholesaleforthirdunit = Val(wholesaleforthirdunit.Text)
               dr!halfwholesaleforfirstunit = Val(halfwholesaleforfirstunit.Text)
               dr!halfwholesaleforsecondunt = Val(halfwholesaleforsecondunt.Text)
               dr!halfwholesaleforthirdunit = Val(halfwholesaleforthirdunit.Text)
               dr!distributorforfirstunit = Val(distributorforfirstunit.Text)
               dr!distributorforsecondunt = Val(distributorforsecondunt.Text)
               dr!distributorforthirdunit = Val(distributorforthirdunit.Text)
               dr!exportforfirstunit = Val(exportforfirstunit.Text)
               dr!exportforsecondunt = Val(exportforsecondunt.Text)
               dr!exportforthirdunit = Val(exportforthirdunit.Text)
               dr!retailforfirstunit = Val(retailforfirstunit.Text)
               dr!retailforsecondunit = Val(retailforsecondunit.Text)
               dr!retailforthirdunit = Val(retailforthirdunit.Text)
               dr!enduserforfirstunit = Val(enduserforfirstunit.Text)
               dr!enduserforsecondunit = Val(enduserforsecondunit.Text)
               dr!enduserforthirdunit = Val(enduserforthirdunit.Text)

               If pricedefault1.Checked = True Then dr!pricedefault1 = 1
               If pricedefault2.Checked = True Then dr!pricedefault2 = 2
               If pricedefault3.Checked = True Then dr!pricedefault3 = 3
               If pricedefault4.Checked = True Then dr!pricedefault4 = 4
               If pricedefault5.Checked = True Then dr!pricedefault5 = 5
               If pricedefault6.Checked = True Then dr!pricedefault6 = 6
               dt.Rows.Add(dr)
               Dim SAVE As New SqlCommandBuilder(adp)
               adp.Update(dt)
               MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Dim st2 As String = "قم بحفظ صنف" & itemname.Text
               Module1.logfunc(str_username, st2)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


       cl()
       Btn_del.Enabled = False
           Btn_edit.Enabled = False
           Btn_save.Enabled = True
           Button3_Click(sender, e)

Dim dt As DataTable = ds.Tables("items")

(05-02-23, 08:39 PM)ali_ahmed12 كتب :

(05-02-23, 06:11 PM)AnyDesk كتب :

(05-02-23, 01:01 AM)ali_ahmed12 كتب : السلام عليكم لدي كود التالي عندما اضغط علي زر حفظ يظهر رساله تالية 

كود :

If itemname.Text = "" Then
           MessageBox.Show("ادخل اسم الصنف")
           itemname.Focus()
           Exit Sub
       End If
       If Categorizationname.Text = "" Then
           MessageBox.Show("ادخل التصنيف الرئيسي للصنف")
           Categorizationname.Focus()
           Exit Sub
       End If
       If firstunit.Text = "" Then
           MessageBox.Show("ادخل الوحدة الاولي للصنف ")
           firstunit.Focus()
           Exit Sub
       End If
       Try
           Dim str = "select *from items where itemname=N'" & itemname.Text & "'"
           Dim adp = New SqlDataAdapter(str, Module1.con)
           Dim ds = New DataSet
           adp.Fill(ds)
           Dim dt As DataTable
           If dt.Rows.Count > 0 Then
               MessageBox.Show("اسم الصنف المدخل موجود مسبقا يرجي تغير اسم الصنف")
               itemname.Focus()
           Else
               Dim dr = dt.NewRow
               '=====================بيانات اساسية ==========================
               dr!itemcode = itemcode.Text
               dr!itemserail = itemserial.Text
               dr!itemname = itemname.Text
               dr!CategorizationName = Categorizationname.Text
               dr!size = size.Text
               dr!company = company.Text
               dr!color = color.Text
               dr!origin = origin.Text


               '====================الوحدات===============
               dr!firstunit = firstunit.Text
               dr!firstunitbarcode = firstunitbarcode.Text

               dr!secondunit = secondunit.Text
               dr!secondunitbarcode = secondunitbarcode.Text
               dr!secountunitoperatingconversion = secountunitoperatingconversion.Text

               dr!thirdunit = thirdunit.Text
               dr!thirdunitbarcode = thirdunitbarcode.Text
               dr!thirdtunitoperatingconversion = thirdtunitoperatingconversion.Text
               '================خيارات حدود====================
               dr!maxlimitforfirstunit = maxlimitforfirstunit.Text
               dr!minlimitforfirstunit = minlimitforfirstunit.Text
               dr!orderlimitforfirstunit = orderlimitforfirstunit.Text

               dr!maxlimitforsecondunit = maxlimitforsecondunit.Text
               dr!minlimitforsecondunit = minlimitforsecondunit.Text
               dr!orderlimitforsecondunit = orderlimitforsecondunit.Text

               dr!maxlimitforthirdunit = maxlimitforthirdunit.Text
               dr!minlimitforthirdunit = minlimitforthirdunit.Text
               dr!orderlimitforthirdunit = orderlimitforthirdunit.Text

               If unitdefault1.Checked = True Then dr!unitdefault1 = 1
               If unitdefault2.Checked = True Then dr!unitdefault2 = 2
               If unitdefault3.Checked = True Then dr!unitdefault3 = 3

               '============اسعار البيع===============================================
               dr!itemcode = itemcode.Text
               dr!wholesaleforfirstunit = Val(wholesaleforfirstunit.Text)
               dr!wholesaleforsecondunt = Val(wholesaleforsecondunt.Text)
               dr!wholesaleforthirdunit = Val(wholesaleforthirdunit.Text)
               dr!halfwholesaleforfirstunit = Val(halfwholesaleforfirstunit.Text)
               dr!halfwholesaleforsecondunt = Val(halfwholesaleforsecondunt.Text)
               dr!halfwholesaleforthirdunit = Val(halfwholesaleforthirdunit.Text)
               dr!distributorforfirstunit = Val(distributorforfirstunit.Text)
               dr!distributorforsecondunt = Val(distributorforsecondunt.Text)
               dr!distributorforthirdunit = Val(distributorforthirdunit.Text)
               dr!exportforfirstunit = Val(exportforfirstunit.Text)
               dr!exportforsecondunt = Val(exportforsecondunt.Text)
               dr!exportforthirdunit = Val(exportforthirdunit.Text)
               dr!retailforfirstunit = Val(retailforfirstunit.Text)
               dr!retailforsecondunit = Val(retailforsecondunit.Text)
               dr!retailforthirdunit = Val(retailforthirdunit.Text)
               dr!enduserforfirstunit = Val(enduserforfirstunit.Text)
               dr!enduserforsecondunit = Val(enduserforsecondunit.Text)
               dr!enduserforthirdunit = Val(enduserforthirdunit.Text)

               If pricedefault1.Checked = True Then dr!pricedefault1 = 1
               If pricedefault2.Checked = True Then dr!pricedefault2 = 2
               If pricedefault3.Checked = True Then dr!pricedefault3 = 3
               If pricedefault4.Checked = True Then dr!pricedefault4 = 4
               If pricedefault5.Checked = True Then dr!pricedefault5 = 5
               If pricedefault6.Checked = True Then dr!pricedefault6 = 6
               dt.Rows.Add(dr)
               Dim SAVE As New SqlCommandBuilder(adp)
               adp.Update(dt)
               MessageBox.Show("تم حفظ الصنف بنجاح", "رساله تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
               Dim st2 As String = "قم بحفظ صنف" & itemname.Text
               Module1.logfunc(str_username, st2)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try


       cl()
       Btn_del.Enabled = False
           Btn_edit.Enabled = False
           Btn_save.Enabled = True
           Button3_Click(sender, e)

Dim dt As DataTable = ds.Tables("items")

لزالت نفس مشكلة