主题：[求助]想对下拉表的数据筛选下再下拉 总是有一个参数没有被指定值

这个地方不能用Mid函数吗

要把物料表中代码列的所有值全都取出来吗？  这样能不能实现对该表的筛选效果

不用

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