关于批量入库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于批量入库

共有6138人关注过本帖树形打印复制链接主题：关于批量入库

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/9 14:31:00 [显示全部帖子]

Dim startno As String = e.Form.Controls("TextBox1").text
Dim endno As String = e.Form.Controls("TextBox2").text

Dim fdr = DataTables("流量卡资料库").Find("流量卡号 >= '" & startno & "' and 流量卡号 <= '" & endno & "'")
If fdr Is Nothing Then
    Dim pfix As String = left(startno, startno.Length-4)
    Dim ka1 As Integer = right(startno, 4)
    Dim ka2 As Integer = right(Endno, 4)
    For i As Integer = ka1 To ka2
        Dim r As Row = Tables("流量卡资料库").AddNew
        r("服务商") = e.Form.Controls("TextBox4").text
        r("购买金额") = e.Form.Controls("TextBox3").text
        r("流量卡号") = pfix & i
    Next
Else
    msgbox("已存在卡号" & fdr("流量卡号"))
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/9 21:32:00 [显示全部帖子]

以下是引用裴保民在2018/12/9 17:09:00的发言：
怎样判断文本框中所输入的末尾4位字符串是否为数字型字符串呢？

尝试转换成数值，看是否报错，如

http://www.foxtable.com/webhelp/scr/0324.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/9 22:37:00 [显示全部帖子]

以下是引用裴保民在2018/12/9 22:20:00的发言：

我的意思是文本框中后四位必须是数字，如果输入英文字母，判断结果是“否”，就不执行后面的代码，否则执行后面的代码

怎么判断一个文本框中所输入的字符串中后四位是否为纯数字呢？

参考代码，如

Dim startno As String = e.Form.Controls("TextBox1").text
Dim endno As String = e.Form.Controls("TextBox2").text

Dim fdr = DataTables("流量卡资料库").Find("流量卡号 >= '" & startno & "' and 流量卡号 <= '" & endno & "'")
If fdr Is Nothing Then
    Dim pfix As String = left(startno, startno.Length-4)
    Dim ka1 As Integer
    Dim ka2 As Integer
    If Integer.TryParse(right(startno, 4), ka1) AndAlso Integer.TryParse(right(Endno, 4), ka2)
        For i As Integer = ka1 To ka2
            Dim r As Row = Tables("流量卡资料库").AddNew
            r("服务商") = e.Form.Controls("TextBox4").text
            r("购买金额") = e.Form.Controls("TextBox3").text
            r("流量卡号") = pfix & i
        Next
    Else
        msgbox("不是数值")
    End If
Else
    msgbox("已存在卡号" & fdr("流量卡号"))
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/10 9:04:00 [显示全部帖子]

r("流量卡号") = pfix & i

改成

r("流量卡号") = pfix & format(i, "0000")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 9:10:00 [显示全部帖子]

以下是引用裴保民在2019/1/3 0:06:00的发言：
怎么设置一下呢？看着可不舒服呢！

1、尝试加入代码

http://www.foxtable.com/webhelp/scr/2218.htm

2、如果还有问题，做一个对应实例发上来测试

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/7 15:29:00 [显示全部帖子]

以下是引用裴保民在2019/1/7 15:26:00的发言：
多文本框输入如后怎样判断所输入的有重复呢数据呢？库里有重复的的数值可以循环查找，如果是所输入的每项数据之间怎么查重复值呢？

你在新增行之前，先find查找是否重复，如果重复了，就不要新增行了。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/7 15:45:00 [显示全部帖子]

Dim ls As new List(of String)
For Each s As String In str.split(new Char() {chr(13), ","})
    s = s.replace(chr(10), "").replace(chr(13), "")
    If s > "" Then
        If ls.Contains(s) = False Then
            ls.add(s)
        Else
            msgbox("重复")
            Return
        End If
    End If
Next

For Each s As String In ls
    Dim r = DataTables("流量卡资料").Find("流量卡号 = '" & s & "'")
    If r IsNot Nothing Then
        msgbox("流量卡号存在,流量卡不能入库!" & s)
        tbx.Select
        e.cancel = True
        Return
    End If
Next

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/7 16:26:00 [显示全部帖子]

            e.cancel = true
            Return
        End If
    End If
Next

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

总数 19 上一页 1 2

主题：关于批量入库