以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于动态列表加载。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109015)
--  作者：stevenfm
--  发布时间：2017/11/2 16:41:00
--  [求助]关于动态列表加载。
1.在列的列表选项中：有（数据表，显示列，取值）过滤条件是否没办法根据当中表中另外一个列的值变动而改变的？
（如果1的过滤条件是可以根据当前表字段加载的，哪后面可以忽略）

2.所以我又找到了动态列表项目。

试验了一下：

现有一表字段：

表名为A
两个字段：投递方式，投递单价（我需要做的是当投递方式是一个值时，投递单价）

投递方式 投递单价
单投 （这里让我选择几页点好直接显示对应价格）

表名为"投递单价表"
共3个字段：
投递方式 投递规格 投递价格
单投 2页 0.07
单投 4页 0.075
夹投 2页 0.02
夹投 4页 0.02
………………

看帮助知道代码，以下只能显示一行，并且只有值没显示项列。
If e.IsFocusCell Then
    If e.Col.Name = "印刷单价" Then
        Dim dr As DataRow 
        dr = DataTables("投递单价表").Find("投递方式 = \'" & e.Row("投递方式") & "\'")
        If dr IsNot Nothing \'一定要判断是否存在对应的行
            e.Col.ComboList = dr("投递价格")
        End If
End If
--  作者：有点甜
--  发布时间：2017/11/2 16:46:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/1457.htm