下面代码如何实现模糊查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.DataCol.Name = "合同日期" Then '发生变化的是政策日期吗?

'在政策表找出该产品

Dim dr As DataRow

dr = DataTables("政策").Find("政策日期 = '" & e.DataRow("合同日期") & "'" )

If dr IsNot Nothing '如果找到, 则设置各列内容

e.DataRow("政策日期")= dr("政策日期")

End If

以上代码只能实现精确查找，但不能模糊匹配。

比如：政策日期有2017-1-1、2017-1-15、2017-2-10，如果合同日期是2017-1-18，期望能自动找到2017-1-15这个政策日期。

如何实现，请各位老师批教。

主题：下面代码如何实现模糊查找