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

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

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

扶风

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

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

[求助]想对下拉表的数据筛选下再下拉总是有一个参数没有被指定值 发帖心情

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

如下代码我写在下拉窗口的dropdownopening事件中请老师帮忙看看

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()

[此贴子已经被作者于2015/7/30 10:19:25编辑过]

扶风

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

加好友

发短信

等级：一尾狐帖子：481 积分：3258 威望：0 精华：0 注册：2015/6/2 8:33:00

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