Foxtable(狐表) → 用户栏目 → 专家坐堂 → ComboBox控件绑定表后，就不让再加新的项目了


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

主题：ComboBox控件绑定表后，就不让再加新的项目了
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/9 20:17:00 [显示全部帖子]

那就不能绑定表了，这样用

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号") & "|新增加的值"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/13 20:19:00 [显示全部帖子]

上传具体实例说明要做什么功能

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/13 21:21:00 [显示全部帖子]

上级分类使用下拉窗口的方式进行选择，选择后记录id：http://www.foxtable.com/webhelp/scr/2466.htm

代码类似，上级分类自己改改

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim dt As DataTable = DataTables("T_shopkind")
    Dim dr As DataRow= dt.find("id='" & nd.Name &"'")     '本级id
    If dr IsNot Nothing
        dr("mc") = e.Form.Controls("TextBox1").text
        Dim p As String = e.Form.Controls("ComboBox1").text
        If p > "" Then
            Dim pr As DataRow=DataTables("T_shopkind").find("mc='" & p &"'")
            If dr IsNot Nothing
                dr("UpID") = pr("ID")
            End If
        Else
            dr("UpID") = 0
        End If
        tr.StopRedraw()
        tr.Nodes.Clear
        'tr.Nodes.Add("货品分类结构")
        For Each dr In dt.datarows
            If dr("upid")=0 Then
                nd = tr.Nodes.Add(dr("id"),dr("mc") & "(ID:" & dr("id") & ")")
                Functions.Execute("AddChildren",nd,dt)
            End If
        Next
        tr.ResumeRedraw()
    End If
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/16 21:48:00 [显示全部帖子]

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim dt As DataTable = DataTables("T_shopkind")
    Dim dr As DataRow= dt.find("id='" & nd.Name &"'")     '本级id
    If dr IsNot Nothing
        dr("mc") = e.Form.Controls("TextBox1").text
        Dim p As String = e.Form.Controls("ComboBox1").text
        If p > "" Then
            If p="最顶层"
                dr("UpID") = 0
            Else
                Dim pr As DataRow=DataTables("T_shopkind").find("mc='" & p &"'")
                If dr IsNot Nothing
                    dr("UpID") = pr("ID")
                End If
            End If
        Else
            dr("UpID") = 0
        End If
        tr.StopRedraw()
        tr.Nodes.Clear
        'tr.Nodes.Add("货品分类结构")
        For Each dr In dt.datarows
            If dr("upid")=0 Then
                nd = tr.Nodes.Add(dr("id"),dr("mc") & "(ID:" & dr("id") & ")")
                Functions.Execute("AddChildren",nd,dt)
            End If
        Next
        tr.ResumeRedraw()
    End If
    
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/16 22:15:00 [显示全部帖子]

不明白到底要实现什么效果。如果不加最顶层，那就留空，不选也就是最顶层

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/3/20 21:55:00 [显示全部帖子]

不是很明白你要什么效果，我也不是很理解这个用法，等明天甜版看看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询