[求助] 单元格填入多次内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 单元格填入多次内容

共有5015人关注过本帖树形打印复制链接主题：[求助] 单元格填入多次内容

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 11:39:00 [显示全部帖子]

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

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 14:25:00 [显示全部帖子]

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

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 14:59:00 [显示全部帖子]

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

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 15:15:00 [显示全部帖子]

上传具体例子。

大红袍

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 15:43:00 [显示全部帖子]

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

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 15:56:00 [显示全部帖子]

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

大红袍

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/11 16:34:00 [显示全部帖子]

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