请各位前辈帮忙解决程序中的两个问题！

stvent

问题1，如何阻止相同记录添加到子窗体数据表中，
问题2，当要导入的物料编号与表内“物料信息表”中有相同时，导入到表中，其次进行二次查询！如下图详解！

stvent

各位早晨！问题依旧

ACMAIN_CHM

问题1，如何阻止相同记录添加到子窗体数据表中，
帮助中搜索“主键”

问题2，当要导入的物料编号与表内“物料信息表”中有相同时，导入到表中，其次进行二次查询！如下图详解！
不好意思，没看懂。

stvent

问题1，如何阻止相同记录添加到子窗体数据表中，
帮助中搜索“主键”

问题2，当要导入的物料编号与表内“物料信息表”中有相同时，导入到表中，其次进行二次查询！如下图详解！
不好意思，没看懂。
ACMAIN_CHM 发表于 2009-8-31 08:54

对于问题2，即图片中，我写的问题1，我作了简单讲解！可以理解为，表1内有物料编号、物料名称数据，而我要导入的数据中，有一字段为物料编号（里面数据包含正规的物料编号和不正规的数据），在导入前先与表1作个比较，如果存在该物料，即将该物料编号及名称一同导入到入库明细中

stvent

头痛啊

djt

做个简单的例子，你把全部都放上来，不知道改哪
你都头疼，俺更痛

stvent

做个简单的例子，你把全部都放上来，不知道改哪
你都头疼，俺更痛
djt 发表于 2009-8-31 11:39

我上传的实例已经简化了的！
程序开发目的在于简化用户手工操作录入，因为一般用户手上只有收贷单，而收贷单上只有一个采购单号与ODBC数据源相匹配,因为各位都无法连到数据源，所以我特意将所需数据导入成系统中的Sheet1！
此实例我是以采购单PO6785为例的（所以Sheet1中我只导入了PO6785的数据），当用户点击放大镜按键，弹出“采购单信息查询结果”窗体，窗体数据源为Sheet1,用户通过双击采购单号，将PO单中的信息传输到“入库单明细”子窗体中，另外，因为采购单信息中，在物料号一栏，存在不规范的数据，例如：KM27011是正规的，PQT000029及卷尺3.5M*13M是不正规的，要通过下方的“按物料名称”查询得正规物料编号是什么!而我思路是，如何可以在双击传输的时候，对物料编号与后台的“物料信息表”作验证，如果匹配，自动传输到“入库单明细”子窗体中的物料编号及物料名称！此乃问题1。
问题2就是，控制作在“采购单信息查询结果”中已双击传输到“入库单明细”的记录不能再次录入！

djt

1 双击时加一验证
dim rs as new adodb.recordset
rs.open "select * from 物料信息表 where 条件",cnn
if rs.recordcount>=1 then
传输
endif

2 同样的方法
dim rs as new adodb.recordset
rs.open "select * from 入库单明细 where 条件",cnn
if rs.recordcount>=1 then
不录入
endif

lanshai

ppp

stvent

1 双击时加一验证
dim rs as new adodb.recordset
rs.open "select * from 物料信息表 where 条件",cnn
if rs.recordcount>=1 then
传输
endif

2 同样的方法
dim rs as new adodb.recordset
rs.open "sele ...
djt 发表于 2009-8-31 12:34

尝试了，没应应！