01-06-16, 01:01 AM
السلام عليكم
استبدل كود البحث بهذا الكود
تحياتي
استبدل كود البحث بهذا الكود
PHP كود :
Try
cler()
Dim sql As String = "select * from tbl1 WHERE HijriID =" & Convert.ToInt32(TextBox1.Text) & ""
Dim bda As New OleDb.OleDbDataAdapter(sql, con)
Dim bdt As New DataTable
bda.Fill(bdt)
txtid.Text = bdt.Rows(0)("HijriID").ToString
tex1.Text = bdt.Rows(0)("HijriYear").ToString
tex.Text = bdt.Rows(0)("b")
txt_date.Text = bdt.Rows(0)("b1")
tex3.Text = bdt.Rows(0)("b2")
tex5.Text = bdt.Rows(0)("b3")
tex6.Text = bdt.Rows(0)("b4")
tex7.Text = bdt.Rows(0)("b5")
tex8.Text = bdt.Rows(0)("b6")
If (Not bdt.Rows(0)("b7").Equals(DBNull.Value)) Then
tex9.Text = bdt.Rows(0)("b7")
End If
tex10.Text = bdt.Rows(0)("b8")
If (Not bdt.Rows(0)("b9").Equals(DBNull.Value)) Then
bb1.Text = bdt.Rows(0)("b9")
End If
tex12.Text = bdt.Rows(0)("b10")
tex20.Text = bdt.Rows(0)("b11")
tex11.Text = bdt.Rows(0)("b12")
If (Not bdt.Rows(0)("b13").Equals(DBNull.Value)) Then
bb2.Text = bdt.Rows(0)("b13")
End If
If (Not bdt.Rows(0)("b14").Equals(DBNull.Value)) Then
bb4.Text = bdt.Rows(0)("b14")
End If
If (Not bdt.Rows(0)("b15").Equals(DBNull.Value)) Then
bb5.Text = bdt.Rows(0)("b15")
End If
If (Not bdt.Rows(0)("b16").Equals(DBNull.Value)) Then
bb7.Text = bdt.Rows(0)("b16")
End If
IDLb.Text = bdt.Rows(0)("ID")
If bdt.Rows.Count > 0 Then
Else
MsgBox("لاتوجد معاملات بهذا الرقم")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
btn_Save.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
End Sub
تحياتي
