主题：求助 DataColChanged

 If e.DataCol.Name = "选择题_A选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "A"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_B选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "B"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_C选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "C"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_D选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "D"
    Else
        e.DataRow("正确答案") = ""
    End If
End If
If e.DataCol.Name = "选择题_E选项" Then
    If e.NewValue = True Then
        e.DataRow("正确答案") = "E"
    Else
        e.DataRow("正确答案") = ""
    End If
End If

我这么做是单选。如果是多选怎么写。