主题：当列是逻辑类型时,多选问题

AfterEdit事件

If e.Col.Name = "第五列" Then
    For i As Integer = e.Table.TopPosition To e.Table.BottomPosition
        e.Table.Rows(i)("第五列") = e.Row(e.Col.Name)
    Next
End If