主题：关于批量入库

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

 

怎样判断文本框中所输入的末尾4位字符串是否为数字型字符串呢？

 

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

 

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

 

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

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

 

参考代码，如

 

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

 

这样获取文本框中从右侧数第四个开始所有的字符串呢

经过测试如果后四位开始数是“0”的话保存数据时前面的“0”会自动删除了，比如：“1234A0001”会保存为“1234A1”；“1234A0101”会保存为“1234A101，怎样才能保存为“1234A0001”；“1234A0101”呢？

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

 

改成

 

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

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

   DataTables("流量卡资料库").StopRedraw
    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

   DataTables("流量卡资料库").ResumeRedraw
    Else
        msgbox("不是数值")
    End If
Else
    msgbox("已存在卡号" & fdr("流量卡号"))
End If

加入红色代码后在添加数据时出现数据表闪屏表里的数据短暂的显示白屏，过二三十秒就有回复正常了，是怎么回事？

计算的数据多，导致计算时间长就这样