- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有个代码不会写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22637)
-- 发布时间：2012/8/20 8:15:00
-- 有个代码不会写
Dim txt As
String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End
If
老大。如果我想加一段代码意思就是 如果筛选后没有内容也就是空值的话，则打开一个窗口或者对话框应该怎么写。
-- 发布时间：2012/8/20 8:19:00
--
if Tbl.Rows.count=0 then
....
end if
-- 发布时间：2012/8/20 19:44:00
--
