以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 新人再次求教-顺序查找的问题-2 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130873) |
||||
-- 作者:hcfbehero -- 发布时间:2019/2/9 1:26:00 -- 新人再次求教-顺序查找的问题-2 我有表A(基础数据表)和表B(查找表) 1、在表B的[名称B]列和[代码B]列在输入名称,在[序号B]列中查找到在表A中符合条件的[序号A]中的值; 2、在表B的[名称C]列中输入名称,在[第一序号]列和[最后序号]列中查找到在表A中符合条件的[序号A]中的值;
[此贴子已经被作者于2019/2/9 1:55:50编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/2/10 11:42:00 -- 参考
http://www.foxtable.com/webhelp/scr/1451.htm
|
||||
-- 作者:hcfbehero -- 发布时间:2019/2/11 19:34:00 -- 能帮忙写个代码不,请帮忙注明是表A的名称列还是表B的名称列等,万分感谢! |
||||
-- 作者:有点蓝 -- 发布时间:2019/2/11 20:18:00 -- 表B,datacolchanged事件 If e.DataRow.isnull("名称B") orelse e.DataRow.isnull("代码B") Then e.DataRow("序号B") = Nothing Else Dim dr As DataRow dr = DataTables("表A").Find("[名称A] = \'" & e.DataRow("名称B") & "\' and 代码A = \'" & e.DataRow("代码B") & "\'") If dr IsNot Nothing Then \'如果找到了 e.DataRow("序号B") = dr("序号A") End If End If End If |
||||
-- 作者:hcfbehero -- 发布时间:2019/2/25 0:57:00 -- 前段时间有事,忙别的去了,今天才验证了下,首先非常感谢蓝版主! 现在有以下两个问题:
1、输入两个条件后,能找到符合条件的第一个序号,我想要的是第二次输入相同的两条件后,能找到符合条件的第二个序号,以此类推; 2、请帮忙解决下,第2个问题,输入条件后,能在对应列中输出第一个序号和最后一个序号; |
||||
-- 作者:有点甜 -- 发布时间:2019/2/25 9:21:00 --
请上传具体的项目测试,需要额外编写代码。
|
||||
-- 作者:hcfbehero -- 发布时间:2019/2/26 0:56:00 -- 如图所示,明细根表是基础数据表,泵送明细是结果输出表, 我在泵送明细表里输入结算日期和泵车编号,根据这2个条件,在本表的销档,运输名称,销售名称列中查找出对应的内容,并在销售总量列里计算出对应的数量,也就是输出的结果跟图二一样。文件也已上传,请版主帮忙编写下代码,如果可以,请在必要的位置也帮忙标注下,万分感谢。
[此贴子已经被作者于2019/2/26 1:01:34编辑过]
|
||||
-- 作者:有点甜 -- 发布时间:2019/2/26 9:39:00 -- 切换表的时候统计数据
|
||||
-- 作者:hcfbehero -- 发布时间:2019/2/26 13:52:00 -- 非常感谢甜版主,但是我想让它不自动生成,而是我输入一行,结算日期和泵车编号后,查找到相应的其他三个值,也就是说,我输入完后有的结算日期和泵车编号后,也还是得到这个结果 |
||||
-- 作者:有点甜 -- 发布时间:2019/2/26 14:18:00 --
不可以这样。相同的结算日期和泵车编号,你有多条重复的数据,不知道你要引用哪一条数据。不然,就全部数据都输出来。
|