各位老师好,我用fill查询表后 ,做了下面的条件加载,但是没有按条件加载,还是全部加载了。不知是怎么错了。。。。
sql = " "
sql+ = " "
'MessageBox.Show(sql)
Tables("售后录入关联VIP行为信息_售后录入关联VIP行为信息").Fill(sql,"VIP数据", True)
Dim dt3 As DataTable = DataTables("售后录入关联VIP行为信息_售后录入关联VIP行为信息")
With Tables("售后录入_售后录入")
If .Current Is Nothing Then
dt3.loadFilter = "[_Identify] Is Null"
dt3.sqlload(sql)
Else
dt3.loadFilter = "VIP卡号 = '" & .Current("店员填写_VIP卡号") & "'"
dt3.sqlload(sql)
End If
End With