标题：如何使用像EXCEL软件中VLOOKUP功能

1楼

annan 发表于：2011/5/8 18:31:00

表A有 123456789列

表B的第一列,使用过虑,找到表A符合条件的行数据,能否如EXCEL中VLOOKUP功能一样=VLOOKUP实现各个列的数据填充?

2楼

狐狸爸爸 发表于：2011/5/8 18:37:00

我不用Excel，不好理解

你做个例表，说明一下目的，我帮你看看。

3楼

e-png 发表于：2011/5/8 19:44:00

foxtable中用 find 。

4楼

annan 发表于：2011/5/8 20:19:00

以:"新成本计算"例子为准

例子仅仅简单表述一个期望的功能;

我的意图:

"产品资料"表作为一个用来存储由某部门录入的信息;

"成本预算"表将会作为主表(下面会再关联五个子表,分别为主表产品下的各个成分构成所需的明细,这是后话,与本例无关)

由于各种原因,另一部门会需要指定'产品信息"表中某几个产品需要预算,而有些则不需要,所以,在这里需要有条件的被查找,

我的要求是:"成本预算"表"产品货号"列使用下拉列选择查找符合条件的货号时,后面其它列对应该货号的其它信息填充到各个列中,而这些信息是从"产品资料"列来的.

有朋友说使用FIND,但我不知道如何使用,请帮忙弄一下,

另外:"成本预算"表"如何把"成本预算"表"金额"列的值返回到"产品资料"表的成本价去;

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新成本计算.rar

5楼

e-png 发表于：2011/5/8 21:21:00

你怎么一点帮助文件也不看呢？

放在成本预算表－表属性－事件－datacolchanged中：

If e.DataCol.Name = "产品货号" Then
If e.DataRow.IsNull("产品货号")

            e.DataRow("品名描述") = Nothing
        Else
        Dim dr As DataRow
        dr = DataTables("产品资料").Find("产品货号 = '" & e.DataRow("产品货号") & "'")
        If dr IsNot Nothing
            e.DataRow("品名描述") = dr("品名描述")
            '其他列可以自己加在这里
        End If
    End If
End If

6楼

狐狸爸爸 发表于：2011/5/8 22:01:00

设置好后重置产品货号列

共6 条记录, 每页显示 10 条, 页签: [1]