For i As Integer = 1 To 4
Dim 行 As Row = e.Table.Rows (i - 1)
If 行 IsNot Nothing Then
Dim 文本框 As WinForm.TextBox = Forms("窗口1").Controls("TextBox" & i)
If 文本框 IsNot Nothing Then
文本框.Text = 行("第一列")
End If
Dim 图片 As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox" & i)
If 图片 IsNot Nothing Then
图片.Image = getimage(行("第二列"))
End If
End If
Next