基于先前的组合框写入组合框不起作用

Question

所以我正在尝试创建一个计算器，它可以同时创建和查找项目编号。

第一个组合框Type 有两列：[Type].[Type] 和 [Type].ID（主键）。

第二个组合框Chemistry 具有三列：[Chemistry].[ID]（主键）、[Chemistry].[Chemistry] 和[化学].[类型]（外键）。

我还有其他几个，但这些都是给我带来问题的。要正确填充化学组合框，我需要知道类型组合框的值。当您单击组合框时这很好，但是当我进行反向查找时（解析项目编号以获取其替代条目）。因为 Type 没有外键并且不会根据任何条目进行填充，所以当我尝试写回组合框时它就可以了。当我尝试写 chemistry 时，尽管 Type 组合框中有一个有效条目，但组合框不会填充。出于某种原因，请求和刷新并不能解决问题。在 GIF 附件中，类型为 Combo0，化学为 Combo2。有什么想法吗？

相关代码

hii = Me.Text6.Value [Item Number]
v = Mid(hii, 1, 1)
w = Mid(hii, 2, 2)
vvv = DLookup("Type", "Type", "ID = " & v & "")
If w < 10 Then
www = DLookup("Chemistry", "Chemistry", "ID =" & Mid(w, 2, 1) & "")
Else
www = DLookup("Chemistry", "Chemistry", "ID =" & w & "")
End If

Me.Combo0.Value = vvv
Me.Combo2.Requery
Me.Combo2.Value = www

这里是化学行来源：

这是该问题的 GIF。

Answer 1

外键总是指向另一个表的主键。 Chemistry 表中的Type 外键列应与Type 表中的主键ID 对应。我将其命名为TypeID，以明确这一事实。我假设ID 是一个自动编号列。那么TypeID的类型必须是Numeric/Long。

然后，当然，必须设置两个组合中的绑定列，以便绑定到各自的 ID。

Chemistry 组合的行源应该类似于

SELECT Chemistry.ID, Chemistry.Chemistry
FROM Chemistry
WHERE Chemistry.TypeID = Forms!Numbers!Combo0; 

与

• 绑定列 = 1
• 列数 = 2
• 列宽 = 0cm（隐藏 ID 列）

您不应链接或查找基于Type.Type 的值，我认为这是一个文本列。当你这样做时，代码变成了

hii = Me.Text6.Value
v = CLng(Mid(hii, 1, 1))
w = CLng(Mid(hii, 2, 2))

Me.Combo0.Value = v
Me.Combo2.Requery
Me.Combo2.Value = w

我测试了它，它可以工作。

您还可以为控件和变量提供更好的名称。它使代码更具可读性。例如

itemNumber = txtItemNumber.Value
typeID = CLng(Mid(itemNumber, 1, 1))
chemID = CLng(Mid(itemNumber, 2, 2))

cboType.Value = typeID
cboChemistry.Requery
cboChemistry.Value = chemID

更容易阅读。您也可以删除Me.。