Foxtable(狐表)用户栏目专家坐堂 → 窗口控件那有多值列表


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

主题:窗口控件那有多值列表

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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
窗口控件那有多值列表  发帖心情 Post By:2017/8/20 11:32:00 [只看该作者]

在窗口控件里那有控件的多值列表

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


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


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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
  发帖心情 Post By:2017/8/25 10:41:00 [只看该作者]

控件找到了,也绑定数据表值 了,



[此贴子已经被作者于2017/8/25 13:15:39编辑过]

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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
  发帖心情 Post By:2017/8/25 10:43:00 [只看该作者]

Enter事件控件
[此贴子已经被作者于2017/8/25 13:16:25编辑过]

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


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

如果你不绑定表列,或者绑定别的表列,是否有问题?

[此贴子已经被作者于2017/8/25 10:49:40编辑过]

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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
  发帖心情 Post By:2017/8/25 11:21:00 [只看该作者]

不绑定数据列是正常的,就是不同步写入后台数据,用什么代码在什么事件下写入后台筛选数据呢???
如果是空值不绑定就正常,绑定就没写入
有可能是代码重叠了,我绑定其它值又正常了
我查看一下
[此贴子已经被作者于2017/8/25 13:15:21编辑过]

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


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

 看看是否你控件其它事件代码影响了?或者是表属性 datacolchanging、datacolchanged 事件有影响。

 

 


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


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
  发帖心情 Post By:2017/8/25 12:03:00 [只看该作者]

CheckedComboBox_TextChanged事件:
If e.form.Controls("ComboBox1").text = "" Then
    e.form.Controls("ComboBox1").text = e.form.Controls("ComboBox1").text & "," & e.form.Controls("CheckedComboBox").text
End If



[此贴子已经被作者于2017/8/25 13:14:36编辑过]

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


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

If e.form.Controls("ComboBox1").text = "" Then
    Tables("jxc_goods").filter = "color_zname,g_sn = '" & e.form.Controls("Labelg_sn").text & "'"
    e.form.Controls("ComboBox1").text = e.form.Controls("CheckedComboBox").text
Else
    Tables("jxc_goods").filter = "g_sn = '" & e.form.Controls("Labelg_sn").text & "'"
    e.form.Controls("ComboBox1").text = e.form.Controls("ComboBox1").text & "," & e.form.Controls("CheckedComboBox").text
End If
e.form.Controls("ComboBox1").writevalue

 回到顶部