主题：识别类型，填充类属

 额....你这样写代码好危险......改完之后，记得重置列，才生效。

If e.DataCol.name = "类型" Then
    If e.DataRow.Isnull("类型") Then
        e.DataRow("属类") = Nothing
    Else
        Select Case e.DataRow("类型")
            Case "皮", "革", "青皮", "布", "科技布"
                e.DataRow("属类") = "皮"
            Case Else
                e.DataRow("属类") = Nothing
        End Select
    End If
End If