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

错误提示：

 

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.3.23.1
错误所在事件：光缆台帐表,PositionChanged
详细错误信息：
指定的参数已超出有效值的范围。
参数名: i

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-1).Value
    Else
        e.Form.Controls("ODF" & i).text = Nothing
    End If
Next

当点击的行【ODM框ODF盘】单元格为空时、"ODF" & i 中显示的内容为最后一次点击行的内容；而没有清空"ODF" & i 中的内容

上传具体例子。

上面问题找到啦，命令放错了位置。

 

 

下面命令相实现如果【光缆纤芯台帐表】中有符合条件的行；那么将【光缆台帐表】中的【光缆类别】填写到【光缆纤芯台帐表】中符合条件的【光缆类别】中去；但是以下命令执行的结果是只修改了【光缆纤芯台帐表】中第一个符合条件的【光缆类别】内容；后面同样符合条件的行并没有进行修改；为什么？

 

 

If e.DataCol.Name = "光缆类别" Then '如果更改的是 ***列 和 ***列
    vars("del") = True
    vars("sort")=True
    vars("add")=True
    For Each r As Row In Tables("光缆台帐表").Rows
        Dim dr As DataRow = DataTables("光缆纤芯台帐表").Find("[光缆Identify] = '" & r("_Identify") & "'  ")
        If dr IsNot Nothing Then
            dr("光缆类别") = r("光缆类别")
        End If
    Next
    vars("del") = False
    vars("sort")=False
    vars("add")=False
Else
End If

vars("del") = True
vars("sort")=True
vars("add")=True
For Each r As Row In Tables("光缆台帐表").Rows
    DataTables("光缆纤芯台帐表").replacefor("光缆类别", r("光缆类别"), "[光缆Identify] = '" & r("_Identify") & "'  ")
Next
vars("del") = False
vars("sort")=False
vars("add")=False

 

 

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-1).Value
    Else
        e.Form.Controls("ODF" & i).text = Nothing
    End If
Next

 

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

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-1).Value
    Else
        e.Form.Controls("ODF" & i).text = Nothing
    End If
Next

这个命令执行正常：

If e.DataCol.Name = "光缆长度" Then '如果更改的是 ***列 和 ***列
    For Each r As Row In Tables("光缆台帐表").Rows
                   
        DataTables("光缆纤芯台帐表").replacefor("纤芯长度", r("光缆长度"), "[光缆Identify] = '" & r("_Identify") & "' ")
       
    Next
Else
End If

 

以下这个命令无法实现，我的命令该怎么修改？

 

If e.DataCol.Name = "光缆长度" Then '如果更改的是 ***列 和 ***列
    For Each r As Row In Tables("光缆台帐表").Rows
        vars("当前行") = Tables("光缆台帐表").Current("光缆长度")
              
        DataTables("光缆纤芯台帐表").replacefor("纤芯长度", r("光缆长度"), "[光缆Identify] = '" & r("_Identify") & "' and  [纤芯长度] = '" & vars("当前行") & "' ")
       
    Next
Else
End If

If e.DataCol.Name = "光缆长度" Then '如果更改的是 ***列 和 ***列
    For Each r As Row In Tables("光缆台帐表").Rows
        DataTables("光缆纤芯台帐表").replacefor("纤芯长度", r("光缆长度"), "[光缆Identify] = '" & r("_Identify") & "' and  [纤芯长度] = '" & r("当前行") & "' ")
       
    Next
Else
End If