كود :
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Me.NewAdd()
'MsgBox(Me.ListView2.SelectedItems(0).Text)
Dim cm As New SqlDataAdapter("select * from Table1 where ID=" & Val(ListView1.SelectedItems(0).Text) & "", Conn)
Dim ds As New DataSet
ds.Clear()
PictureBox2.DataBindings.Clear()
PictureBox3.DataBindings.Clear()
PictureBox4.DataBindings.Clear()
PictureBox5.DataBindings.Clear()
PictureBox6.DataBindings.Clear()
PictureBox7.DataBindings.Clear()
PictureBox8.DataBindings.Clear()
PictureBox9.DataBindings.Clear()
PictureBox10.DataBindings.Clear()
PictureBox11.DataBindings.Clear()
PictureBox12.DataBindings.Clear()
PictureBox13.DataBindings.Clear()
cm.Fill(ds, "Table1")
TextBox1.DataBindings.Add("text", ds, "Table1.UserName")
TextBox2.DataBindings.Add("text", ds, "Table1.MobileNumber")
TextBox7.DataBindings.Add("text", ds, "Table1.Date")
TextBox45.DataBindings.Add("text", ds, "Table1.Price")
TextBox46.DataBindings.Add("text", ds, "Table1.Rest")
TextBox47.DataBindings.Add("text", ds, "Table1.Recipient")
TextBox4.DataBindings.Add("text", ds, "Table1.NameShop")
TextBox5.DataBindings.Add("text", ds, "Table1.PlaceShop")
TextBox6.DataBindings.Add("text", ds, "Table1.UserShop")
TextBox3.DataBindings.Add("text", ds, "Table1.Email")
TextBox71.DataBindings.Add("text", ds, "Table1.NumberDresses")
TextBox8.DataBindings.Add("text", ds, "Table1.ColorDress1")
TextBox9.DataBindings.Add("text", ds, "Table1.TypeCloth1")
TextBox10.DataBindings.Add("text", ds, "Table1.TypeDesign1")
TextBox11.DataBindings.Add("text", ds, "Table1.TypePocket1")
TextBox20.DataBindings.Add("text", ds, "Table1.IDCloth1")
TextBox21.DataBindings.Add("text", ds, "Table1.LengthM1")
TextBox87.DataBindings.Add("text", ds, "Table1.LengthY1")
TextBox15.DataBindings.Add("text", ds, "Table1.ColorDress2")
TextBox14.DataBindings.Add("text", ds, "Table1.TypeCloth2")
TextBox13.DataBindings.Add("text", ds, "Table1.TypeDesign2")
TextBox12.DataBindings.Add("text", ds, "Table1.TypePocket2")
TextBox22.DataBindings.Add("text", ds, "Table1.IDCloth2")
TextBox23.DataBindings.Add("text", ds, "Table1.LengthM2")
TextBox88.DataBindings.Add("text", ds, "Table1.LengthY2")
TextBox19.DataBindings.Add("text", ds, "Table1.ColorDress3")
TextBox18.DataBindings.Add("text", ds, "Table1.TypeCloth3")
TextBox17.DataBindings.Add("text", ds, "Table1.TypeDesign3")
TextBox16.DataBindings.Add("text", ds, "Table1.TypePocket3")
TextBox24.DataBindings.Add("text", ds, "Table1.IDCloth3")
TextBox25.DataBindings.Add("text", ds, "Table1.LengthM3")
TextBox89.DataBindings.Add("text", ds, "Table1.LengthY3")
TextBox26.DataBindings.Add("text", ds, "Table1.LengthDress")
TextBox27.DataBindings.Add("text", ds, "Table1.DisplayKtf")
TextBox28.DataBindings.Add("text", ds, "Table1.DisplayDress")
TextBox29.DataBindings.Add("text", ds, "Table1.LengthKmSadh")
TextBox30.DataBindings.Add("text", ds, "Table1.LengthKmKbk")
TextBox31.DataBindings.Add("text", ds, "Table1.DisplayKmSadh1")
TextBox32.DataBindings.Add("text", ds, "Table1.DisplayKmSadh2")
TextBox33.DataBindings.Add("text", ds, "Table1.DisplayKmSadh3")
TextBox34.DataBindings.Add("text", ds, "Table1.DisplayKmKbk1")
TextBox35.DataBindings.Add("text", ds, "Table1.DisplayKmKbk2")
TextBox36.DataBindings.Add("text", ds, "Table1.DisplayKmKbk3")
TextBox37.DataBindings.Add("text", ds, "Table1.RakbhKllab1")
TextBox39.DataBindings.Add("text", ds, "Table1.RakbhKllab2")
TextBox40.DataBindings.Add("text", ds, "Table1.RakbhSadh1")
TextBox41.DataBindings.Add("text", ds, "Table1.RakbhSadh2")
TextBox42.DataBindings.Add("text", ds, "Table1.DownDress1")
TextBox43.DataBindings.Add("text", ds, "Table1.DownDress2")
TextBox44.DataBindings.Add("text", ds, "Table1.LengthKbzor")
TextBox38.DataBindings.Add("text", ds, "Table1.Other")
PictureBox2.DataBindings.Add("image", ds, "Table1.Img1U1", True)
PictureBox3.DataBindings.Add("image", ds, "Table1.Img2U1", True)
PictureBox4.DataBindings.Add("image", ds, "Table1.Img3U1", True)
PictureBox5.DataBindings.Add("image", ds, "Table1.Img4U1", True)
'
PictureBox6.DataBindings.Add("image", ds, "Table1.Img1U2", True)
PictureBox7.DataBindings.Add("image", ds, "Table1.Img2U2", True)
PictureBox8.DataBindings.Add("image", ds, "Table1.Img3U2", True)
PictureBox9.DataBindings.Add("image", ds, "Table1.Img4U2", True)
'
PictureBox10.DataBindings.Add("image", ds, "Table1.Img1U3", True)
PictureBox11.DataBindings.Add("image", ds, "Table1.Img2U3", True)
PictureBox12.DataBindings.Add("image", ds, "Table1.Img3U3", True)
PictureBox13.DataBindings.Add("image", ds, "Table1.Img4U3", True)
End Sub
[/COLOR]