自定义录入界面三问题,请教老师们 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义录入界面三问题,请教老师们

共有8852人关注过本帖树形打印复制链接主题：自定义录入界面三问题,请教老师们

lin_hailun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 8:51:00 [显示全部帖子]

这样试一下

If e.Col.Name = "产品名称" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "'"
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'*" & e.Text & "*'"
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "' Or 产品名称 Like " & txt
        End If
    End If
End If

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/9 18:35:00 [显示全部帖子]

以下是引用mamuaiqing在2013-1-9 17:37:00的发言：
还有个问题,下拉窗口打开后用键盘"上下箭"移动或鼠标选择的时候怎么设置行的颜色?在表样式里一直尝试都不行,只针对列,不针对一整行

看看，整行突出。

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

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/10 8:57:00 [显示全部帖子]

你这句要实现什么样的筛选？

"客户姓名 = '" & e.Row("客户姓名") & "' Or 产品名称 Like " & txt

lin_hailun

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/10 17:11:00 [显示全部帖子]

不会提示错误才对的。试试，不行就联系客服QQ

If e.Col.Name = "产品名称" Then '如果编辑的是客户ID列
    If e.Col.DroppedDown Then '如果下拉窗口已经打开
        Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
        If e.Text = "" Then '如果内容为空
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "'"
        Else '否则根据输入内容进行模糊筛选
            Dim txt As String = "'*" & e.Text & "*'"
            tbl.Filter = "客户姓名 = '" & e.Row("客户姓名") & "' And 产品名称 Like " & txt
        End If
    End If
End If

lin_hailun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2013/1/10 18:02:00 [显示全部帖子]

以下是引用mamuaiqing在2013-1-10 17:29:00的发言：

再请教下林总,我在表KeyPressEdit事件中加了个判断,如果输入的客户姓名在"客户表"中不存在,也就是代表新客户,则关闭下拉按钮,下拉窗口不打开,代码该怎么写?

加一个判断就行了

If Datatables("客户表").Find("客户名称 = 'xxx'") isnot nothing then
Cols("产品名称").DropForm = "xxx"
End if

下一主题 >> << 上一主题

主题：自定义录入界面三问题,请教老师们