Dim str As String = e.Form.Controls("DropBox2").value
Dim filter As String
If e.Sender.Value = "未对账" Then
filter = " 供应商简称 = '"& str & "'and 申请单号 is null "
ElseIf e.Sender.value = "已对账" Then
filter = " 供应商简称 = '"& str & "'and 申请单号 is not null " '这个条件未实现
ElseIf e.Sender.value = "全部" Then
filter = " 供应商简称 = '"& str & "'"
End If
DataTables("入库单").LoadFilter = filter
DataTables("入库单").Load()