老师，下面的代码有什么问题？某列执行代码后变成了网址型，但是我保存退出后重新进入到该表，发现原先的设置的网址型恢复为字符型了，不知道什么原因。谢谢！
Dim cmbox8 As WinForm.ComboBox = e.Form.Controls("ComboBox8")
Dim tbox6 As WinForm.TextBox = e.Form.Controls("TextBox6")
Dim cmbox9 As WinForm.ComboBox = e.Form.Controls("ComboBox9")
Dim cmbox7 As WinForm.ComboBox = e.Form.Controls("ComboBox7")
If cmbox8.Text<>"" And cmbox9.Text<>"" Then
'----------------------------------------------------------------设置扩展类型
If Tables(cmbox8.text).Cols(cmbox9.text).IsString And cmbox7.Value<>"" Then
Select Case cmbox7.Text
Case "网址"
DataTables(cmbox8.text).DataCols(cmbox9.text).ExtendType = ExtendTypeEnum.web
Case "邮件"
DataTables(cmbox8.text).DataCols(cmbox9.text).ExtendType = ExtendTypeEnum.email
Case "文件"
DataTables(cmbox8.text).DataCols(cmbox9.text).ExtendType = ExtendTypeEnum.file
Case "多值字段"
If tbox6.Text<>"" Then
DataTables(cmbox8.text).DataCols(cmbox9.text).ExtendType = ExtendTypeEnum.values
Tables(cmbox8.text).Cols(cmbox9.text).ComboList = e.Form.Controls("TextBox6").text
End If
Case "图片"
DataTables(cmbox8.text).DataCols(cmbox9.text).ExtendType = ExtendTypeEnum.images
End Select
End If
End If
加好友 
发短信
Post By：2020/1/29 12:33:00 [只看该作者]
