Dim txt As String = Args(0) '筛选的数据表名称Dim txt1 As String = Args(1) '要筛选的列
Dim dr As DataRow = DataTables("yhgl").SQLFind("yhzh = '"& _yhzh &"'")
If dr IsNot Nothing Then DataTables(txt).LoadFilter = txt1 & " = '" & dr("zybm") & "'" DataTables(txt).LoadEnd If