21-06-15, 02:12 AM
سلام عليكم
رمضان مبارك عليكم ان شاء الله
انا بعمل تعديل من الجريد فيو
ازاى؟
ببحث عن اسم صنف وبظهر النتائج فى الجريد فيو
مثلا الجريد فيو ظهرت 4 صفوف من البحث او اصف او اكثر وخلافه
انا عاوز اعدل بس بشرط
المستخدم مش يكتب صنف متسجل قبل كدة
يعنى جدول بيانات الاصناف فيه مثلا
لبن
زبادى
عصير
لو المستخدم بحث عن عصير وظهرت فى الجريد فيو
لو كتب لبن
يقوله عفوا الصنف متسجل قبل كدة
وده الكود
If MsgBox("هل انت متأكد بالقيام بعمليه الحفظ؟ ? ", MsgBoxStyle.YesNo, "المحاسب البسيط للمبيعات والمشتريات") = MsgBoxResult.Yes Then
Dim i As Integer
For i = dgv.Rows.Count - 1 To 0 Step -1
Dim data = From d In DBVariable.Data.asnafs
Where d.Name = dgv.Rows(i).Cells(1).Value.ToString()
Select d
If (data.Count() > 0) Then
MainForm.CreateBallon(MainForm.ButtonItem14, "الأصناف", "اسم الصنف موجود")
Return False
End If
Dim stor As New DB.asnaf
stor.code = dgv.Rows(i).Cells(0).Value.ToString()
stor.Name = dgv.Rows(i).Cells(1).Value.ToString()
stor.unit = dgv.Rows(i).Cells(2).Value.ToString()
stor.pritot = dgv.Rows(i).Cells(3).Value.ToString()
stor.pri = dgv.Rows(i).Cells(4).Value.ToString()
stor.limt = dgv.Rows(i).Cells(5).Value.ToString()
DBVariable.Data.SubmitChanges()
Next
Else
MsgBox("خطأ هذا الصنف مكرر من قبل وشكرا", MsgBoxStyle.Information, "المحاسب البسيط للمبيعات والمشتريات")
Return False
End If
رمضان مبارك عليكم ان شاء الله
انا بعمل تعديل من الجريد فيو
ازاى؟
ببحث عن اسم صنف وبظهر النتائج فى الجريد فيو
مثلا الجريد فيو ظهرت 4 صفوف من البحث او اصف او اكثر وخلافه
انا عاوز اعدل بس بشرط
المستخدم مش يكتب صنف متسجل قبل كدة
يعنى جدول بيانات الاصناف فيه مثلا
لبن
زبادى
عصير
لو المستخدم بحث عن عصير وظهرت فى الجريد فيو
لو كتب لبن
يقوله عفوا الصنف متسجل قبل كدة
وده الكود
If MsgBox("هل انت متأكد بالقيام بعمليه الحفظ؟ ? ", MsgBoxStyle.YesNo, "المحاسب البسيط للمبيعات والمشتريات") = MsgBoxResult.Yes Then
Dim i As Integer
For i = dgv.Rows.Count - 1 To 0 Step -1
Dim data = From d In DBVariable.Data.asnafs
Where d.Name = dgv.Rows(i).Cells(1).Value.ToString()
Select d
If (data.Count() > 0) Then
MainForm.CreateBallon(MainForm.ButtonItem14, "الأصناف", "اسم الصنف موجود")
Return False
End If
Dim stor As New DB.asnaf
stor.code = dgv.Rows(i).Cells(0).Value.ToString()
stor.Name = dgv.Rows(i).Cells(1).Value.ToString()
stor.unit = dgv.Rows(i).Cells(2).Value.ToString()
stor.pritot = dgv.Rows(i).Cells(3).Value.ToString()
stor.pri = dgv.Rows(i).Cells(4).Value.ToString()
stor.limt = dgv.Rows(i).Cells(5).Value.ToString()
DBVariable.Data.SubmitChanges()
Next
Else
MsgBox("خطأ هذا الصنف مكرر من قبل وشكرا", MsgBoxStyle.Information, "المحاسب البسيط للمبيعات والمشتريات")
Return False
End If