Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]想对下拉表的数据筛选下再下拉 总是有一个参数没有被指定值


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

主题：[求助]想对下拉表的数据筛选下再下拉 总是有一个参数没有被指定值
帅哥哟，离线，有人找我吗？
扶风
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 15:41:00 [只看该作者]

好的谢谢老师我去看看

 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 15:44:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：111.png
图片点击可在新窗口打开查看
老师 有如上报错呢

 回到顶部
帅哥哟，离线，有人找我吗？
狐表开发
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00 		  发帖心情 Post By：2015/7/30 15:50:00 [只看该作者]

Dim f1 As String = Forms("电容料号录入").Controls("ComboBox17").Value
Dim f2 As String = Forms("电容料号录入").Controls("ComboBox18").Value
Dim Filter As String
With DataTables("物料表")
Select Case f2
    Case "环氧"
      Select Case f1
        Case "散件"
        Filter = "Substring(代码,23,1) = 'E' And Substring(代码,20,1) = 'B'"

        Case Else
        Filter = "Substring(代码,23,1) = 'E' And Substring(代码,20,1) <> 'B'"
      End Select
    Case Else
       Select Case f1
        Case "散件"
        Filter = "Substring(代码,23,1) = 'P' And Substring(代码,20,1) = 'B'"
        Case Else
        Filter = "Substring(代码,23,1) = 'P' And Substring(代码,20,1) <> 'B'"
      End Select
End Select
End With

msgbox(Filter)
DataTables("物料表").LoadFilter = Filter
DataTables("物料表").Load()

看下合成Filter是什么
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 15:55:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：222.png
图片点击可在新窗口打开查看
是这样的老师

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2015/7/30 15:58:00 [只看该作者]


Dim f1 As String = Forms("电容料号录入").Controls("ComboBox17").Value
Dim f2 As String = Forms("电容料号录入").Controls("ComboBox18").Value
Dim Filter As String
msgbox(f1)
msgbox(f2)
With DataTables("物料表")
Select Case f2
    Case "环氧"
      Select Case f1
        Case "散件"
        Filter = "Select *  f rom {行政区域} where [代码] like '______________________P%' And [代码]  Like '____________________B%'"
        Case Else
        Filter = "Select * f rom {行政区域} where [代码] like '_______________________P%' And [代码] Not Like "'____________________B%'"
      End Select
    Case Else
       Select Case f1
        Case "散件"
        Filter = "Select * f rom {行政区域} where [代码] like '______________________P%' And [代码]  Like '____________________B%'"
        Case Else
        Filter = "Select * f rom {行政区域} where [代码] like '_______________________P%' And [代码] Not Like "'____________________B%'"

      End Select
End Select
End With

DataTables("物料表").SqlLoad(Filter)


其中前面一个长线表示23个'_'，后面一个长线表示20个'_'

[此贴子已经被作者于2015/7/30 15:59:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 16:01:00 [只看该作者]

这个长线要输23个或者20个吗

 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 16:02:00 [只看该作者]

还有这样会不会影响物料表的实际内容   这样操作后物料表的数据会变少了吗

 回到顶部
帅哥哟，离线，有人找我吗？
狐表开发
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00 		  发帖心情 Post By：2015/7/30 16:06:00 [只看该作者]

Dim f1 As String = Forms("电容料号录入").Controls("ComboBox17").Value
Dim f2 As String = Forms("电容料号录入").Controls("ComboBox18").Value
Dim Filter As String
With DataTables("物料表")
Select Case f2
    Case "环氧"
      Select Case f1
        Case "散件"
        Filter = "Mid(代码,23,1) = 'E' And Mid(代码,20,1) = 'B'"

        Case Else
        Filter = "Mid(代码,23,1) = 'E' And Mid(代码,20,1) <> 'B'"
      End Select
    Case Else
       Select Case f1
        Case "散件"
        Filter = "Mid(代码,23,1) = 'P' And Mid(代码,20,1) = 'B'"
        Case Else
        Filter = "Mid(代码,23,1) = 'P' And Mid(代码,20,1) <> 'B'"
      End Select
End Select
End With

DataTables("物料表").LoadFilter = Filter
DataTables("物料表").Load()
 回到顶部
帅哥哟，离线，有人找我吗？
狐表开发
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00 		  发帖心情 Post By：2015/7/30 16:13:00 [只看该作者]

还是改回你原先的MID,就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
扶风
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00 		  发帖心情 Post By：2015/7/30 16:18:00 [只看该作者]

老师 怎么我之前不行现在改回来又可以了？
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05811 秒, 4 次数据查询