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


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

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

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)Dim dr As DataRowIf e.OldRange.Row...  发帖心情 Post By:2020/1/20 16:55:00 [只看该作者]

放在enter或打开窗口后事件,里面都报错

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/20 16:57:00 [只看该作者]

20楼的代码和enter事件以及窗口有什么关系?自己写的代码自己都看不懂了吗

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
回复:(有点蓝)20楼的代码和enter事件以及窗口有什么...  发帖心情 Post By:2020/1/20 18:00:00 [只看该作者]

群主,放在项目AfterSelChange里,表单元格下拉筛选正确,但是窗口控件下拉筛选失效,辛苦再帮忙了
[此贴子已经被作者于2020/1/20 18:14:40编辑过]

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


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

看看20楼代码和之前的用法多了些什么,照搬到控件里使用

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/1/21 10:11:00 [只看该作者]

群主20楼代码放在控件enter里面报错,不会调试,辛苦帮忙了。
手机UC浏览器已上传 报错图片,论坛显示不了

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


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

写了什么代码,把您改后的代码发上来

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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/1/21 11:56:00 [只看该作者]

enter事件代码,报错辛苦群主了
If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
    
    Dim ary() As String = e.Sender.BindingField.Split(".")
    Dim filter As String = "表名 = '" & ary(0) & "' and 列名 = '" & ary(1) & "' and 下拉选项 Is not null and 停用=false  and ','+条件值+',' like '%," & e.Table.Rows(e.NewRange.RowSel)("列项条件列") & ",%'"
    Dim fdr As DataRow = DataTables("列项设置").Find(filter)
    If fdr IsNot Nothing
        e.sender.ComboList = fdr("下拉选项")
        e.Sender.AllowEditValue = fdr("允许编辑")
    End If
    
    If fdr Is Nothing
        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
        e.sender.AllowDirectType=dr("允许编辑")
        e.sender.ComboList = =dr("下拉选项")
    Else
        e.sender.combolist=""
    End If
    
End If


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


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


If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
    
    Dim ary() As String = e.Sender.BindingField.Split(".")
    Dim r As Row = Tables(ary(0)).Current
    If r IsNot Nothing Then
        Dim filter As String = "表名 = '" & ary(0) & "' and 列名 = '" & ary(1) & "' and 下拉选项 Is not null and 停用=false  and ','+条件值+',' like '%," & r("列项条件列") & ",%'"
        Dim fdr As DataRow = DataTables("列项设置").Find(filter)
        If fdr Is Nothing
            DataTables("列项设置").Find("表名='" & ary(0) & "' and 列名='" & ary(1) & "' and 下拉选项 Is not null and 停用=false and 条件值='其他'")
        End If
        If fdr IsNot Nothing
            e.sender.ComboList = fdr("下拉选项")
            e.Sender.AllowEditValue = fdr("允许编辑")
        End If
        
        If fdr Is Nothing
            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
            e.sender.AllowDirectType=dr("允许编辑")
            e.sender.ComboList = =dr("下拉选项")
        Else
            e.sender.combolist=""
        End If
    End If
End If


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


加好友 发短信
等级:三尾狐 帖子:660 积分:5180 威望:0 精华:0 注册:2019/7/26 12:54:00
  发帖心情 Post By:2020/1/21 15:08:00 [只看该作者]

群主辛苦再帮忙了,还是有问题
If e.Sender.Gettype.name = "ComboBox" AndAlso e.Sender.BindingField > "" Then
    
    Dim ary() As String = e.Sender.BindingField.Split(".")
    Dim r As Row = Tables(ary(0)).Current
    If r IsNot Nothing Then
        Dim filter As String = "表名 = '" & ary(0) & "' and 列名 = '" & ary(1) & "' and 下拉选项 Is not null and 停用=false  and ','+条件值+',' like '%," & r("列项条件列") & ",%'"
        Dim fdr As DataRow = DataTables("列项设置").Find(filter)
        
        If fdr IsNot Nothing Then
            e.sender.ComboList = fdr("下拉选项")
            e.Sender.AllowEditValue = fdr("允许编辑")
        End If
        
        If fdr Is Nothing Then
            Dim dr As DataRow
            dr = DataTables("列项设置").Find("表名='" & ary(0) & "' and 列名='" & ary(1) & "' and 下拉选项 Is not null and 停用=false and 条件值='其他'")
            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
                e.sender.AllowDirectType=dr("允许编辑")
                e.sender.ComboList = dr("下拉选项")
            Else
                e.sender.combolist=""
            End If
        End If
    End If
End If




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


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

这段代码去掉

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

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