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

此主题相关图片如下：360截图20160411084127105.jpg

参考19、20楼

以下命令想实现将当前行的【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

 

Dim dr As Row = e.Table.Current
Dim reg As new System.Text.RegularExpressions.Regex.Matches(dr("ODM框ODF盘"), "(?<=【{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

 

错误提示： System.Text.RegularExpressions.Regex.Matches 未定义类型

Dim dr As Row = e.Table.Current
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("ODM框ODF盘"), "(?<=【{1}).+?(?=】{1})")

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

还是一样的错误提示，我的这个命令是准备写在表的PositionChanged中的

Dim dr As Row = e.Table.Current
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("ODM框ODF盘"), "(?<=【{1}).+?(?=】{1})")

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

1、以下红色命令为：如果dr("ODM框ODF盘")单元格为空，那么清空ODF1 --ODF4控件的内容；但是命令没有生效。为什么？

 

2、以下命令是否可以进行优化？

 

            Dim dr As Row = e.Table.Current
            Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("ODM框ODF盘"), "(?<=【{1}).+?(?=】{1})")
            If mc.Count = 4 Then
                e.Form.Controls("ODF1").text = Nothing
                e.Form.Controls("ODF2").text = Nothing
                e.Form.Controls("ODF3").text = Nothing
                e.Form.Controls("ODF4").text = Nothing
                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
               
            Else
                If mc.Count = 3 Then
                    e.Form.Controls("ODF1").text = Nothing
                    e.Form.Controls("ODF2").text = Nothing
                    e.Form.Controls("ODF3").text = Nothing
                    e.Form.Controls("ODF4").text = Nothing
                    e.Form.Controls("ODF1").text =  mc(0).Value
                    e.Form.Controls("ODF2").text =  mc(1).Value
                    e.Form.Controls("ODF3").text =  mc(2).Value
                Else
                    If mc.Count = 2 Then
                        e.Form.Controls("ODF1").text = Nothing
                        e.Form.Controls("ODF2").text = Nothing
                        e.Form.Controls("ODF3").text = Nothing
                        e.Form.Controls("ODF4").text = Nothing
                        e.Form.Controls("ODF1").text =  mc(0).Value
                        e.Form.Controls("ODF2").text =  mc(1).Value
                    Else
                        If mc.Count = 1 Then
                            e.Form.Controls("ODF1").text = Nothing
                            e.Form.Controls("ODF2").text = Nothing
                            e.Form.Controls("ODF3").text = Nothing
                            e.Form.Controls("ODF4").text = Nothing
                            e.Form.Controls("ODF1").text =  mc(0).Value
                        Else
                            If dr("ODM框ODF盘") Is Nothing Then
                                e.Form.Controls("ODF1").text = Nothing
                                e.Form.Controls("ODF2").text = Nothing
                                e.Form.Controls("ODF3").text = Nothing
                                e.Form.Controls("ODF4").text = Nothing
                            Else
                            End If
                        End If
                    End If
                End If
            End If

Dim dr As Row = e.Table.Current
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("ODM框ODF盘"), "(?<=【{1}).+?(?=】{1})")
For i As Integer = 1 To 4
    If mc.count >= i Then
        e.Form.Controls("ODF" & i).text =  mc(i).Value
    Else
        e.Form.Controls("ODF" & i).text = Nothing
    End If
Next