[求助]老师，请问怎么控制流水号跳码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

固定号段的功能和重复个数的都写好了，就是跳号的搞不定，我昨天搞了一晚上，如果跳一个号可以写好，

如果有两个号，我怎么整都整不好。图片点击可在新窗口打开查看

我的附件呢？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:号码生成器.rar

此主题相关图片如下：qq截图20150312134403.png

老师们都去哪了

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65195&skin=0

dim str as string = "4,7"

dim snum as string = "001"
dim lnum as string = "010"
dim fmt as string = "".PadLeft(snum.Length, "0")
dim len as string = 2
dim str as string = ""
for i as integer = snum to lnum

dim b as bool =true

for each s as string in str.split(",")

if Val(s) = i then

b=false

end if

if b then

    for j as integer = 1 to len
        str &= format(i, fmt) & vbcrlf
    next
next

end if
msgbox(str)

老师们也是人,也要吃喝拉撒睡

Dim qs As String = e.Form.Controls("起始号段").Text
Dim js As String = e.Form.Controls("结束号段").Text
Dim gs As String = e.Form.Controls("重复个数").Text
Dim gd As String = e.Form.Controls("固定号段").Text
Dim tg() As String = e.Form.Controls("跳过").Text.Split(",")
Dim fmt As String = "".PadLeft(qs.length,"0") '根据起始数得出数字占位长短
If gs = "" Or gs = "0" Then
    MessageBox.show("请输入重复个数,无需重复请输入1","错误输入",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim str As String
    Dim tgnum As String
    For i As Integer = qs To js
        For s As Integer = 1 To gs
            Dim temp As String
            If gd > "" AndAlso e.Form.Controls("CheckBox1").Checked = True Then
                temp = gd & Format(i,fmt) & vbcrlf
            Else If gd > "" AndAlso e.Form.Controls("CheckBox2").Checked = True Then
                temp = Format(i,fmt) & gd & vbcrlf
            Else
                temp = Format(i,fmt) & vbcrlf
            End If
            If array.Indexof(tg, i) = -1 AndAlso array.IndexOf(tg, Format(i,fmt)) = -1 Then
                str = str & temp
            End If
        Next
    Next
    Dim open As New SaveFileDialog
    open.Title = "保存号段"
    open.Filter = "文本文件|*.txt"
    open.OverwritePrompt = True
    If open.ShowDialog = DialogResult.OK Then
        FileSys.WriteAllText(open.FileName,str,False,Encoding.Unicode)
    End If
End If

测试了下甜老师的代码，不起作用，Bin老师的代码有点没看懂,那个Val（）是什么意思

Val是转换函数，刚查了下帮助图片点击可在新窗口打开查看

不能不起作用，测试有效。去重复那里，直接写整数或者起始号段那种的，不要加上固定号段

改一下

Dim qs As String = e.Form.Controls("起始号段").Text
Dim js As String = e.Form.Controls("结束号段").Text
Dim gs As String = e.Form.Controls("重复个数").Text
Dim gd As String = e.Form.Controls("固定号段").Text
Dim tg() As String = e.Form.Controls("跳过").Text.Split(",")
Dim fmt As String = "".PadLeft(qs.length,"0") '根据起始数得出数字占位长短
If gs = "" Or gs = "0" Then
    MessageBox.show("请输入重复个数,无需重复请输入1","错误输入",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    Dim str As String
    Dim tgnum As String
    For i As Integer = qs To js
        For s As Integer = 1 To gs
            Dim temp As String
            If gd > "" AndAlso e.Form.Controls("CheckBox1").Checked = True Then
                temp = gd & Format(i,fmt) & vbcrlf
            Else If gd > "" AndAlso e.Form.Controls("CheckBox2").Checked = True Then
                temp = Format(i,fmt) & gd & vbcrlf
            Else
                temp = Format(i,fmt) & vbcrlf
            End If
            If array.Indexof(tg, cstr(i)) = -1 AndAlso array.IndexOf(tg, Format(i,fmt)) = -1 Then
                str = str & temp
            End If
        Next
    Next
    Dim open As New SaveFileDialog
    open.Title = "保存号段"
    open.Filter = "文本文件|*.txt"
    open.OverwritePrompt = True
    If open.ShowDialog = DialogResult.OK Then
        FileSys.WriteAllText(open.FileName,str,False,Encoding.Unicode)
    End If
End If

主题：[求助]老师，请问怎么控制流水号跳码。