(26-02-19, 04:17 PM)asemshahen5 كتب : ده CheckCode("t1", "code", t4.text) بيدي قيمة True أو False و ممكن تضعها في أي Checkbox أو تستخدم قيمتها في الكود دون الرجوع لعرضها في Checkbox .
وفى اى مكان اضع هذا الكود هل فى زر الحفظ ام الفكشن تحياتى لك اخى
PHP كود :
CheckBox1.Checked = CheckCode("t1", "code", t4.text)
PHP كود :
Public Function CheckCode() As Boolean
Dim dt As New DataTable
Dim SqlSt As String = "select * from t1 where code='" & T4.Text & "'"
If con.State = ConnectionState.Closed Then con.Open()
Dim adp As New OleDb.OleDbDataAdapter(SqlSt, con)
adp.Fill(dt)
If dt.Rows.Count = 0 Then
'MsgBox("الكود غير موجود")
CheckCode = False
Else
'MsgBox("الكود موجود")
CheckCode = True
End If
If con.State = ConnectionState.Open Then con.Close()
Return CheckCode
End Function
PHP كود :
Private Sub bsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bsave.Click
If con.State = ConnectionState.Open Then con.Close()
If Val(T7.Text) > Val(T8.Text) Then
MessageBox.Show("سعر التكلفة أكبر من سعر البيع", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If Val(T7.Text) = Val(T8.Text) Then
MessageBox.Show("سعر البيع يساوي سعر التكلفة", "رسالة تأكيد", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If CheckCode() = True Then
' في حالة كود الصنف موجود
Edit()
Else
' في حالة كود الصنف غير موجود
Save()
End If
End Sub
.......... اشكرك اخى واسف لتعبك معى
