| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]数据表下拉输入框能否多列显示并多列输入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132206) |
| -- 作者：hanzhang98 -- 发布时间：2019/3/16 16:51:00 -- [求助]数据表下拉输入框能否多列显示并多列输入的问题 各位老师好！请教老师“数据表下拉输入框能否多列显示并多列输入的问题”： 求助：能否让该下拉输入框能多列显示，即在点击出现的下拉列表中能显示“岗序、序号二、序号三、系数、系数额”五列内容，并将选定的行写入“月度工资表”相应的“岗序、序号二、序号三、系数、系数额”等数据列内。 谢谢。 [此贴子已经被作者于2019/3/24 9:40:22编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/3/16 17:23:00 -- 这种要自己做下拉窗口，比如：http://www.foxtable.com/webhelp/scr/2465.htm |
| -- 作者：hanzhang98 -- 发布时间：2019/3/16 22:08:00 -- 谢谢老师指点。已在表格操作上完美实现。 [此贴子已经被作者于2019/3/16 22:11:34编辑过]
|
| -- 作者：hanzhang98 -- 发布时间：2019/3/16 22:12:00 -- 再请教老师，如果想在窗口的“TextBox”文本框中实现这样的输入，也就是将下拉选择窗口设定在“TextBox1”中，当在下拉选择窗口点击选择时，能同时将所选内容分别写入“TextBox2”、“TextBox3"、”TextBox4“中。能否实现，烦请老师赐教。谢谢。 |
| -- 作者：hanzhang98 -- 发布时间：2019/3/17 10:00:00 -- 以下是引用有点蓝在2019/3/16 17:23:00的发言： 这种要自己做下拉窗口，比如：http://www.foxtable.com/webhelp/scr/2465.htm 谢谢老师指点。已在表格操作上完美实现。 再请教老师，如果想在窗口的“TextBox”文本框中实现这样的输入，也就是将下拉选择窗口设定在“TextBox1”中，当在下拉选择窗口点击选择时，能同时将所选内容分别写入“TextBox2”、“TextBox3"、”TextBox4“中。能否实现，烦请老师赐教。谢谢。
[此贴子已经被作者于2019/3/17 10:01:55编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/3/18 9:10:00 -- 例如 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 |
| -- 作者：hanzhang98 -- 发布时间：2019/3/20 8:08:00 -- 老师们早上好！又出现个新问题需要老师们帮忙指导。就是按照蓝老师指引的“http://www.foxtable.com/webhelp/scr/2465.htm”帮助示例中的代码，并改动如下： 以下内容为程序代码: 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编辑过]
|
| -- 作者：hanzhang98 -- 发布时间：2019/3/20 9:16:00 -- 请老师们在百忙中给看看指导指导。谢谢！ [此贴子已经被作者于2019/3/20 9:16:09编辑过]
|
| -- 作者：有点甜 -- 发布时间：2019/3/20 9:17:00 -- e.Form.DropDownBox.Value = tbl.Current("客户ID") Tables("订单").Current("客户id") = tbl.Current("客户id")
如果还有问题，做个实例发上来测试 |
| -- 作者：hanzhang98 -- 发布时间：2019/3/20 9:20:00 -- 谢谢老师。并且出现在下拉窗口中选择后，反而修改引用的“客户”表的值的情况。 谢谢！
[此贴子已经被作者于2019/3/24 9:41:25编辑过]
|