以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口table副本下拉框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96725)
|
-- 作者:yqd1968
-- 发布时间:2017/2/27 10:58:00
-- 窗口table副本下拉框
你好:
我有个“客户表”、“订单汇总表”和“订单表”,订单表为窗口table副本,在客户表有“客户名称”和“所属地区”二列,订单汇总表有“所属地区”列,订单表有“客户名称”列
需求:
1、在订单汇总表选择“所属地区”后,在“订单表”中的客户名称下拉框中只有这个地区的客户名称。
2、窗口table副本订单表中出现一个下拉复选框,选择所需的客户名称后,自动填充到订单表中。
|
-- 作者:yqd1968
-- 发布时间:2017/2/27 10:58:00
--
此主题相关图片如下:rr.png
|
-- 作者:有点色
-- 发布时间:2017/2/27 11:07:00
--
1、TextChanged事件
e.Form.Controls("Table1").Table.Cols("客户名称").ComboList = DataTables("客户").GetComboListString("客户名称", "地区 = \'" & e.Sender.Text & "\'")
2、副本表本来就是订单表,你做的任何操作,直接体现在订单表里面的。
|
-- 作者:yqd1968
-- 发布时间:2017/2/27 11:25:00
--
有点色老师:
我的需求是在table中点击客户名称后,出现一个下拉界面,这个下拉界面可以多选几个客户名称按确定自动填充到这个table中去
|
-- 作者:有点色
-- 发布时间: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
-- 发布时间:2017/2/27 18:06:00
--
老师你好:
我在AfterLoad事件中写入
Tables("窗口1_Table1").Cols("客户名称").ComboList = DataTables("订单表").GetComboListString("客户名称","所属区域 = \'" & e.Form.Controls("ComboBox1").text & "\'")
但下拉框没有出现,怎么办??谢谢
|
-- 作者:有点色
-- 发布时间: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 & "\'")
|