VB.Net编辑窗体加载时ComboBox显示数据库首项 传值不生效如何解决

问题根因 #

代码执行顺序错误导致赋值被覆盖：

1. 第一个窗体中Dim frmEdit As New Edit执行时仅触发Edit窗体的构造函数，不会触发Load事件
2. 此时直接给ComboBox的Text属性赋值，ComboBox还未绑定数据源，赋值无效
3. 调用frmEdit.ShowDialog()时才触发Load事件执行数据源绑定，绑定完成后ComboBox默认选中第一条数据，直接覆盖了之前的赋值

解决方案 #

提供两种可直接落地的方案，选择任意一种即可：

方案1：调整传值时机（推荐，耦合度更低） #

步骤1：给Edit窗体新增公共属性存储待传值

在Edit窗体的代码中添加对应字段的公共属性，示例：

' Edit窗体代码新增部分
Public Property DepartmentText As String
Public Property PositionText As String
' 其余需要传递的ComboBox值可按同样格式添加

步骤2：修改Edit窗体Load事件，绑定完数据源后再赋值

在原有的数据源绑定逻辑后添加赋值代码：

Private Sub Edit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 原有数据源绑定逻辑保持不变
    Dim poscmd As New SqlCommand("SELECT * from MasterPositionList", conn)
    Dim posadapt As New SqlDataAdapter(poscmd)
    Dim postable As New DataTable
    posadapt.Fill(postable)
    cbPosition.DataSource = postable
    cbPosition.DisplayMember = "PositionName"
    ' 建议补充ValueMember配置，后续用SelectedValue赋值更稳定：
    ' cbPosition.ValueMember = "PositionId" 替换为你表中的主键字段名

    Dim depcmd As New SqlCommand("SELECT * from MasterDepartmentList", conn)
    Dim depadapt As New SqlDataAdapter(depcmd)
    Dim deptable As New DataTable
    depadapt.Fill(deptable)
    cbDepartment.DataSource = deptable
    cbDepartment.DisplayMember = "DeparmentName"
    ' 同样建议补充ValueMember：cbDepartment.ValueMember = "DepartmentId"

    ' 绑定完成后再赋值
    cbDepartment.Text = DepartmentText
    cbPosition.Text = PositionText
End Sub

步骤3：修改第一个窗体的双击事件，改为给属性传值

把原来直接给ComboBox控件赋值的逻辑，改为给新增的公共属性赋值：

Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
    Dim frmEdit As New Edit
    ' 其余TextBox、Label等控件的赋值逻辑保持不变
    frmEdit.lblEENo.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
    frmEdit.txtName.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString
    ' ... 其余原有非ComboBox赋值逻辑不变

    ' 替换原有直接给cb赋值的逻辑
    frmEdit.DepartmentText = DataGridView1.CurrentRow.Cells(9).Value.ToString
    frmEdit.PositionText = DataGridView1.CurrentRow.Cells(10).Value.ToString
    ' 其余ComboBox同理替换为属性赋值

    ' 原有剩余逻辑保持不变
    frmEdit.ShowDialog()
    load_data()
End Sub

方案2：移动数据源绑定时机（无需修改第一个窗体代码） #

直接把Edit窗体Load事件里的所有ComboBox数据源绑定逻辑，移动到Edit窗体的构造函数中InitializeComponent()之后执行即可，New窗体时就会完成绑定，原有直接给控件赋值的逻辑就会生效。

' Edit窗体的构造函数
Public Sub New()
    InitializeComponent() ' 设计器自动生成的代码不要修改

    ' 把原来Load事件里的所有数据源绑定逻辑移到这里
    Dim poscmd As New SqlCommand("SELECT * from MasterPositionList", conn)
    Dim posadapt As New SqlDataAdapter(poscmd)
    Dim postable As New DataTable
    posadapt.Fill(postable)
    cbPosition.DataSource = postable
    cbPosition.DisplayMember = "PositionName"

    Dim depcmd As New SqlCommand("SELECT * from MasterDepartmentList", conn)
    Dim depadapt As New SqlDataAdapter(depcmd)
    Dim deptable As New DataTable
    depadapt.Fill(deptable)
    cbDepartment.DataSource = deptable
    cbDepartment.DisplayMember = "DeparmentName"
End Sub

注意事项 #

• 确认DGV传递的ComboBox文本值和数据库表中存储的对应字段值完全一致，大小写、首尾空格都不能有差异，否则匹配失败还是会显示第一条数据
• 长期使用更推荐用主键ID匹配：给ComboBox配置ValueMember为表主键，传递时传ID，赋值用cb.SelectedValue = 对应ID，完全避免文本匹配的误差问题

内容的提问来源于stack exchange，提问作者lowkey