关于update时间后 不会自动更新

1768061209

我做了两个数据库，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

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

1768061209

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

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

1768061209

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

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

admin

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

站长威武霸气，非常感谢