主题：日期段

 

e.Form.Controls("起始日期").Value = #01/20/2019#
e.Form.Controls("结束日期").Value = #10/19/2019#

DataTables("教工合同")

起始日期 是：2019-02-01

起始日期 是：2019-09-30

用e.Form.Controls("起始日期").Value 和e.Form.Controls("结束日期").Value 日期段，查找DataTables("教工合同")表中起始日期和结束日期的日期段

dr = DataTables("教工合同").SQLFind("求代码")
If dr IsNot Nothing Then
   dr("起始日期") = e.Form.Controls("起始日期").Value

   dr("结束日期") = e.Form.Controls("结束日期").Value
End If