If frm.TableName = Frm.Name Then
For Each cl As Col In Tables(frm.TableName).Cols
Name = Name & "|" & cl.Name
If Max < cl.Name.Length Then
Max = cl.Name.Length
End If
Next
Dim i As Integer = 0
Dim Multi As String = Name
Dim Values() As String
Values = Multi.split("|")
Dim rowCnts,colCnts As Integer
For Index As Integer = 1 To Values.Length - 1
Dim sb As WinForm.TextBox
Dim sb1 As WinForm.Label
Dim rq As WinForm.DateTimePicker
Dim sh As WinForm.CheckBox
If i Mod MaxColCnts = 0 Then
RowCnts +=1
ColCnts = 0
offestWidth =0
End If
colCnts +=1
sb = e.Form.CreateControl(Values(Index),ControlTypeEnum.TextBox)
sb1 = e.Form.CreateControl(Values(Index),ControlTypeEnum.Label)
sb1.Text = Values(Index).Padleft(Max," ") & ":"
sb1.AutoSize = True
sb1.Height = 25
sb1.Width = Max +3
sb1.TextAlign =ContentAlignment.MiddleRight
sb1.Left =colcnts * 10 + offestWidth
sb1.Top =Rowcnts * 10 + offestHeight
frmWidth = Math.Max(frmWidth,sb1.left + sb1.width)
frmHeight = Math.Max(frmHeight,sb1.Top + sb1.Height)
加好友 
发短信
Post By：2013/2/19 14:16:00 [显示全部帖子]
