尝试在具有DLookup的表单上使用自动填充，但未获得正确的结果

Question

我有两种形式（估计和工作）。在估算承包商的字段是另一个表的下拉列表。当我使用查找向导时，它将数据类型更改为数字。这在Estimate表单上工作正常。在作业表单上，我使用以下代码自动填充作业名称和承包商字段。

这适用于作业名称，但在承包商字段中，它会填写ID号而不是承包商的名称。有人能让我知道我做错了吗？

Private Sub EstimateNumber_AfterUpdate()

    PopulateFields
End Sub

Private Sub PopulateFields()

''''PopulateFields will automatically fill in the Job Name and Contract Name from the Estimate Table

    JobName = RTrim(DLookup("EName", "Estimates", "Estimate=" & EstimateNumber))
    Contractor = RTrim(DLookup("EContractor", "Estimates", "Estimate=" & EstimateNumber))
End Sub