Dim a, b, i As String
a = Fields!CURR_TYPE.Value
b = Fields!STUDY_ROUND.Value
i = Interaction.Switch(a = 1 Or b = 1, "ระดับปริญญาตรี หลักสูตร ภาคปกติ 4 ปี " _
, a = 1 And b = 3, "ระดับปริญญาตรี หลักสูตร ภาคสมทบ 4 ปี " _
, a = 2 And b = 1, "ระดับปริญญาตรี หลักสูตร ต่อเนื่อง 2 ปี" _
, a = 2 And b = 3, "ระดับปริญญาตรี หลักสูตร ต่อเนื่อง 2 ปี ", "")