1、
Tables("").Fill("SELECT * FROM {采购订单} WHERE EXISTS (SELECT * FROM {销售订单} WHERE {销售订单}.合同号 = {采购订单}.合同号) and 合同号 = '" & Tables("某表").Current("合同号") & "'", false)
http://www.foxtable.com/webhelp/scr/1777.htm
2、设置dataformat事件,写成
e.Text = Format(e.value, "yyyy-MM-dd")