Office中国论坛/Access中国论坛

标题: 关于update时间后不会自动更新 [打印本页]

作者: 1768061209 时间: 2017-3-9 14:37
标题: 关于update时间后不会自动更新
本帖最后由 1768061209 于 2017-3-9 15:19 编辑

我做了两个数据库，imp 和 exp. imp[td]

ID	列出价格	标准成本
A	1	11
B	2	22
C	3	33

EXP
exp[td]

ID	列出价格	标准成本
A	￥0.00	￥0.0

希望在EXP里面输入ID列A后，会引用数据库imp的数据自动跳出列出价格：1，标准成本：11B后，会引用数据库imp的数据自动跳出列出价格：2，标准成本：22
可是最后却没有实现。请问问题在哪？

代码如下
Option Compare Database

Private Sub ID_AfterUpdate()
'每次产品更改的列出价格和标准成本
If Not IsNull(Me![ID]) Then
      Me![列出价格] = GetListPrice(Me![ID])
   Me![标准成本] = GetStandardCost(Me![ID])

'空产品订单表示用户要删除项目
Else
      eh.TryToRunCommand acCmdDeleteRecord
End If
End Sub

Function GetStandardCost(lID As Short) As Currency
GetStandardCost = DLookup("[标准成本]", "imp", "[ID]=" & lID)
End Function

Function GetListPrice(lID As Short) As Currency
GetListPrice = DLookup("[列出价格]", "imp", "[ID] = " & lID)
End Function

作者: LeeTien 时间: 2017-3-9 14:51
本帖最后由 LeeTien 于 2017-3-9 14:53 编辑

系统无法判断你对表的哪一列赋值，所以建议你如下处理：1，输入后数据保存到exp；
3，然后根据ID查询对应价格更新exp数据；
2，刷新窗体

作者: 1768061209 时间: 2017-3-9 15:20

LeeTien 发表于 2017-3-9 14:51
系统无法判断你对表的哪一列赋值，所以建议你如下处理：1，输入后数据保存到exp；
3，然后根据ID查询对应 ...

我刚刚把数据库给传上来了，实在不知道哪里有问题

作者: 1768061209 时间: 2017-3-9 15:44

LeeTien 发表于 2017-3-9 14:51
系统无法判断你对表的哪一列赋值，所以建议你如下处理：1，输入后数据保存到exp；
3，然后根据ID查询对应 ...

如果要手动输入，还要这个程序干嘛，

作者: admin 时间: 2017-3-9 15:56
1. access 没有 short 数据类型，要使用long
2. 你的 ID是文字，要定义为String, 不能定义为long ,且条件前后要加单引号

修改后的正确代码为：

Private Sub ID_AfterUpdate()
'每次产品更改的初始价格和折扣
If Not IsNull(Me![ID]) Then
      Me![列出价格] = GetListPrice(Me![ID])
   Me![标准成本] = GetStandardCost(Me![ID])



'空产品订单表示用户要删除项目
Else
      eh.TryToRunCommand acCmdDeleteRecord
End If
End Sub

Function GetStandardCost(lID As String) As Currency
GetStandardCost = DLookup("[标准成本]", "imp", "[ID]='" & lID & "'")
End Function

Function GetListPrice(lID As String) As Currency
GetListPrice = DLookup("[列出价格]", "imp", "[ID]='" & lID & "'")
End Function

作者: 1768061209 时间: 2017-3-9 16:04

站长威武霸气，非常感谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)