以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这是怎么回事啊?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83347)

--  作者:hongyefor
--  发布时间:2016/4/6 21:17:00
--  这是怎么回事啊?


图片点击可在新窗口打开查看此主题相关图片如下:cw.jpg
图片点击可在新窗口打开查看
我只是在TextChanged里写了以下代码:

Dim txt As String = e.Form.Controls("发票查询").Text
Dim tbl As Table = Tables("发票明细")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "发票号码 Like " & txt & " Or 开票日期 Like " & txt & " Or 价税合计 Like "& txt & " Or 销方税号 Like " & txt & "  Or 认证时间 Like " & txt & " Or 销方名称 Like " & txt
End If


--  作者:pyh6918
--  发布时间:2016/4/6 21:23:00
--  
开票日期 Like " & txt

日期型好象不能用like

--  作者:hongyefor
--  发布时间:2016/4/6 21:23:00
--  
那怎么改啊
--  作者:hongyefor
--  发布时间:2016/4/6 21:30:00
--  
好像不是这个问题
--  作者:pyh6918
--  发布时间:2016/4/6 21:32:00
--  
先判断txt能否转换为日期型、或数值型,再Filter
--  作者:bahamute
--  发布时间:2016/4/6 21:33:00
--  
日期用between
--  作者:hongyefor
--  发布时间:2016/4/6 21:34:00
--  
能帮我写一下代码吗?
--  作者:大红袍
--  发布时间:2016/4/6 21:49:00
--  
tbl.Filter = "发票号码 Like " & txt & " Or Convert(开票日期,\'System.String\') Like " & txt & " Or 价税合计 Like "& txt & " Or 销方税号 Like " & txt & "  Or Convert(认证时间, \'System.String\') Like " & txt & " Or 销方名称 Like " & txt

--  作者:大红袍
--  发布时间:2016/4/6 21:50:00
--  
 

 如果你要做查询,用这种方式才对。

 

http://www.foxtable.com/help/topics/1058.htm