尝试在组合框中选择第一项时出现问题:VBA MS 访问

Question

>我有以下代码来填充组合框

StrSQL = "Select BankID, BankName As [Please Select Bank] from tblBank"
With Me.cmbBankSearch
  .RowSource = StrSQL
  .ColumnCount = 2
  .BoundColumn = 1
  .ColumnWidths = "0in.;1in."
  .ColumnHeads = True
  .LimitToList = True
  .Requery
  .Value = "Please Select Bank"
End With

但是由于某些原因，我无法选择第一项，即"请选择银行"

我做错了什么吗？

根据下面的评论，我将其更改为以下代码。

StrSQL = "Select 0 as BankID, 'Please Select Bank' As [Please Select Bank] from tblBank UNION Select BankID, BankName As [Please Select Bank] from tblBank"
With Me.cmbBank
  .RowSource = StrSQL
  .ColumnCount = 2
  .BoundColumn = 1
  .ColumnWidths = "0in.;1in."
  .ColumnHeads = True
  .LimitToList = True
  .Requery
End With

Answer 1

这应该足够了（组合/列表框中的值始终是字符串）：

StrSQL = "Select BankID, BankName As [Please Select Bank] from tblBank"
With Me.cmbBankSearch
  .RowSource = StrSQL
  .ColumnCount = 2
  .BoundColumn = 1
  .ColumnWidths = "0in.;1in."
  .ColumnHeads = True
  .LimitToList = True
  .Value = "0"
End With

编辑 - 没有列标题：

With Me.cmbBankSearch
  .RowSource = StrSQL
  .ColumnCount = 2
  .BoundColumn = 1
  .ColumnWidths = "0in.;1in."
  .ColumnHeads = False
  .LimitToList = True
  .Value = "0"
End With