以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  网址型列设置不能保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145546)
--  作者：tld
--  发布时间：2020/1/29 12:33:00
--  网址型列设置不能保存
老师，下面的代码有什么问题？某列执行代码后变成了网址型，但是我保存退出后重新进入到该表，发现原先的设置的网址型恢复为字符型了，不知道什么原因。谢谢！
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
--  作者：有点蓝
--  发布时间：2020/1/29 13:05:00
--  
正常，这种使用代码设置的功能仅在程序运行时有效，如果表格被卸载，或者重启项目，就需要重新使用代码设置。一般把设置代码放到afteropenproject