ابغى اعرض بيانات فاتورة في
data grid
المشكلة البيانات تتكرر في الداتا قريد انا اخزن البيانات في جدول مؤقت وبعدين اعرضها في الداتا قريد
البيانات ماتتكرر في الجدول لكن تتكرر في الداتا قريد بطرقة غريبة يعني يكرر الصف الاول اذا كانت صفين فقط ويكرر الصفين الاول والثاني اذاكانت ثلاثة صفوف
انا استخدم فيجوال بيسيك دوت نت 2005 و
sql200
Dim con32 As SqlClient.SqlConnection
con32 = New SqlClient.SqlConnection
con32.ConnectionString = "initial catalog=accountprog ; integrated security=sspi;user id=sa"
con32.Open()
Dim cm1 As SqlClient.SqlCommand
cm1 = New SqlClient.SqlCommand
cm1.Connection = con32
cm1.CommandText = "select * from InvoiceBackdetal where ReternNO='" & Trim(TextBoxb48.Text) & "'"
cm1.CommandType = CommandType.Text
Dim read1 As SqlClient.SqlDataReader
read1 = cm1.ExecuteReader
Dim ds1 As New DataSet
While read1.Read()
Dim con1 As SqlClient.SqlConnection
con1 = New SqlClient.SqlConnection
con1.ConnectionString = "initial catalog=accountprog ; integrated security=sspi;user id=sa"
con1.Open()
Dim sq11 As String
Dim da1 As SqlClient.SqlDataAdapter
sq11 = "select* from temp"
da1 = New SqlClient.SqlDataAdapter(sq11, con1)
da1.Fill(ds1, "temp")
Dim dt1 As DataTable
dt1 = ds1.Tables("temp")
Dim dr1 As DataRow
dr1 = dt1.NewRow
dr1("©êھںéëه") = read1.Item("ItemCode")
dr1("ں«ê ںéëه") = read1.Item("ItemNameA")
dr1("ںéèêï،") = read1.Item("Qantity")
dr1("ںé«م©") = read1.Item("Price")
dr1("ںé¤êںéï") = read1.Item("Total")
dt1.Rows.Add(dr1)
Dim cd1 As New SqlCommandBuilder(da1)
da1.Update(ds1, "temp")
End While
read1.Close()
DataGridView2.DataSource = ds1.Tables("temp")
DataGridView2.Refresh()