Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教使用怎么实现使用年限的问题


  共有6115人关注过本帖树形打印复制链接

主题：请教使用怎么实现使用年限的问题
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		请教使用怎么实现使用年限的问题  发帖心情 Post By：2016/3/8 12:50:00 [只看该作者]

 我要实现：
当前时间-购买日期=使用年限
如果购买日期没有，则用当前时间-生产日期=使用年限


还有是否过保，用当前日期来判断，如果超出当前日期属于过保。如果是否过保没有任何数据则不判断

3、日期格式是2016-03-08
如果我写成2016/03/08自动转成2016-03-08

请问怎么实现
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/8 13:00:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		  发帖心情 Post By：2016/3/8 15:06:00 [只看该作者]

狐表 那192.168.1.1如何调整192.168.001.001.
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/8 16:18:00 [只看该作者]

Dim str As String = "192.168.1.1"
Dim nstr As String = ""
For Each s As Integer In str.split(".")
    nstr &= Format(s, "000") & "."
Next
nstr = nstr.trim(".")
msgbox(nstr)
 回到顶部
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		  发帖心情 Post By：2016/3/8 17:52:00 [只看该作者]

 我设置了
If e.DataCol.Name = "IP地址" AndAlso Not String .IsNullOrEmpty( e.NewValue) Then
    Dim arrNo() As String  = e.NewValue.Split(".")
    If arrNo.Length = 4 Then  
    For i  As Integer = 0 To arrNo.Length - 1
    arrNo(i) = arrNo(i).PadLeft(3,"0")
    Next
    e.DataRow("IP地址") = Join(arrNo,".")
    End If
End If


如果让IP地址输入不允许重复，怎么写这个代码
 回到顶部
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		  发帖心情 Post By：2016/3/8 17:56:00 [只看该作者]

当前时间-购买日期=使用年限
如果购买日期没有，则用当前时间-生产日期=使用年限

这个我没有搞定，怎么实现
 回到顶部
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		  发帖心情 Post By：2016/3/8 18:03:00 [只看该作者]

如果所有列不允许有重复值如何设置

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/8 18:04:00 [只看该作者]

禁止重复，看看

 

http://www.foxtable.com/help/topics/0624.htm

 
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/3/8 18:09:00 [只看该作者]

DataColChanged事件

 

Select e.DataCol.Name
   
    Case "购买日期", "生产日期"
       
        If e.DataRow.IsNull("购买日期") Then
            Dim sp As TimeSpan = Date.now - cdate(e.DataRow("生产日期"))
            e.DataRow("使用年限") = sp.TotalDays
        Else
            Dim sp As TimeSpan = Date.now - cdate(e.DataRow("购买日期"))
            e.DataRow("使用年限") = sp.TotalDays
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
冰淇淋小子
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：182 积分：1306 威望：0 精华：0 注册：2012/3/27 11:54:00 		  发帖心情 Post By：2016/3/8 19:27:00 [只看该作者]

谢谢，还有一个问题不知道狐表能不能实现，就是我第一行的姓名和第二行互相对调。包括姓名，电话，手机，门禁号，考勤号互相对调。能否实现。
 例如第一列王敏， 电话是123456 手机1385214567  门禁号24考勤号85
第二列徐莹，电话56385678 手机 没某手机  考勤号85门禁114  
现在她们电脑更换了就是徐莹用了王敏电脑，王敏用了徐莹电脑，那我还能把考勤号，门禁号，手机号码互换。能否实现。
 回到顶部
总数 48 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询