'SQLupdate 表1 set 表1.數量=表1.數量-表2.數量 from 表1,表2 where 表1.名稱代碼=表2.名稱代碼 and 表1.數量<> 表2.數量
Private Sub Command3_Click() Adodc1.Recordset.AddNew Text1.SetFocus sql=update zk set zk.数量=zk.数量-领料基础表.数量 From zk, 领料基础表 where zk.项目编码=领料基础表.项目编码 and zk.批号=领料基础表.批号 zk.数量<>领料基础表.数量End Sub行不行??
Update 表1 Set 数量=数量-(Select 数量 From Inserted) where 字段 in (Select 字段 From Inserted) 把这个放在表2 Insert触发器里
from 表1,表2
where 表1.名稱代碼=表2.名稱代碼 and 表1.數量<> 表2.數量
Adodc1.Recordset.AddNew
Text1.SetFocus
sql=update zk set zk.数量=zk.数量-领料基础表.数量
From zk, 领料基础表
where zk.项目编码=领料基础表.项目编码 and zk.批号=领料基础表.批号 zk.数量<>领料基础表.数量End Sub行不行??
把这个放在表2 Insert触发器里