Tables("客户统计_Table1").Fill("Select a.ord, a.name,c.sort2,d.menuname,a.address,a.phone,a.fax," _
& " a.zdy1,a.zdy2,a.zdy3,a.zdy4,e.name,e.mobile,e.mobile2 , dbo.fun_GetTelReplyIntro(a.ord),a.email" _
& " from tel a left JOIN reply b on 1=1 left JOIN sort5 c on c.id=a.sort1 " _
& " left JOIN menuarea d on d.id=a.area left join person e on e.ord=a.person" _
& " group by a.ord, a.name,c.sort2,d.menuname,a.address,a.phone,a.fax,a.zdy1,a.zdy2," _
& "a.zdy3,a.zdy4,e.name,e.mobile,e.mobile2 , dbo.fun_GetTelReplyIntro(a.ord),a.email ","jr_zb",True)