| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126788) |
| -- 作者：枫竹天空 -- 发布时间：2018/10/29 11:45:00 -- [求助] 各位大神，请教下，如何实现excel表里的VLOOKUP功能，数据比较大，在excel里处理比较慢，foxable里有简单方式可以快速做到吗？ |
| -- 作者：WELOVEFOX -- 发布时间：2018/10/29 12:06:00 -- 简单的，用关联。 代码的，用十几行代码，并需要相应列辅助。 参考思路，在表2后台中，查询存在表1的数据，并在表2中其中一列标明在表1中存在，然后将需要的结果重新加载。 如果没代码基础，只能去好好学习（。号去掉，论坛安全问题）。 With Tables("BOM单级反查") If .Position = -1 Then MessageBox.Show("BOM表无数据!") Else Dim cmd As New SQLCommand cmd.C。onnection。Name = "prork"cmd.CommandText = "U。pdate {产品入库序时簿} SET 涉及产品 = \'\'" cmd.ExecuteNonQuery() cmd.CommandText = "U。pdate {产品入库序时簿},{BOM单级反查} SET {产品入库序时簿}.涉及产品 = \'YES\' WHERE {产品入库序时簿}.[物料长代码] = {BOM单级反查}.[父项物料代码]" cmd.ExecuteNonQuery() DataTables("产品入库序时簿").LoadFilter = "涉及产品 = \'YES\'" DataTables ("产品入库序时簿").Load() MessageBox.Show("执行完成!") End If End With [此贴子已经被作者于2018/10/29 12:08:43编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/10/29 13:13:00 -- http://www.foxtable.com/webhelp/scr/1453.htm
|