效果如下

步骤：

❶gysID行来源，列宽，列数如下图设置

ygsid加上更新后事件：

Private Sub gysID_AfterUpdate()
    Me.Lxr1 = Me.gysID.Column(2) ' 第一列值赋值给lxr1
    Me.Lxr1.SetFocus
    ' 展开组合框
End Sub

❷新建个复选框fxlxr2如图

复选框加上更新后事件

Private Sub fxlxr2_AfterUpdate()
    If Me.fxlxr2 = -1 Then    ' 被选中
        Me.Lxr1 = Me.gysID.Column(3) ' 赋值第四列
        Me.Lxr1.SetFocus
    Else
        Me.Lxr1 = Me.gysID.Column(2) ' 赋值第三列
    End If
End Sub