If Trim(OleDsField.Tables("Field").Rows(i).Item("column_enable")) = "是" Then
　　mytextbox.Enabled = True
　Else
　　mytextbox.Enabled = False
　End If

　c2.Controls.Add(mytextbox)
　r.Cells.Add(c2)
　Table3.Rows.Add(r)
Next

(编辑:aniston)