您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)



求助:共同探讨


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


求助:共同探讨
发表于：2008-01-10 09:01:34 楼主
有表1和表2
表1中存储的是员工的个人信息,其中有三个数据项.表2存的是表1中三个数据项中每一项的和
现想请教,如何删除表1中一条员工的个人信息,表2的数据自动减去表1所删除数据中的那三项数据.
vb+access
请帮忙写出代码.

private   sub   command3_click（)
if   adodc1.recordset.recordcount   >   0   then
          a   =   msgbox（"您确实要删除这条数据吗?",   vbyesno,   "删除信息")
          if   a   =   vbyes   then
          adodc1.recordset.delete
          adodc1.recordsource   =   "select   *   from   部门信息表   order   by   部门编号"

        end   if
      else
          msgbox   "没有要删除的数据！"
    end   if

end   sub      

上面代码只能实现删除表1的一条数据,却实现不了表2的数据自动减去表1对应三项数据,请高人指点
发表于：2008-01-10 09:27:191楼 得分:0
听不太懂，表2里存的是三项数据的和，也就是说表1里的数据都是数值？
那你只要先把要删除的这一项查出来，取得那三个数，然后把表2里的数减去，更新就行了。
发表于：2008-01-11 14:50:492楼 得分:0
ps:
表1中存储的是员工的个人信息,其中有三个数据项（即一月件数，二月件数，三月件数）。表2存的是表1中三个数据项中分别每一项的和（一月总件数，二月总件数，三月总件数）
现在想删除其中一个人的信息，删除后表2的三项自动减去表1那三项（一月总件数-一月件数，二月总件数-二月件数，三月总件数-三月件数）

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击