以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想更完善一下自定义录入界面，求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115939)
--  作者：yellow
--  发布时间：2018/3/16 23:22:00
--  想更完善一下自定义录入界面，求解
按照说明文档”自定义录入界面之三“做了一个录入界面。现在想更完善一下：当录入内容模糊筛选后，没有相应条目时出现一个弹窗提示是否要新增。怎样做呢？
--  作者：有点蓝
--  发布时间：2018/3/17 8:41:00
--  
2、将订单表的ChangeEdit事件代码设置为:

If e.Col.Name = "客户ID" Then \'如果编辑的是客户ID列
    If e.Col.DroppedDown Then \'如果下拉窗口已经打开
        Dim tbl As Table = Tables("窗口1_Table1") 
        If e.Text = "" Then \'如果内容为空
            tbl.Filter = "" \'显示所有客户
        Else \'否则根据输入内容进行模糊筛选
            Dim txt As String = "\'%" & e.Text & "%\'"
            tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
        End If
        If tbl.Rows.Count = 0 Then
            MessageBox.Show("请新增")
        End If
    End If
End If
--  作者：yellow
--  发布时间：2018/3/17 21:11:00
--  
原来是用tbl.Rows.Count = 0
懂了，谢谢！