不能用Select Case
必须用If Then
If e.DataRow("鉴定类别") Like "*因果*" Then
ElseIf e.DataRow("鉴定类别") Like "*器具*" Then
End If