Datacolchanged代码：

Select Case  e.DataCol.Name

    Case "名称","产地"

        Dim n1 As Integer        

        Dim Lms,py,jps As  String

        Dim jps1 As New List(Of String)

        

        Lms ="名称|产地"        

        For Each py  In Lms.split("|")

            If  py =e.DataCol.Name Then

                Exit For

            End If

            n1+=1

        Next

        If e.DataRow.Isnull(e.DataCol.Name) Then

            py  ="@|#".split("|")(n1)

        Else

            py = GetPY(e.DataRow(e.DataCol.Name),True)

        End If

        

        jps1.AddRange(e.DataRow("简码").split("|"))

        jps1.Insert(n1,py)

        jps1.RemoveAt(n1+1)

        

        For Each py  In jps1

            jps+=py & "|"

        Next

        e.DataRow("简码") = jps.trim("|")       

End Select

更改名称的时候简码会改变，更改产地的时候就会出现运行错误，提示是：调用的目标发生了异常。