"form1:tableExReceteList:1:text10" =ad
"form1:tableExReceteList:1:text19"=soyad
"form1:tableExReceteList:1:text8"=kapsam
"form1:tableExReceteList:1:text15"= karekod
Bunlarda değişen sadece satır numaralarının olduğu "list:_:text.." ifadesinde altı çizili yer. Bunun için bu bilgileri aşağıdaki kodla alıyorum.
Kod:
Dim a As Integer
Dim ekle, ekle1, ekle2, ekle3 As String
recliste.RowSource = ""
For a = 0 To 39
ekle = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text10").innertext
ekle1 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text19").innertext
ekle2 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text8").innerrext
ekle3 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text15").innertext
recliste.AddItem ekle & ";" & ekle1 & ";" & ekle2 & ";" & ekle3
Next
Saygılar...