Dim arry(0, 3) ReDim arry(Me.DataSet11.TABLE1.Rows.Count - 1, 3) Dim i As Integer For i = 0 To Me.DataSet11.TABLE1.Rows.Count - 1 Dim j As Integer For j = 0 To Me.DataSet11.TABLE1.Columns.Count - 1 arry(i, j) = Me.DataSet11.TABLE1.Rows(i)(j) Label1.Text = Label1.Text.ToString & arry(i, j).ToString Next Next
ReDim arry(Me.DataSet11.TABLE1.Rows.Count - 1, 3)
Dim i As Integer
For i = 0 To Me.DataSet11.TABLE1.Rows.Count - 1
Dim j As Integer
For j = 0 To Me.DataSet11.TABLE1.Columns.Count - 1
arry(i, j) = Me.DataSet11.TABLE1.Rows(i)(j)
Label1.Text = Label1.Text.ToString & arry(i, j).ToString
Next
Next