主题：[求助] 单元格填入多次内容

以下命令想实现将当前行的【ODM框ODF盘】单元格内容、拆分成4部分；并将内容分别填入到相对应的控件中去；我的命令该怎么修改？

 

【ODM框ODF盘】单元格内容格式为：【内容1】【内容2】【内容3】【内容4】

 

Dim dr As Row = e.Table.Current("ODM框ODF盘")

Dim reg As new System.Text.RegularExpressions.Regex.Matches(dr, "(?<=【{1}).+?(?=】{1})")
Dim mc As Object = reg.matches(dr)

If mc.Count = 4 Then

e.Form.Controls("ODF1").text =  mc(0).Value
e.Form.Controls("ODF2").text =  mc(1).Value
e.Form.Controls("ODF3").text =  mc(2).Value
e.Form.Controls("ODF4").text =  mc(3).Value
End If

 

 

分解出结果：控件【ODF1】内容为：内容1

                 控件【ODF2】内容为：内容2

                 控件【ODF3】内容为：内容3

                 控件【ODF4】内容为：内容4