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


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

主题:ComboBox控件绑定表后,就不让再加新的项目了

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


加好友 发短信
等级:三尾狐 帖子:731 积分:5463 威望:0 精华:0 注册:2017/6/1 23:12:00
ComboBox控件绑定表后,就不让再加新的项目了  发帖心情 Post By:2018/3/9 19:15:00 [只看该作者]

ComboBox控件绑定表后,就不让再加新的项目了,有办法加一个表里没有的数据吗?
[此贴子已经被作者于2018/3/9 19:40:08编辑过]

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


加好友 发短信
等级:超级版主 帖子:23887 积分:121851 威望:0 精华:7 注册: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("型号") & "|新增加的值"


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


加好友 发短信
等级:三尾狐 帖子:731 积分:5463 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/13 9:55:00 [只看该作者]

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号") 
这种方式能获取到这条记录其他值吗?在不显示的情况下?

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


加好友 发短信
等级:版主 帖子:74445 积分:373353 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 9:58:00 [只看该作者]

以下是引用xxfoxtable在2018/3/13 9:55:00的发言:
 
这种方式能获取到这条记录其他值吗?在不显示的情况下?

 

什么意思?获取什么其他值?同一行的其它列的值?请具体你的问题。


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


加好友 发短信
等级:三尾狐 帖子:731 积分:5463 威望:0 精华:0 注册:2017/6/1 23:12:00
  发帖心情 Post By:2018/3/13 12:56:00 [只看该作者]

对,数据库中同一行的其他值,按名查找怕重名


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


加好友 发短信
等级:版主 帖子:74445 积分:373353 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/13 14:49:00 [只看该作者]

以下是引用xxfoxtable在2018/3/13 12:56:00的发言:

对,数据库中同一行的其他值,按名查找怕重名

 

要把每一行的主键列存放起来才行的。

 

方法一:把主键列和你要显示的列都显示出来,选择之后,根据主键列find到对应的行;

 

方法二:用一个变量,或者用控件的属性 cmb.basecontrol.tag = "1|2|3|4" 把各个主键的信息记录起来,选择以后,根据排序找到主键,再find对应的行。


 回到顶部
客人(42.56.*.*)
  7楼


  发帖心情 Post By:2018/3/13 19:43:00 [只看该作者]

方法二:用一个变量,或者用控件的属性 cmb.basecontrol.tag = "1|2|3|4" 把各个主键的信息记录起来,选择以后,根据排序找到主键,再find对应的行。
这个方法能帮我做个例子吗?

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


加好友 发短信
等级:超级版主 帖子:23887 积分:121851 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/3/13 20:19:00 [只看该作者]

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

 回到顶部
客人(42.56.*.*)
  9楼


  发帖心情 Post By:2018/3/13 20:44:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar

就是修改按钮代码怎么写,因为有可能存在重名的情况 

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


加好友 发短信
等级:超级版主 帖子:23887 积分:121851 威望:0 精华:7 注册: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

 回到顶部
总数 25 1 2 3 下一页