试试改成这样，你最好msgbox一下生成的条件看一下，或者截个图。
DataTables("收购").LoadFilter = "[猪主姓名] <> '" & xj.Text & "' And [日期] = #" & vars("adate") & "#"
加好友 
发短信
Post By：2014/4/30 17:21:00 [显示全部帖子]
