Foxtable(狐表)用户栏目专家坐堂 → 多值字段的“下拉窗口”能否分页显示


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

主题:多值字段的“下拉窗口”能否分页显示

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/26 15:22:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/26 19:35:00 [显示全部帖子]

看了3楼的吗? 

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名-.jpg
图片点击可在新窗口打开查看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 20:24:00 [显示全部帖子]

 

Dim s As String
s = DataTables("产品").GetComboListString("品类","[品类] = 'A类'")

Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
clb.ComboList = s


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 22:12:00 [显示全部帖子]

DropDownOpened :

Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
clb.value = CurrentTable.current("铺市品项")


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 22:56:00 [显示全部帖子]

测试后,这样可以: 做个关闭的按钮:

Dim clb As WinForm.CheckedListBox = Forms("窗口1").Controls("CheckedListBox1")
With e.Form.DropDownBox
.CloseDropDown()
End With

CurrentTable.focus

CurrentTable.value(CurrentTable.position,"铺市品项") = clb.value

 

[此贴子已经被作者于2010-11-28 23:18:08编辑过]

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 23:28:00 [显示全部帖子]

19楼修改了,再试试。

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 23:35:00 [显示全部帖子]

附上例子来看看

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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/28 23:53:00 [显示全部帖子]

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


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


加好友 发短信 一级勋章
等级:MVP荣誉狐 帖子:5154 积分:31434 威望:0 精华:8 注册:2008/9/8 12:27:00
  发帖心情 Post By:2010/11/29 17:39:00 [显示全部帖子]

晕的时候,附上晕你的例子上来啊~ 

 

下面时你原来的要求:不知那条没有完成?

说明:

本下拉窗口根据“产品”表生成  
产品表中的品项,根据不同的品类对应出现在不同的页面中。可以选择多种产品。
切换到不同行时,打开下拉窗口,之前有打勾的选项又能出现。
当然所选择的产品,都能全部加载到“铺市品项”这个字段。

 

[此贴子已经被作者于2010-11-29 17:39:49编辑过]

 回到顶部