[صالح الشنطى]

(30-09-14, 10:02 PM)Abu Ehab كتب : طيب .. ماشي
هو أساسا أنت لما تبحث بقيمة محددة .. أمامك خياران لا تالت لهما :
أما موجود :
النتيجة  تكون سجل واحد  ,, ومش لازم حلقة For   ,,, خد    الروووو  0

أو مش موجود ... طبعا مفيش نتائج .
بس خلاص

فعلا مش لازم حلقة For للبحث بقيمة محدده ولكن الكود السابق تم اختصاره من كود يقوم بعمليات اخرى داخل حلقة For
وتم تعديل الكود ليصبح بهذا الشكل

PHP كود :

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then
            MsgBox("          يجب ادخال الرقم ", MsgBoxStyle.DefaultButton1, "بحث")
            Exit Sub
        End If
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("Select  * from tabel1  where emp_nom= " & TextBox1.Text & "", cn)
        ds = New DataSet
        da.Fill(ds)

        If ds.Tables(0).Rows.Count = 0 Then
            MsgBox("هذا الرقم غير موجود")
            Exit Sub
        End If

        TextBox1.Text = ds.Tables(0).Rows(0).Item("emp_nom")
        TextBox2.Text = ds.Tables(0).Rows(0).Item("emp_name")
        DateTimePicker1.Value = ds.Tables(0).Rows(0).Item("emp_date")
    End Sub