以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- ComboBox控件绑定表后,就不让再加新的项目了 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=115597) |
||||
-- 作者:xxfoxtable -- 发布时间:2018/3/9 19:15:00 -- ComboBox控件绑定表后,就不让再加新的项目了 ComboBox控件绑定表后,就不让再加新的项目了,有办法加一个表里没有的数据吗? [此贴子已经被作者于2018/3/9 19:40:08编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2018/3/9 20:17:00 -- 那就不能绑定表了,这样用 Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1") cmb.ComboList = DataTables("表A").GetComboListString("型号") & "|新增加的值" |
||||
-- 作者:xxfoxtable -- 发布时间:2018/3/13 9:55:00 -- Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1") cmb.ComboList = DataTables("表A").GetComboListString("型号") 这种方式能获取到这条记录其他值吗?在不显示的情况下?
|
||||
-- 作者:有点甜 -- 发布时间:2018/3/13 9:58:00 -- 以下是引用xxfoxtable在2018/3/13 9:55:00的发言:
这种方式能获取到这条记录其他值吗?在不显示的情况下?
什么意思?获取什么其他值?同一行的其它列的值?请具体你的问题。 |
||||
-- 作者:xxfoxtable -- 发布时间:2018/3/13 12:56:00 -- 对,数据库中同一行的其他值,按名查找怕重名 |
||||
-- 作者:有点甜 -- 发布时间:2018/3/13 14:49:00 -- 以下是引用xxfoxtable在2018/3/13 12:56:00的发言:
对,数据库中同一行的其他值,按名查找怕重名
要把每一行的主键列存放起来才行的。
方法一:把主键列和你要显示的列都显示出来,选择之后,根据主键列find到对应的行;
方法二:用一个变量,或者用控件的属性 cmb.basecontrol.tag = "1|2|3|4" 把各个主键的信息记录起来,选择以后,根据排序找到主键,再find对应的行。 |
||||
-- 作者:客人 -- 发布时间:2018/3/13 19:43:00 -- 方法二:用一个变量,或者用控件的属性 cmb.basecontrol.tag = "1|2|3|4" 把各个主键的信息记录起来,选择以后,根据排序找到主键,再find对应的行。 这个方法能帮我做个例子吗?
|
||||
-- 作者:有点蓝 -- 发布时间:2018/3/13 20:19:00 -- 上传具体实例说明要做什么功能 |
||||
-- 作者:客人 -- 发布时间:2018/3/13 20:44:00 --
就是修改按钮代码怎么写,因为有可能存在重名的情况
|
||||
-- 作者:有点蓝 -- 发布时间: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 |