UC知道VB问题，求助高人指点
来源：百度知道 编辑：UC知道 时间：2024/05/30 03:23:37
表1和表2
表1中存储的是员工的个人信息,其中有三个数据项（即一月件数，二月件数，三月件数）。表2存的是表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对应三项数据,请高人指点
表1中存储的是员工的个人信息,其中有三个数据项（即一月件数，二月件数，三月件数）。表2存的是表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对应三项数据,请高人指点
这个要自己写代码的,你删除表1前要先减掉表2的数据
或者还有个办法,你的表2建立在查询里
用:
SELECT sum(一月件数) as 一月总件数,sum(二月件数) as 二月总件数,sum(三月件数) as 三月总件数) from 表1
这样当你表1数据删除以后表2会自动减掉对应的数据的
问下，你表2数据是不是从1种加获得的~~