看看这样操作能否完成你的功能要求!
表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
此主题相关图片如下:编码自动解析20210511.jpg