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