VBA将RecordSet字段分配给ComboBox

Question

我有以下代码：

sSQL = "SELECT CODER FROM " & dbfname & " IN " & dir & " WHERE TRIM(CODEK) = TRIM(kCode)"
Combo29.RowSource = sSQL
Combo29.Requery

，其中＆＃34; CODER＆＃34;是dbf文件中的一个字段。 ＆＃34; CODEK＆＃34;也是该dbf文件中的一个字段，它与字符串kCode进行比较。

当我运行代码并单击组合框时，它会要求我输入参数而不是显示所选参数。 RowSource类型设置为Table / Query。

分配语句是否不正确，如何修改它以显示SQL语句的结果列表？

Answer 1

如果我正确理解您的问题kCode是VBA中的字符串，那么您必须按以下方式设置SQL字符串

sSQL = "SELECT CODER FROM " & dbfname & " IN " & dir & " WHERE TRIM(CODEK) = TRIM('" & kCode & "')"`