[求助]如何快捷倒序填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何快捷倒序填充

共有2993人关注过本帖树形打印复制链接主题：[求助]如何快捷倒序填充

大红袍

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

加好友

发短信

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

Post By：2015/6/7 14:22:00 [显示全部帖子]

在什么情况下的下拉？通过什么设置的？

大红袍

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

加好友

发短信

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

Post By：2015/6/7 14:43:00 [显示全部帖子]

Dim tr As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim idx As Integer = tr(CurrentTable.ColSel).IndexOf("-")
If idx > -1 Then
    Dim lstr As String = tr(CurrentTable.ColSel).Substring(0, idx+1)
    Dim rstr As String = tr(CurrentTable.ColSel).Substring(idx+1)
    For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
        CurrentTable.Rows(i)(CurrentTable.ColSel) = lstr & Format(val(rstr)+i-CurrentTable.TopPosition , "00")
    Next
End If

[此贴子已经被作者于2015/6/7 14:42:58编辑过]

大红袍

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

加好友

发短信

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

Post By：2015/6/7 15:16:00 [显示全部帖子]

单独做一个按钮，或者菜单

大红袍

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

加好友

发短信

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

Post By：2015/6/7 15:40:00 [显示全部帖子]

Dim tr As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim idx As Integer = tr(CurrentTable.ColSel).IndexOf("-")
If idx > -1 Then
    Dim lstr As String = tr(CurrentTable.ColSel).Substring(0, idx+1)
    Dim rstr As String = tr(CurrentTable.ColSel).Substring(idx+1)
    For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
        CurrentTable.Rows(i)(CurrentTable.ColSel) = lstr & Format(val(rstr)-i-CurrentTable.TopPosition , "00")
    Next
End If

大红袍

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

加好友

发短信

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

Post By：2015/6/7 16:00:00 [显示全部帖子]

Dim tr As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim idx As Integer = tr(CurrentTable.ColSel).IndexOf("-")
If idx > -1 Then
    Dim lstr As String = tr(CurrentTable.ColSel).Substring(0, idx+1)
    Dim rstr As String = tr(CurrentTable.ColSel).Substring(idx+1)
    For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
        CurrentTable.Rows(i)(CurrentTable.ColSel) = lstr & Format(val(rstr)-i-CurrentTable.TopPosition , "".PadLeft(rstr.Length,"0"))
    Next
End If

大红袍

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

加好友

发短信

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

Post By：2015/6/7 17:14:00 [显示全部帖子]

无语，不可能不行。

大红袍

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

加好友

发短信

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

Post By：2015/6/8 9:45:00 [显示全部帖子]

抱歉，写少了括号

Dim tr As Row = CurrentTable.Rows(CurrentTable.TopPosition)
Dim idx As Integer = tr(CurrentTable.ColSel).IndexOf("-")
If idx > -1 Then
    Dim lstr As String = tr(CurrentTable.ColSel).Substring(0, idx+1)
    Dim rstr As String = tr(CurrentTable.ColSel).Substring(idx+1)
    For i As Integer = CurrentTable.TopPosition + 1 To CurrentTable.BottomPosition
        CurrentTable.Rows(i)(CurrentTable.ColSel) = lstr & Format(val(rstr)-(i-CurrentTable.TopPosition), "".PadLeft(rstr.Length,"0"))
    Next
End If

下一主题 >> << 上一主题

主题：[求助]如何快捷倒序填充