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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]想对下拉表的数据筛选下再下拉总是有一个参数没有被指定值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72437)

--  作者：扶风
--  发布时间：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编辑过]

--  作者：扶风
--  发布时间：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

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

[此贴子已经被作者于2015/7/30 13:27:53编辑过]

--  作者：扶风
--  发布时间：2015/7/30 14:17:00
--
老师求帮助啊

--  作者：狐表开发
--  发布时间：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()

--  作者：扶风
--  发布时间：2015/7/30 14:25:00
--
好的谢谢老师我去试试

--  作者：扶风
--  发布时间：2015/7/30 14:33:00
--
老师我现在想用2楼的代码要怎么修改

--  作者：扶风
--  发布时间：2015/7/30 14:45:00
--

求大红袍老师指点

--  作者：扶风
--  发布时间：2015/7/30 14:47:00
--

--  作者：狐表开发
--  发布时间：2015/7/30 14:48:00
--

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

--  作者：扶风
--  发布时间：2015/7/30 14:50:00
--
那是表中有个字段就叫“代码”