控件距离自己调调
Dim count As Integer = Tables("表A").Rows.Count - 1
Dim idx As Integer = 0
For i As Integer = 0 To count Step 3
Dim r As Row
Dim lbl As WinForm.Label
For j As Integer = 0 To 2
Dim k As Integer = i+j
If k <= count
r = Tables("表A").Rows(k)
lbl = e.Form.CreateControl("Label" & (k), ControlTypeEnum.Label)
lbl.Left = 10 + 90 * j
lbl.Top = 10 + (idx)*25
lbl.Text = r("第一列")
e.Form.Controls("Panel1").AddControl(lbl)
End If
Next
idx += 1
Next