e.Form.Controls("Table1").Table.Fill("Select 客户,日期 From {订单} WHERE SubString(Convert([日期],'System.String'),1,4) = '" & Date.Today.Year & "'", "数据库", True)