Foxtable(狐表)用户栏目专家坐堂 → [求助]字典很卡求助


  共有5215人关注过本帖树形打印复制链接

主题:[求助]字典很卡求助

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)试试If e.Sender.Gettype.name = "Co...  发帖心情 Post By:2020/4/15 12:09:00 [只看该作者]

坛主,上楼代码报错,辛苦有空再帮忙了

 回到顶部
帅哥,在线噢!
有点蓝
  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/15 14:11:00 [只看该作者]

什么错误!!!!!!!!!!!!!!!!

 回到顶部
帅哥哟,离线,有人找我吗?
miaoqingqing
  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)什么错误!!!!!!!!!!!!!...  发帖心情 Post By:2020/4/15 14:33:00 [只看该作者]

.NET Framework 版本:4.0.30319.34209
Foxtable 版本:2020.4.10.8
错误所在事件:窗口,窗口下拉录入,Enter
详细错误信息:
未将对象引用设置到对象的实例。

项目这个事件代码是否也要修改?
AfterSelChange
 
Dim dr As DataRow
If e.OldRange.RowSel <> e.NewRange.RowSel OrElse e.OldRange.ColSel <> e.NewRange.ColSel Then
Dim c As Col = e.Table.Cols(e.NewRange.ColSel)
    If c.IsString Then
        dr=DataTables("列项设置").find("表名='" & e.Table.name & "' and 列名='" & c.Name & "' and 下拉选项 Is not null and 停用=false")
        If dr IsNot Nothing Then
            If dr("多值字段")=True Then
                DataTables(e.Table.name).DataCols(c.name).ExtendType = ExtendTypeEnum.Values
            ElseIf dr("多值字段")=False Then
                DataTables(e.Table.name).DataCols(c.name).ExtendType = ExtendTypeEnum.none
            End If
            c.AllowDirectType=dr("允许编辑")
            c.combolist=dr("下拉选项")
        Else
            c.combolist=""
        End If
    End If
End If



[此贴子已经被作者于2020/4/15 14:34:32编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/15 15:32:00 [只看该作者]

……
        Else
            Dim d As String = DataTables("列项设置").GetComboListString("下拉选项","表名='" & ary(0) & "' and 列名='" & ary(1) & "' and 下拉选项 Is not null and 停用=false")
            If d > "" Then
                e.Sender.AllowEditValue = false
                e.sender.ComboList = d
            Else
                e.sender.combolist= " "
            End If
        End If
    End If
End If

 回到顶部
总数 44 上一页 1 2 3 4 5