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

表“材料库”，有三列（类型、皮号、类属）

类型有多种（皮、革、青皮、布、科技布....)，希望将皮、青皮、革......归到“皮”类属里。希望在【类型】里输入（皮、革、青皮、布、科技布....)，之后，【类属】能自动填充为“皮”。

我在datacolchanged,写了这个代码，

Dim cls As List(of DataRow)
cls = DataTables("材料库").Select("[类型] = '皮 '")
For Each cl As DataRow In cls
    cl("类属")="皮"
Next

select条件不知道怎么写了

或者有什么其他好的方法也行

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

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