Private Sub UserForm_Initialize()
' .....
If InStr(rs.Fields(i).Name, "外分线箱2") Then '对外分线箱2字段设置
.MultiLine = True '文本框多行
.EnterKeyBehavior = True '文本框接受回车键
End If
If InStr(rs.Fields(i).Name, "总机端口") Then .Enabled = False '不许修改
If InStr(rs.Fields(i).Name, "电话号码") Then .Enabled = False '不许修改
End With
If i > 0 Then
.ColumnHeaders.Add , , rs.Fields(i).Name, a(i), lvwColumnCenter '从第2列起居中
Else
'.....
End Sub