If flt IsNot Nothing Then
Tables("订单").DataTable.LoadFilter = "(" & flt.Substring(4) & ")) and 员工代码]='YG' and 员工编号 is not null"
Tables("订单").DataTable.Load()
Else
Tables("订单").DataTable.LoadFilter ="员工代码]='YG' and 员工编号 is not null"
End If