Foxtable(狐表)用户栏目专家坐堂 → 有个代码不会写


  共有7841人关注过本帖树形打印复制链接

主题:有个代码不会写

帅哥哟,离线,有人找我吗?
sinbyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1137 威望:0 精华:0 注册:2012/5/23 21:50:00
有个代码不会写  发帖心情 Post By: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

 

老大。如果我想加一段代码意思就是 如果筛选后没有内容也就是空值的话,则打开一个窗口或者对话框应该怎么写。


 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1959 积分:15526 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2012/8/20 8:19:00 [只看该作者]

if Tbl.Rows.count=0 then

....

end if


 回到顶部
帅哥哟,离线,有人找我吗?
sinbyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1137 威望:0 精华:0 注册:2012/5/23 21:50:00
  发帖心情 Post By:2012/8/20 19:44:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部