vb复杂的问题,请求高手支招。
我在做自己的系统时遇到了问题,请高手帮帮忙。涉及到的表为yhls(此表包括:id,yhname,xb,dw,kzqname,dkqname,rq,sj),yhtjk(此表包括:dw,tjkry,xb,crzhm),yhcldj
(dw,tjkry,crzhm,clpzhm,crkqrq,rkqsj,ckqsj,zbry)
我的窗体中涉及到11个控件,他们是——单位(dw):text1;提交款人员1(tjkry):text2;出入证号码1(crzhm):text3;提交款人员2(tjkry):text4;出入证号码2(crzhm):text5;车辆
牌照号(clpzhm):text6;车辆证件号(clzjhm):text7;出入库区日期(crkqrq):text8;入库区时间(rkqsj):text9;出库区时间(ckqsj):text10;值班人员(zbry):text11
我要实现的是窗体每隔几秒钟就刷新yhls表一次,然后需要的相应记录自动显示到text中去,入库时,如果同一个单位的同一个人(a)记录有重复则显示最新的记录,然后在数据
库中查找同一个单位的另一个人,将相应的信息填入相应的表格,如果同一个单位的另一个人(b)有重复记录则显示最新的时间(只显示不一样的字段,也就是时间字段)。出库
时显示出库时间(ckqsj),出库时间应该是a,b两个人中最晚出来的时间,别的字段不用显示。全部信息显示出来以后则点击保存,存入yhcldj表。然后删除yhls表中a,b两个人的记
录,再继续查找后面的数据。
给个例子:
yhtjk表
dw, tjkry, xb, crzhm
工行,张三, 男, 221
工行,李四, 男, 222
yhls表
id,yhname,xb, dw, kzqname, dkqname, rq, sj
1,张三, 男,工行,金库后门,金库后门进,20121217,10:10
2,李四, 男,工行,金库后门,金库后门进,20121217,10:11
3,张三, 男,工行,金库后门,金库后门出,20121217,10:21
4,李四, 男,工行,金库后门,金库后门出,20121217,10:22
记录完以后保存到yhcldj表中记录为:
dw, tjkry, crzhm, clpzhm, crkqrq, rkqsj, ckqsj, zbry
工行, 张三,李四 221,222 123123 101 20121217 10:11 10:22
这里的车辆牌照号码和车辆证件号码我已经提取出来了,不用再提取了。