主题：编码

DataColChanged事件中加入下面的代码：

Select Case e.DataCol.Name
    Case "类型_4","类型_3","类型_2","类型_1"
        Dim dr As DataRow = e.DataRow
        If dr("类型_4") <> "0" Then
            dr("类型名称") = dr("类型_4")
        ElseIf dr("类型_3") <> "0" Then
            dr("类型名称") = dr("类型_3")

……
        End If
End Select

Select Case e.DataCol.Name
    Case "附加1_名称","情形_名称"
        Dim dr As DataRow = e.DataRow

dim s as string
        If dr.isnull("附加1_名称") =false Then
            s = dr("附加1_名称") & "|"

        End If

dr("情形名称") = s & dr("情形_名称")
End Select