动态生成多个checkbox保存值，并固定位置T_T

[momoguagua]

我想动态生成多个CheckBox，我如何固定他们在页面表个内的位置，并且把他们选定的状态值存入到数据库，多谢

[付长松_华为云MVP]

Protected mybox() As TextBox


'页面动态加入控件
Sub AddTextBox(ByVal CanFillFields As String)
Dim i As Integer
Dim Fields() As String
Fields = Split(CanFillFields, "#")
ReDim mybox(Fields.Length - 1)
For i = 0 To Fields.Length - 1
If Fields(i).Trim <> "" Then
mybox(i) = New TextBox
'mybox(i).Enabled = False
mybox(i).Style.Item("width") = 0
If Left(Fields(i), 1) = "签" Then mybox(i).ID = "sign" + Right(Fields(i), Fields(i).Length - 3)
If Left(Fields(i), 1) = "多" Then mybox(i).ID = "m" + Right(Fields(i), Fields(i).Length - 4)
If Left(Fields(i), 1) = "单" Then mybox(i).ID = "s" + Right(Fields(i), Fields(i).Length - 4)
Ph1.Controls.Add(mybox(i))
End If
Next
End Sub

‘把PH1改成TABLE！！

[momoguagua]

谢谢可以用：）可是怎么把选定的状态存入数据库？根据空间的ID判断嘛？可是设置的ID值，在代码里不能进行操作。

[momoguagua]

没人来了？结贴啦！