[求助]数据表下拉输入框能否多列显示并多列输入的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师好！请教老师“数据表下拉输入框能否多列显示并多列输入的问题”：

即：有两个数据表，分别为：“标准表”、“月度工资表”。在两个表中都有相同的数据列“岗序、序号一、序号二、序号三、系数、系数额”。在“月度工资表”的“岗序”列已设置下拉输入框（只能单列显示并输入），其值取自“标准表”内容。

求助：能否让该下拉输入框能多列显示，即在点击出现的下拉列表中能显示“岗序、序号二、序号三、系数、系数额”五列内容，并将选定的行写入“月度工资表”相应的“岗序、序号二、序号三、系数、系数额”等数据列内。谢谢。

[此贴子已经被作者于2019/3/24 9:40:22编辑过]

这种要自己做下拉窗口，比如：http://www.foxtable.com/webhelp/scr/2465.htm

谢谢老师指点。已在表格操作上完美实现。

[此贴子已经被作者于2019/3/16 22:11:34编辑过]

再请教老师，如果想在窗口的“TextBox”文本框中实现这样的输入，也就是将下拉选择窗口设定在“TextBox1”中，当在下拉选择窗口点击选择时，能同时将所选内容分别写入“TextBox2”、“TextBox3"、”TextBox4“中。能否实现，烦请老师赐教。谢谢。

以下是引用有点蓝在2019/3/16 17:23:00的发言：
这种要自己做下拉窗口，比如：http://www.foxtable.com/webhelp/scr/2465.htm

谢谢老师指点。已在表格操作上完美实现。

[此贴子已经被作者于2019/3/17 10:01:55编辑过]

例如

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

        If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else '如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If

老师们早上好！又出现个新问题需要老师们帮忙指导。就是按照蓝老师指引的“http://www.foxtable.com/webhelp/scr/2465.htm”帮助示例中的代码，并改动如下：

1、没有在“窗口的DropDownOpened事件设置代码”，因为我不需要根据输入内容进行模糊筛选（“客户表”只有4列10行，且“客户ID”列也不能进行模糊筛选）；

2、没有在“订单表的ChangeEdit事件设置代码”，原因同上；

3、在“窗口的DropDownClosed事件设置代码”使用如下代码：

以下内容为程序代码:

1 如果除了客户ID列，还要同时从客户表选择其它多列内容输入到订单表，可以将DropDownClosed事件代码改为：
2
3 If e.Selected Then '如果选择了值
4 Dim tbl As Table = Tables("窗口1_Table1")
5 If tbl.Current IsNot Nothing Then
6 e.Form.DropDownBox.Value = tbl.Current("客户ID")
7 Tables("订单").Current("其它列1") = tbl.Current("其它列1")
8 Tables("订单").Current("其它列2") = tbl.Current("其它列2")
9 Tables("订单").Current("其它列3") = tbl.Current("其它列3")
10 If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
11 e.Form.DropTable.FinishEditing()
12 Else '如果是通过窗口下拉的
13 e.Form.DropDownBox.WriteValue()
14 End If
15 End If
16 End If

上述改动及代码直接在“订单表”表中操作，在其“客户ID”列点击打开下拉窗口并选择时一切正常，所选“客户ID”行的所有列内容都能正确的写入到“订单表”的相应列（包括“客户ID”列自身）；

现在出现的问题是：在“录入窗体” 的控件“DropBox1” （绑定“订单表”的“客户ID列”，下拉窗口是“窗口1”）中使用时，点击打开下拉窗口并选择时也正常。但是，所选“客户ID”行的除“客户ID”列自身内容以外的其它列内容都能正确的写入到“订单表”的相应列和“录入窗体” 的相应三个控件“TextBox1” 中，但“客户ID”列自身内容却写不进“订单表”的“客户ID”列和“录入窗体” 的控件“DropBox1” 中。

不知问题出在那里、代码应如何修改，请老师们帮助指导。谢谢！

[此贴子已经被作者于2019/3/24 9:39:52编辑过]

请老师们在百忙中给看看指导指导。谢谢！

[此贴子已经被作者于2019/3/20 9:16:09编辑过]

e.Form.DropDownBox.Value = tbl.Current("客户ID")

Tables("订单").Current("客户id") = tbl.Current("客户id")

如果还有问题，做个实例发上来测试

谢谢老师。并且出现在下拉窗口中选择后，反而修改引用的“客户”表的值的情况。

谢谢！

[此贴子已经被作者于2019/3/24 9:41:25编辑过]

主题：[求助]数据表下拉输入框能否多列显示并多列输入的问题