主题：[求助]高手帮忙，狐爸帮忙，谢谢

1,在序列号处输入22位序列号，能自动解析出日期，24001075082104122D0319 规则为：从序列号的15位开始解析，15-16位为年，17位为月，18位为日

其中17位和18位会存在字母，从字母A-V分别代表10-31，解析出来的日期填写到列日期里面，同时标签显示解析出来的日期-当前日期等于多少天

 

2，产品列的内容变动，因为产品列用了字典，没有限制直接输入，

那么当产品列输入的内容在字典表中不存在时，给出提示然后清除文本框内容

 

3，新增按钮：第一次点新增后，再次点击时，如果上条数据没有保存，不允许新增行，同时给出提示，只有保存后才能继续新增

 

（全部文本框都绑定了字段）

 

 

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

点击浏览该文件:管理项目1.rar

 

请大家帮忙，不胜感激，谢谢

1,

Dim str1 As String = "24001075082104122D0319"
Dim str2 As String = "0000000000ABCDEFGHIJKLMNOPQRSTUV"
Dim s As String
For i As Integer = 14 To 17
    s + = str1(i)
Next
Dim str As String
For i As Integer = 0 To s.Length - 1
    If Char.IsLetter(s(i)) Then
        str = str & str2.IndexOf(s(i))
    Else
        If i > = 2 Then
            str = str & "0" & s(i)
        Else
            str = str & s(i)
        End If
    End If
Next
Output.Show("20" & str.Insert(2,"-").Insert(5,"-"))
Tables("订单").Current("日期") = "20" & str.Insert(2,"-").Insert(5,"-")

 

Dim dt1 As Date = Tables("订单").Rows(0)("日期")
Dim dt2 As Date = Date.Today
Dim ts As TimeSpan = dt2 - dt1
Output.Show(ts.TotalDays)

 

2, 开发版，打不开

3, 开发版，打不开

狐爸过来看看哦，谢谢lsy

帮我在例子上面弄一下吧，谢谢

帮我在例子上面弄一下吧，谢谢

 如下

非常感谢，

高手，这个不行啊，如果表示空的时候，点击新增按键后悔提示出错的
此主题相关图片如下：qq图片20140113140300.jpg

.

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

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

谢谢，我再试试