主题：如何把编码提取到相应的表格中

看看这样操作能否完成你的功能要求！

表A_DataColChanged事件

If e.DataCol.Name ="编码" Then

    Dim cs() As String = e.DataRow("编码").split("-")

    Dim mb() As String = {"材质","厚度","宽度","长度"}

    If cs.Length>0 Then

        Dim i As Integer =0

        For Each s As String In cs

            e.DataRow(mb(i))=s

            i=i+1

        Next

    End If

End If

此主题相关图片如下：编码自动解析20210511.jpg