za_nb_addformctrol函数
For Each dr3 As DataRow In drs2
Dim lb As WinForm.Label = forms(frmname).Controls("lb_" & dr3("tblcolid"))
Dim kj As WinForm.control = forms(frmname).Controls("kj_" & dr3("tblcolid"))
kj.Enabled=DataTables(dr3("tbltname")).AllowEdit
lb.top = 3+(i\tet)*h + 30
lb.AutoSize = True
If dr3("nonull")=True Then
lb.ForeColor= Color.Red
End If
lb.left = iif(i Mod tet = 0, 5, w*(i Mod tet))
lb.text = dr3("poutcaption").padright(len-dr3("poutcaption").length) & ":"
kj.top = 3+(i\tet)*h + 30
'kj.left = iif(i Mod tet = 0, 5, w*(i Mod tet)) + lablen
kj.left = iif(i Mod tet = 0, 5, w*(i Mod tet)) +lb.width
kj.width=150
i += 1
Next
加好友 
发短信
Post By：2018/7/28 9:51:00 [只看该作者]
