|
Select Case e.DataCol.Name
Case "选择题_A选项","选择题_B选项","选择题_C选项","选择题_D选项","选择题_E选项"
Dim str As String = ""
If e.DataRow("选择题_A选项") = True Then
str &= "A,"
End If
If e.DataRow("选择题_B选项") = True Then
str &= "B,"
End If
If e.DataRow("选择题_C选项") = True Then
str &= "C,"
End If
If e.DataRow("选择题_D选项") = True Then
str &= "D,"
End If
If e.DataRow("选择题_E选项") = True Then
str &= "E,"
End If
e.DataRow("正确答案") = str.Trim(",")
End Select
|
加好友 
发短信
Post By：2015/7/9 16:23:00 [显示全部帖子]
