-- 作者:gaoyong30000
-- 发布时间:2013/1/27 17:34:00
-- [求助]这句selcet语句的2个问题~~~~~~~~~~~~~~
forms("ERP界面").controls("历史进店记录Table3").Visible = True forms("ERP界面").controls("历史进店记录Table3").TopMost = True Dim d1 As Date = Forms("ERP界面").Controls("历史进店记录DateTimePicker9").value Dim t1 As Integer = Forms("ERP界面").Controls("历史进店记录TextBox1").value Dim t3 As Integer = Forms("ERP界面").Controls("历史进店记录TextBox3").value
Tables("历史进店记录_历史进店记录Table3").fill("Select DISTINCT 进店时间,公里数,底盘号 FROM {历史进店记录} where 进店时间 >= \'" & d1.AddDays(-t3) & "\' And 进店时间 \'" & d1.AddDays(-t1) & "\' ","华泰内控系统-ERP",False) Tables("历史进店记录_历史进店记录Table3").Visible = True