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

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

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

mamuaiqing

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

加好友

发短信

等级：四尾狐帖子：824 积分：6288 威望：0 精华：0 注册：2012/3/1 3:17:00

自定义录入界面三问题,请教老师们 发帖心情

Post By：2013/1/9 4:40:00 [只看该作者]

订单表中有"客户姓名"列跟"产品名称"列,下拉窗口做在"产品名称"列中,想实现"客户姓名"列输入内容后,下拉窗口就根据客户姓名筛选出对应的产品名称,下拉窗口的Table绑定的是"客户产品"表,底下是自己研究半天的代码,一直不行,请老师指导下代码哪里出错了,其它位置代码需要改吗?

订单表的ChangeEdit事件代码:

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

下拉窗口DropDownOpened事件代码:

Dim dr As DataRow
Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
If txt = "" Then
    Tables("客户产品下拉窗口_Table1").Filter = "客户姓名 = '" & dr("客户姓名") & "'"
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户姓名 = '" & dr("客户姓名") & "'"And "产品名称 Like " & txt
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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