|
Dim t As Table =Tables("查证汇总_table1")
With Tables("查证汇总")
If .Current Is Nothing AndAlso .Current.Isnull("交易户名") = False AndAlso .Current.Isnull("资金类型") = False AndAlso .Current.Isnull("调查项目") = False Then
t.Filter = "False"
Else
Dim hm As String = .Current("交易户名").replace(",", "','")
Dim zjlx As String = .Current("资金类型").replace(",", "','")
t.Filter = "交易户名 in ('" & hm & "') and 资金类型 in ('" & zjlx & "') and 调查项目 = '" & .Current("调查项目") & "'"
End If
End With
|
加好友 
发短信
Post By：2017/10/6 10:51:00 [显示全部帖子]
