Function list_data()
Dim strsql As String
strsql = "select [id], [c_id], [t_id], [u_id], [u_name], [tim],[bumen],[apply_tim], [type], [caigou_name], [caigou_type], [danwei], [num], [yongtu],[beizhu]"
strsql += "from [Purchase_linshi_biao_fu] where [tim]='" & FormatDateTime('yyyymmdd hh', Now) & "'and [bumen]='" & group() & "' and [type]='" & caigou_type() & "' order by [id] desc"
conn.Bind_samp_grid(strsql, dgfind)
End Function
我只要年月日时,但是单引号不可用,请教有才的高手们!谢谢!
|