Foxtable(狐表)用户栏目专家坐堂 → 下拉窗口设置


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

主题:下拉窗口设置

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


加好友 发短信
等级:婴狐 帖子:38 积分:296 威望:0 精华:0 注册:2015/2/7 13:50:00
下拉窗口设置  发帖心情 Post By:2015/2/14 9:09:00 [只看该作者]

求助各位大神:

本人有以下需求:

1.物料属性共有五级,类型一级(如A、B、C)、类型二级(如A中有A1、A2、A3,B中有B1、B2、B3),以此类推共有五级;

2.物料表内共有类型一级、类型二级···类型五级,物料编号,其他一共七列。

3.想设置一个录入窗口,包含五个下拉窗口,分别对应类型一级至五级,然后在类型一级选择完成后(如选择B)再选择类型二级时只列出与类型一级有关的选项(如只显示B1、B2、B3供选择);

4.还有一个编码窗口用于在定义出五级属性之后从表中自动编号然后读到该窗口显示。

5.最有还有一个窗口用于写入“其他”列的内容。

不知道以上功能能够实现?具体应该怎么操作?求大神指点,不胜感激······


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/14 9:13:00 [只看该作者]

参考http://www.foxtable.com/help/topics/1523.htm
自己设计一个窗口,用表格保存数据

实在搞不定就上例子吧


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


加好友 发短信
等级:婴狐 帖子:38 积分:296 威望:0 精华:0 注册:2015/2/7 13:50:00
  发帖心情 Post By:2015/2/14 9:24:00 [只看该作者]

谢谢斑竹的快速回复~~~

貌似只解决了五级关联下拉窗口的问题,还有自动编号后读取到窗口的呢?再次烦请斑竹大大帮忙···


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/14 9:33:00 [只看该作者]

利用 DataColChanged事件 http://www.foxtable.com/help/topics/0625.htm

select case e.datacol.name
    case "列1","列2","列3"
        e.datarow("编号")=e.datarow("列1") & e.datarow("列2") & e.datarow("列3")
end select

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


加好友 发短信
等级:婴狐 帖子:38 积分:296 威望:0 精华:0 注册:2015/2/7 13:50:00
  发帖心情 Post By:2015/2/14 11:11:00 [只看该作者]

搞定了,谢谢斑竹!!!

还有个小问题:类型一级至五级已经选完,但是还未录入的时候发现某级选错,在更改后能够让后续的几级自动变成待选状态?

参看附图1、2,附图2中二级已经更改,如何让三四五级都变成初始的待选状态(空白等待点击下拉进行选择)


图片点击可在新窗口打开查看此主题相关图片如下:刚录入.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:二级已更改.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/2/14 11:21:44编辑过]

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/14 11:14:00 [只看该作者]

上传图片看这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

最好就直接设置一个清空按钮

设置代码

dim r as row = tables("X").current
r("列1")=""
r("列2")=""

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


加好友 发短信
等级:婴狐 帖子:38 积分:296 威望:0 精华:0 注册:2015/2/7 13:50:00
  发帖心情 Post By:2015/2/14 11:24:00 [只看该作者]

不好意思刚才忘了上传图片~~~

直接清空再选比较麻烦,想修改一个后面的都清空。

麻烦斑竹再教下~~~


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/14 11:29:00 [只看该作者]

修改第一个后面的都清空?   在DataColChanged事件

dim ls as string()={"列1","列2","列3"}

select case e.datacol.name
    case "列1","列2","列3"
       Dim b As Boolean
       for each s as string in ls
            if b then
              e.datarow(s)=""
           end if
            if s == e.datacol.name then
                  b=true
           end if
           
       next
end select

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


加好友 发短信
等级:婴狐 帖子:38 积分:296 威望:0 精华:0 注册:2015/2/7 13:50:00
  发帖心情 Post By:2015/2/14 13:36:00 [只看该作者]

能否注释一下每行是什么意思?

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/14 14:06:00 [只看该作者]

dim ls as string()={"列1","列2","列3"}   '声明一个数组 包含所有参与的列,顺序一定要符合你的先后顺序

select case e.datacol.name '判断当前触发改变的列名
    case "列1","列2","列3"   '判断如果是符合你要求的列名
       Dim b As Boolean   '  增加一个逻辑类型的变量, 作为标识.
       for each s as string in ls  '遍历用到的列名数组 从第一个开始
            if b then   ' 判断标识如果是True 则说明这个列名的列需要清空
              e.datarow(s)=""   '清空
           end if
            if s == e.datacol.name then   '判断一下当前触发改变的列是否和遍历到的列名是一致 
                  b=true   '如果是一致,说明这个列就是你改变了列,那么从这个列开始,后面的列就需要清空了, 设置标识为True  下次循环的时候 因为标识已经为True就会把列清空
           end if
           
       next
end select

 回到顶部
总数 11 1 2 下一页