[求助]想对下拉表的数据筛选下再下拉总是有一个参数没有被指定值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3622人关注过本帖树形打印复制链接主题：[求助]想对下拉表的数据筛选下再下拉总是有一个参数没有被指定值

狐表开发

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 14:24:00 [显示全部帖子]

Dim f1 As String = Forms("电容料号录入").Controls("ComboBox17").Value
Dim f2 As String = Forms("电容料号录入").Controls("ComboBox18").Value
Dim f3 As String
Dim Filter As String
If f1 = "散件" Then
    If f2 = "环氧" Then
       f3 = "9"
       Else
       f3 = "12"
    End If
Else
    If f2 = "环氧" Then
       f3 = "10"
    Else
       f3 = "11"
    End If
End If

Filter = "默认工艺路线_FInterID= " & f3
DataTables("物料表").LoadFilter = Filter
DataTables("物料表").Load()

狐表开发

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 14:48:00 [显示全部帖子]

你那Mid(代码,23,1)中的代码是指啥?不是这么用的

狐表开发

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 14:52:00 [显示全部帖子]

你要取那字段的值

狐表开发

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 14:57:00 [显示全部帖子]

[此贴子已经被作者于2015/7/30 15:00:45编辑过]

狐表开发

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 15:04:00 [显示全部帖子]

不用

狐表开发

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 15:35: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 = "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

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

狐表开发

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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是什么

狐表开发

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：194 积分：1168 威望：0 精华：0 注册：2015/6/8 21:38:00

Post By：2015/7/30 16:06:00 [显示全部帖子]

        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