dim str as string = e.datarow("型号")
dim s() as string = str.split("|")
e.datarow("客户") = S(0)
e.datarow("类别") = S(1)
e.datarow("编号") = S(2)