0

在我的应用程序中,我正在执行 2 个任务:

  1. 显示所有值cmbrno_click()

  2. 显示所有值cmbfulnm_lostfocus()

cmbrno的样式设置为 2 下拉列表。

Private Sub CmbFulNM_LostFocus()
  RES.Open "student_record_database",CON,adOpenDynamic,adLockOptimistic,adCmdTable

  For i = 0 To RES.RecordCount - 1
    CmbRNO.Text = RES!ROLLNO 'at this line control goes to the cmbrno_click event which is having same part of coding and executes that also.
    TxtFNM.Text = RES!FIRST_NAME 'error like: item not fount in corresponding ordinal
    TxtMIDNM.Text = RES!MIDDLE_NAME
    TxtLNM.Text = RES!LAST_NAME
    TxtADDR.Text = RES!ADDRESS
    COMBO1.Text = RES!GRADE
    CmbDiv.Text = RES!DIV
    CmbBG.Text = RES!BLOOD_GROUP

    If CmbRNO.ListCount > 0 Then CmbRNO.ListIndex = i
  Next i
  RES.Close
End Sub
4

1 回答 1

1

这一切都相当混乱。本帖主题为:“如何设置全名对应的combo的listindex?” 但是,代码中的 (C) 注释是:“//error like: item not fount in对应的序数。”。您必须提供准确的错误信息,而不是您认为“喜欢”的错误信息。

TxtFNM 真的是文本框吗?您应该描述这些控件是什么,以及这些控件是如何被初始化的。

使用心理调试,您的问题可能是您没有正确拼写字段名称。真的是“FIRST_NAME”吗?

另一方面,我注意到您正在遍历多个记录,将每个字段复制到相同的控件中。由于没有 MoveNext,此代码将始终返回第一条记录,而与记录数无关。但是,由于紧接在“Next i”之前的行,您可能会在循环开始时用第i个添加的项目覆盖 cmbRNO 的选择。

也许你应该在这里真正说明你想做什么。“[2] 在 cmbfulnm_lostfocus() 上显示所有值”不是很精确。

于 2013-02-02T16:25:23.390 回答