[asemshahen5]

(09-03-20, 04:41 PM)Hanyvedio كتب : السلام عليكم اخوانى الكرام انا متابع للمنتدى و لسة مبتدا فى تعلم البرمجة 
بحاول اتعرف على الاكواد والداتا بيز وطريقة ربطهم والحمدلله تمام 
بصراحة فة حاجات هنا اتعلمتها كانت جديدة عليا بفضلكم "والفضل كلة لله "
فى حاجة بشوفها منتشرة جدا على الرغم ان فى برامج الحسابات والمخازن المتعارف عليها مبتبقاش كدا 
وهى ادخال الكود او معرف الصنف فى اول كولم فى الداتا قريد فيو و بمجرد انتر يظهر باقى البيانات
اسم الصنف - كميتة بالمخزن - سعرة - الخ 
دا مش بلاقية خالص حد بيقوم بية لازم يكون عن طريق التعامل TEXTBOX وبعد كدا ادراج فى الداتا قريد فيو
اكيد فى طريقة لانشاء برنامج بشاشات احترافية وادخال البيانات بطريقة مباشرة الى الداتا قريد فيو 
وشكرا لكم واعتزر عن الاطالة

جرب هذا الكود :

PHP كود :

   Private Sub Dgv1_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles Dgv1.RowEnter
        If e.ColumnIndex = 1 Or e.ColumnIndex = 0 Then
            If Dgv1.CurrentRow Is Nothing Or e.RowIndex - 1 < 0 Then
                Exit Sub
            End If
            Dim i As Integer = Dgv1.Rows(e.RowIndex - 1).Cells(0).Value
            If i = 0 Then
                Exit Sub
            End If
            Dim sqlstr As String = "Select Barcode,QtnName,Qtn From QtnTbl where Barcode=" & i
            Dim dAdpt As New SqlClient.SqlDataAdapter(sqlstr, con)
            Dim dt As New DataTable
            dAdpt.Fill(dt)
            If dt.Rows.Count > 0 Then
                If Dgv1.CurrentRow Is Nothing Then
                    Exit Sub
                End If
                Dgv1.Rows(e.RowIndex - 1).Cells(1).Value = dt.Rows(0)(1).ToString
                Dgv1.Rows(e.RowIndex - 1).Cells(2).Value = dt.Rows(0)(2).ToString
            End If
        End If
    End Sub
    Private Sub Dgv1_RowLeave(sender As Object, e As DataGridViewCellEventArgs) Handles Dgv1.RowLeave
        If e.ColumnIndex = 1 Or e.ColumnIndex = 0 Then
            Dim i As Integer = Dgv1.Rows(e.RowIndex).Cells(0).Value
            If i = 0 Then
                Exit Sub
            End If
            Dim sqlstr As String = "Select Barcode,QtnName,Qtn From QtnTbl where Barcode=" & i
            Dim dAdpt As New SqlClient.SqlDataAdapter(sqlstr, con)
            Dim dt As New DataTable
            dAdpt.Fill(dt)
            If dt.Rows.Count > 0 Then
                Dgv1.Rows(Dgv1.CurrentRow.Index).Cells(1).Value = dt.Rows(0)(1).ToString
                Dgv1.Rows(Dgv1.CurrentRow.Index).Cells(2).Value = dt.Rows(0)(2).ToString
            End If
        End If
    End Sub 


Dgv1 هو اسم الجدول .