根据相同关键字和金额自动分类

Alashome

能否根据表中数据进行特定条件匹配。
第件一：提取名称字段中相同字符
第件二：根据正负相同金额归集。
希望排序生成：
  日期  名称  金额
  2013-7-1  小明记广东省大兴安发展有限公司药品款  

110000

  2013-7-2  2013070112345677药品款广东大兴安发展有限公司  

-110000

  2013-7-2  小明记浙江省广宁县天天木业有限公司药品款  

49813

  2013-7-3  2013070212345670中国人浙江省广宁县天天木业有限公  

-49813

  2013-7-2  小明记上海天星星丰物流有限公司药品款  

85623

  2013-7-3  2013070212345673药品款上海天星星丰物流有限公司  

-85623

  2013-7-2  小明记成都市大国化工药品款  

3363

  2013-7-3  2013070212345675大药品款四川省成都市大国化工有限公  

-3363

  2013-7-2  小明记山东省天天中国运输有限公司药品款  

270500

  2013-7-3  2013070212345676药品款山东省天天中国运输有限公司  

-270500

roych

太麻烦了。大体思路有两种：
创建ADO自定义逐行写入。
或者：
写正则表达式，将名称修饰为“xx省xx公司”格式，再创建排序的查询。

Alashome

麦老师能否用第一种方法写一个事例，数据量不会很多，一般不超过200条，因为这是去除重复项后剩下的特殊的记录

Alashome

用正表达式，有限制性，我这只是特殊数据中的一个比较有共性的数据整理出来，想通过您的思路处理其他共性的问题

Alashome

这些数据我思考了很久，只发现了这些共同点，内心希望通过这几个相同的关键字处理这些数据，
其实如果能提取出相同的关键字，金额我可以通过提取的相同的关键字进行合计，通过判断不等于零的，筛选新的记录，达到需求，可如何提取相同的关键字出来呢？

Alashome

其实这是一个药品采购，一条是购买方付款记录，一个是销售方发票的记录，我想实现自动勾对，而不是人为一笔一笔手工勾对，已提高效率，谢谢！

roych

Alashome 发表于 2015-7-9 21:50
用正表达式，有限制性，我这只是特殊数据中的一个比较有共性的数据整理出来，想通过您的思路处理其他共性的 ...

把这些含有关键字的公司放在一个表作为条件，然后用 ADO，使用like，再追加到新表中。个人建议最好还是规范表字段好一些。顺便说一下，我不姓麦，也不是Access软件网里鼎鼎大名的麦田。

1. Sub test()
   
2. Dim rst1 As DAO.Recordset
   
3. Dim rst2 As DAO.Recordset
   
4. Dim rst3 As DAO.Recordset
   
5. Set rst1 = CurrentDb.OpenRecordset("关键字")
   
6. 
   
7. Do Until rst1.EOF
   
8. 
   
9.     Set rst2 = CurrentDb.OpenRecordset("select 日期,名称,金额 from [1] where 名称 like '*" & rst1(0) & "*'")
   
10.     Set rst3 = CurrentDb.OpenRecordset("新表")
    
11.    
    
12.     Do Until rst2.EOF
    
13.         rst3.AddNew
    
14.         rst3("日期") = rst2("日期")
    
15.         rst3("名称") = rst2("名称")
    
16.         rst3("金额") = rst2("金额")
    
17.         rst3.Update
    
18.         rst2.MoveNext
    
19.     Loop
    
20.         rst3.Close
    
21.         rst2.Close
    
22.         rst1.MoveNext
    
23. Loop
    
24. 
    
25. End Sub
    

复制代码

Alashome

能有示例吗？

Alashome

通过关键字，建立索引，进而实现查询，思路清晰，赞一个！