以文本方式查看主题

-  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 & "\'")