Foxtable(狐表)用户栏目专家坐堂 → 窗口table副本下拉框


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

主题:窗口table副本下拉框

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


加好友 发短信
等级:婴狐 帖子:17 积分:189 威望:0 精华:0 注册:2017/2/24 12:23:00
窗口table副本下拉框  发帖心情 Post By:2017/2/27 10:58:00 [只看该作者]

你好:

我有个“客户表”、“订单汇总表”和“订单表”,订单表为窗口table副本,在客户表有“客户名称”和“所属地区”二列,订单汇总表有“所属地区”列,订单表有“客户名称”列

需求:

1、在订单汇总表选择“所属地区”后,在“订单表”中的客户名称下拉框中只有这个地区的客户名称。

2、窗口table副本订单表中出现一个下拉复选框,选择所需的客户名称后,自动填充到订单表中。

 

 


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


加好友 发短信
等级:婴狐 帖子:17 积分:189 威望:0 精华:0 注册:2017/2/24 12:23:00
  发帖心情 Post By:2017/2/27 10:58:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:rr.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/27 11:07:00 [只看该作者]

1、TextChanged事件

 

e.Form.Controls("Table1").Table.Cols("客户名称").ComboList = DataTables("客户").GetComboListString("客户名称", "地区 = '" & e.Sender.Text & "'")

 

2、副本表本来就是订单表,你做的任何操作,直接体现在订单表里面的。


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


加好友 发短信
等级:婴狐 帖子:17 积分:189 威望:0 精华:0 注册:2017/2/24 12:23:00
  发帖心情 Post By:2017/2/27 11:25:00 [只看该作者]

有点色老师:

我的需求是在table中点击客户名称后,出现一个下拉界面,这个下拉界面可以多选几个客户名称按确定自动填充到这个table中去


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/27 11:30:00 [只看该作者]

 把客户列,改成多值字段。然后datacolchanged事件写代码

 

If e.DataCol.name = "第二列" AndAlso e.newvalue > "" Then
    Dim ary As String() = e.newvalue.split(",")
    e.DataRow("第二列") = ary(0)
    For i As Integer = 1 To ary.length - 1
        Dim ndr As DataRow = e.DataTable.AddNew
        ndr("第二列") = ary(i)
    Next
End If


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


加好友 发短信
等级:婴狐 帖子:17 积分:189 威望:0 精华:0 注册:2017/2/24 12:23:00
  发帖心情 Post By:2017/2/27 18:06:00 [只看该作者]

老师你好:

我在AfterLoad事件中写入

 

Tables("窗口1_Table1").Cols("客户名称").ComboList = DataTables("订单表").GetComboListString("客户名称","所属区域 = '" & e.Form.Controls("ComboBox1").text & "'")

 

但下拉框没有出现,怎么办??谢谢


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/2/27 18:13:00 [只看该作者]

AfterLoad事件

 

e.Form.Controls("Table1").Table.Cols("客户名称").ComboList = DataTables("客户").GetComboListString("客户名称")

 

 

下拉窗口TextChanged事件

 

e.Form.Controls("Table1").Table.Cols("客户名称").ComboList = DataTables("客户").GetComboListString("客户名称", "所属地区 = '" & e.Sender.Text & "'")


 回到顶部