主题：[原创]菜鸟也能用foxtable开发自己的应用程序，图文视频教程[连载结束，整理至1楼]

辛苦了

好东西，我喜欢，为人民服务

第二章，

第三部分，快速建立消费明细表和产品表，并设置表事件

创建会员消费明细表，如图

此主题相关图片如下：01.png

创建产品表，如图

此主题相关图片如下：02.png

说明：这两个表本身很简单，没有什么需要特殊设置的。真正的难点在于如何弄清楚两个表之间的关系。

我们还是按照夕然的模式进行分析。

对于产品表，基本上没有需要特别说明的地方，建议大家先把产品表建立完成。

对于消费明细表，主要消费来自于产品表；

我们主要关注消费明细表的设置；

会员消费表之系统设置的预见性——增加时候的事件

当产生一个新的消费明细的时候，有如下的列发生变化：

1.消费编号,需要继承会员消费表的消费编号

这里只需要通过关联设置即可；

2.产品名称，希望能够模糊输入或者下拉选择（这个是本节的重点讲述内容）

3.当模糊输入产品名称后，其他的列希望能自动输入（这个是本节的重点讲述内容）

4.产品数量，就是另外一个需要手动输入的内容；

这个无须多讲了

5.合计金额为表达式列，自动计算

这里只需要设置表达式即可;

要求：在单元格输入的时候，能自动弹出一个窗口，能进行模糊搜索，输入产品名称之后，自动填入单价信息。

我们来分析这个需求，其实有两个信息需要去解释：

1. 自动弹出窗口，能进行模糊搜索，将搜索的结果填入产品名称字段

2. 输入产品名称之后，自动填入相关信息；

第一个问题：

根据帮助文件，搜索自定义录入界面；

帮助文件已经写得非常详细了，我把心得给大家分享一下。

这里我主要参考  自定义录入界面三。界面如下：

此主题相关图片如下：34.png

当我们点击产品列进行输入的时候，就会自动弹出一个窗口

首先设计一个下拉窗口

这个窗口含一个表，这个表 通过  单元格的输入情况 进行显示

我们将这句话，变成计算机语言

在dropdownopen中设计如下

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    Tables("窗口1_Table1").Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

这样下拉窗口显示后，会自动根据下拉列表框的内容，筛选出可能的客户，并将输入焦点返回到下拉列表框。

这个是帮助源文件，大家可以根据实际情况进行设置

接着，双击某行数据，这个行数据就会填充到当前的单元格。

首先，双击之后这个窗口关闭，执行关闭代码

Forms("窗口1").DropDownBox.CloseDropDown()

这样在下拉窗口双击某个客户，就会关闭下拉窗口。

关闭的时候执行另外一个操作，将选择的值，填入到单元格

将窗口的DropDownClosed事件代码设置为：

If e.Selected Then '如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("客户ID")
    End If
    e.Form.DropDownBox.CloseDropDown()
End If

这样关闭下拉窗口后，可以自动将选定客户的客户ID输入到下拉列表框中。

在我们的系统中，一样类似的设置，输入产品名称之后，自动填入单价信息。

其他，更为详细的设置，请参见帮助文件。这里只穿针引线。

第二个问题，就是当输入产品名称之后需要自动填入其他相关信息；

看起来似乎很复杂，其实就是将窗口的当前行的某列输入到表中当前行的某列吗？

table（）.current(a) = 窗口.current(a)

类似这样的做法。

其实我们在之前学习过，利用表达式的方法获取数据的技术，这里当然也可以用find

只不过两张表同时为当前表，你看得见的，就不用find了

类似这样

如果除了客户ID列，还要同时从客户表选择其它多列内容输入到订单表，可以将DropDownClosed事件代码改为：