以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请修改代码错误！定义变量不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128733)
--  作者：cxmxjwlmq
--  发布时间：2018/12/13 20:39:00
--  请修改代码错误！定义变量不显示

各位老师：原因这个代码运行没有问题

Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count([日期])", "不良描述  Like \'*干涉*\' And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")

现在我想达到的效果是：包涵”干涉“的内容在窗口中的Textbox1值代替，定义了变量，查询时没有结果（其实是有结果的）

Dim a As String = e.form.controls("TextBox1").value \'定义车型
Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count([日期])", "不良描述  Like \'"& a  &"\'  And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")

 

 

请老师指教！
--  作者：有点甜
--  发布时间：2018/12/13 21:04:00
--  

改成

 

Dim a As String = e.form.controls("TextBox1").value \'定义车型
Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count(日期)", "不良描述  Like \'%" & a  & "%\'  And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")

 
--  作者：cxmxjwlmq
--  发布时间：2018/12/17 23:28:00
--  

谢谢老师！