Foxtable(狐表)用户栏目专家坐堂 → [讨论]用代码自定义列表项目不能选择是什么问题


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

主题:[讨论]用代码自定义列表项目不能选择是什么问题

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
[讨论]用代码自定义列表项目不能选择是什么问题  发帖心情 Post By:2017/12/12 18:13:00 [只看该作者]

在窗口的ComboBox控件里  如果用属性里的自定义列表项目,正常。但通过下面的代码,即不能选择。是什么问题
Dim cmb As WinForm.ComboBox = e.form.Controls("印色")
cmb.ComboList = DataTables("颜色表").GetComboListString("颜色","","值")

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/12 18:15:00 [只看该作者]

1、你颜色表,有没有数据?有可能没加载数据。

 

2、不能选择,是下拉没有内容还是不能修改值?

 

3、代码没问题的,实例发出来。


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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/12/12 19:14:00 [只看该作者]

颜色表 有内容,能下拉 但下拉后,不能选择,选后值为空白 
[此贴子已经被作者于2017/12/12 19:34:39编辑过]

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/12/12 20:08:00 [只看该作者]

颜色表 有内容,窗口里的控件能下拉出来颜色, 但下拉后,不能选择,选后值为空白 

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


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

下拉的值和绑定的列类型不一致。

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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/12/12 21:40:00 [只看该作者]

是的。下拉是字符型,实际值是整数型。但是我刚全改为字符型 也是一样,没用,只能下拉,选择时就没了
[此贴子已经被作者于2017/12/12 21:45:10编辑过]

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


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

以下是引用静听枫雨在2017/12/12 21:40:00的发言:
是的。下拉是字符型,实际值是整数型。但是我刚全改为字符型 也是一样,没用,只能下拉,选择时就没了
[此贴子已经被作者于2017/12/12 21:45:10编辑过]

 

你控件写了什么代码?你表事件datacolchanged、datacolchanging写了什么代码?有可能冲突了。


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


加好友 发短信
等级:童狐 帖子:255 积分:2152 威望:0 精华:0 注册:2013/6/8 22:41:00
  发帖心情 Post By:2017/12/13 10:04:00 [只看该作者]

DataColChanged  


代码:


If e.DataCol.Name = "印色" Then '如果发生变化的是纸张名称列?

    '在产品表找出该产品

    Dim ys As DataRow

    ys = DataTables("颜色表").SqlFind("值 = " & e.DataRow("印色"))

    If ys IsNot Nothing '如果找到, 则设置各列内容

        e.DataRow("印色单价") = ys("单价")

       End If

End If



但是把这代码注释了,也一样,不行
[此贴子已经被作者于2017/12/13 10:09:56编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/13 10:32:00 [只看该作者]

请,上传具体实例测试。

 回到顶部