以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据交换出错了  (http://www.foxtable.com/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
--  
 谢谢