Foxtable(狐表)用户栏目专家坐堂 → [求助]控件保存存在的问题


  共有2392人关注过本帖平板打印复制链接

主题:[求助]控件保存存在的问题

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20167 威望:0 精华:0 注册:2012/2/3 17:45:00
[求助]控件保存存在的问题  发帖心情 Post By:2020/2/22 21:33:00 [只看该作者]

老师,
控件绑定表列,控件对应的内容,控件绑定,文本、数值、逻辑;但是控件本身不一定是文本、数值、逻辑,例如
{"FileManager","PictureViewer","BarCode"}这三种控件

下列代码,当循环表中控件,将值写入表中,标注颜色的部分,就会报错,上述三种控件貌似不是TEXT,应该怎么写?
 For Each nb As object In pnl.Children
        If nb.Bindingfield > "" Then
            tb=nb.BindingField.Split(".")(0)
            cl=nb.BindingField.Split(".")(1)
            If Tables(tb).Current IsNot Nothing Then
                Dim c As Col = Tables(tb).Cols(cl)
                If c.IsBoolean Then
                    Tables(tb).Current(cl)=nb.checked
                ElseIf c.IsNumeric Then
                    Tables(tb).Current(cl)=nb.value
                Else
                    Tables(tb).Current(cl)=nb.text
                End If
                Tables(tb).FinishEditing
            End If
        End If
    Next



 回到顶部