主题：程老师

程老师 您刚才给我的代码 那里来的DR 啊  没有声明这个变量啊  你能完整给我一份嘛  谢谢啦

Dim s As String = "不评定|六|五|四|三|二|一
Select Case e.DataCol.Name
Case "分"
If e.NewValue > -1 And e.NewValue < 7
Dim n As Integer = e.NewValue

e.DataRow("评定等级") = s.split("|")(n)
e.DataRow("思想分") = 55
e.DataRow("政治分") = 45 +n
Dim drs As List(Of DataRow) = e.DataTable.Select("分 = " & e.NewValue,"_SortKey",-2)
If drs.Count > 1
Dim lc As String = drs(drs.Count-2)("备注")
If lc = "做袖子"
e.DataRow("备注") = "做口袋"
Else If lc = "做口袋"
e.DataRow("备注") = "行棉"
Else
dr("备注") = "做袖子"
End If
End If
Else
dr("备注") = "做袖子"
End If
End If
End Select