主题：关于批量入库

该怎么实现这个功能呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.foxdb

那你直接取后面四位计算即可，如

 

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

If DataTables("流量卡资料库").Find("流量卡号 >= '" & startno & "' and 流量卡号 <= '" & endno & "'") 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("已存在卡号")
End If

如何用多文本框将所有要入库的单品编号扫描或键盘输入到多文本框中然后单击保存按钮，将所有的单品一次性保存到数据库中呢？

 

1、编号之间，必须有分割符或者换行符；

 

2、那你就分割每一个编号后，循环每一个，增加行，保存数据。

循环次数不是固定的怎么统计呢？

 

请举例说明。

 

上传一个对应实例，说明输入什么内容，最后得到什么效果。

打开多文本框操作窗体，将文本框1和文本框2的文本内容甚至好，将更要入库的每个编号输入到多文本框中单击保存后就会将每一个编号数据依次保存到数据库中。

Dim str = e.Form.controls("textbox3").text
For Each s As String In str.replace(chr(10), "").split(chr(13))
    Dim r As Row = Tables("流量卡资料库").AddNew
    r("服务商") = e.Form.Controls("TextBox1").text
    r("购买金额") = e.Form.Controls("TextBox2").text
    r("流量卡号") = s
Next

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:批量入库.foxdb

怎判断不能入库重复编号的数据呢？

Dim str = e.Form.controls("textbox3").text
For Each s As String In str.replace(chr(10), "").split(chr(13))

    Dim r = DataTables("流量卡资料库").Find("流量卡号 = '" & s & "'")

    If r is nothing then r = dataTables("流量卡资料库").AddNew
    r("服务商") = e.Form.Controls("TextBox1").text
    r("购买金额") = e.Form.Controls("TextBox2").text
    r("流量卡号") = s
Next