以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据交换出错了  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82095)
--  作者：冰淇淋小子
--  发布时间：2016/3/11 12:03:00
--  数据交换出错了
 我今天早晨看视频，实现了IP地址批量生成和数据交换的功能，现在遇到了一个问题

1、两个数据交换。A与B交换，  B与C交换  


交换完毕后。使用年限不会交换， 是否过保也不会交换。 手机号码、营销考勤 、营销门禁如果没有数据的时候自动标注为0。。

2、能不能让使用年限自动计算，我刚刚没有交换，数据被我删除了就无法添加修改数据，因为是时段扩展数据。



不知道是什么问题。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:南京徳亨文设备一览表.table
--  作者：大红袍
--  发布时间：2016/3/11 13:11:00
--  
Dim cs() As String = {"姓名","编号","机器类型","内存","硬盘","生产日期","购买日期","保修日期","上门截止日期","使用年限","是否过保","IP地址","固定电话","手机号码","公司编号","营销考勤","营销门禁","科研考勤","科研门禁","备注"}
Dim r1 As Row = Tables("南京徳亨文生物科技有限公司设备一览表").GetCheckedRows(0)
Dim r2 As Row = Tables("南京徳亨文生物科技有限公司设备一览表").GetCheckedRows(1)
systemready = False
For Each c As String In cs
    Dim temp As String = iif(r1.isnull(c), Nothing, r1(c))
    r1(c) = iif(r2.isnull(c), Nothing, r2(c))
    r2(c) = temp
Next
systemready = True
--  作者：冰淇淋小子
--  发布时间：2016/3/11 14:18:00
--  
 谢谢