|
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
|
加好友 
发短信
Post By：2016/3/11 13:11:00 [显示全部帖子]
