conn.Open()
cmd = New SqlCommand
Dim InsertString1 As String
Dim txt_batchno(i) As TextBox
txt_batchno(i) = New TextBox
'txt_batchno(n).Text = txtbatchno.Text
n = txt_nos.Text
' For i = 0 To i = n - 1
'compvar(i) = txtbatchno.Text
' Next
' MsgBox("value of compvar(i)" & compvar(i).Item(i))
'MsgBox("value of compvar(i)" & compvar(1))
'For i = 0 To i = n - 1
i = 0
' If i <= n - 1 Then
' MsgBox("value of compvar(i)" compvar(i))
compvar(i).Item(i) = New ArrayList
Dim s1 As String
txt_batchno(i).ext = compvar(i).Item(i)
s1 = compvar(i).Add(txt_batchno(i).Text)
' MsgBox("value of compvar(i)" & compvar(i).Item(i))
txt_batchno(i).Text = s1 'compvar(i)compvar(i).Item(i).ToString
InsertString1 = "select * from brakedisc_info where batchno='" & txt_batchno(i).Text & "'" ' and batchno='" & txt_batchno(i + 1).Text & "'"
compareDS = New DataSet("compare")
DA = New SqlDataAdapter(InsertString1, conn)
DA.Fill(compareDS, "brakedisc_info")
DataGridView1.DataSource = compareDS.Tables(0)
'i = i + 1
' End If
'Next
End Sub
Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click
conn = New SqlConnection("server=acer;initial catalog=breakdiskprocessdata;integrated security=sspi")
conn.Open()
n = txt_nos.Text
Dim InsertString1, s1 As String
Dim txt_batchno(i) As TextBox
txt_batchno(i) = New TextBox
Dim flag As Boolean
flag = True
i = 0
compvar(i) = New ArrayList
'For i = 0 To i = n - 1
If flag = True Then
If i <= n - 1 Then
compvar(i).Insert(i, txtbatchno.Text)
txtbatchno.Text = ""
Me.Show()
MsgBox("array contains:" & compvar(i).Item(i))
i = i + 1
End If
End If
' Next
' If i <= n - 1 Then
'flag = False
' If flag = False Then
'InsertString1 = "select * from brakedisc_info where batchno='" & txt_batchno(i).Text & "'" ' and batchno='" & txt_batchno(i + 1).Text & "'"
'MsgBox("value of compvar(i)" & compvar(i).Item(i))
' txt_batchno(i).Text = compvar(i).Item(i)
' InsertString1 = "select * from brakedisc_info where batchno='" & txt_batchno(i).Text & "'" ' and batchno='" & txt_batchno(i + 1).Text & "'"
' compareDS = New DataSet("compare")
' DA = New SqlDataAdapter(InsertString1, conn)
' DA.Fill(compareDS, "brakedisc_info")
' DataGridView1.DataSource = compareDS.Tables(0)
' End If
' End If
End Sub
End Class
Thanks in advance...
">