以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90349)
--  作者：cqlwsam
--  发布时间：2016/9/10 15:35:00
--  [求助]代码错误
窗口中通过患者姓名（s1）或出生日期（s2）组成字符串(s3)，进行查询。代码如下：

Dim s1 As String =e.Form.Controls("TextBox1").value
Dim s2 As Date= e.Form.Controls("DateTimePicker1") .value
Dim s3 As String =s1 & Format(s2,"yyyyMMdd")

MainTable = Tables("基本情况")
Tables("基本信息_table1").Filter="patientsID like\'" & "\'%\'" & s3 & "\'%\'"\'"

提示错误如下：
图片点击可在新窗口打开查看此主题相关图片如下：360反馈意见截图16840930116130102.png
图片点击可在新窗口打开查看

我检查了好像不多“’”
--  作者：cqlwsam
--  发布时间：2016/9/10 15:45:00
--  
搞定。Tables("基本信息_table1").Filter="patientsID like\'" & "%" & s3 & "%" & "\'"
--  作者：cqlwsam
--  发布时间：2016/9/10 15:46:00
--  
代码还有其他问题。如日期为空，需要排除。
--  作者：有点蓝
--  发布时间：2016/9/10 16:25:00
--  
贴出代码