Foxtable(狐表)用户栏目专家坐堂 → [求助]数据表下拉输入框能否多列显示并多列输入的问题


  共有4925人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
hanzhang98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
[求助]数据表下拉输入框能否多列显示并多列输入的问题  发帖心情 Post By:2019/3/16 16:51:00 [只看该作者]

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

      即:有两个数据表,分别为:“标准表”、“月度工资表”。在两个表中都有相同的数据列“岗序、序号一、序号二、序号三、系数、系数额”。在“月度工资表”的“岗序”列已设置下拉输入框(只能单列显示并输入),其值取自“标准表”内容。
     求助:能否让该下拉输入框能多列显示,即在点击出现的下拉列表中能显示“岗序、序号二、序号三、系数、系数额”五列内容,并将选定的行写入“月度工资表”相应的“岗序、序号二、序号三、系数、系数额”等数据列内。  谢谢。

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/3/16 17:23:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
hanzhang98
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By:2019/3/16 22:08:00 [只看该作者]

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


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

 回到顶部
帅哥哟,离线,有人找我吗?
hanzhang98
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By:2019/3/16 22:12:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
hanzhang98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By:2019/3/20 8:08:00 [只看该作者]

老师们早上好!又出现个新问题需要老师们帮忙指导。就是按照蓝老师指引的“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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
hanzhang98
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By:2019/3/20 9:16:00 [只看该作者]

请老师们在百忙中给看看指导指导。谢谢!
[此贴子已经被作者于2019/3/20 9:16:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/3/20 9:17:00 [只看该作者]

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

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
hanzhang98
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:493 积分:3637 威望:0 精华:0 注册:2018/6/8 21:14:00
  发帖心情 Post By:2019/3/20 9:20:00 [只看该作者]

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

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

 回到顶部
总数 12 1 2 下一页