主题：请教使用怎么实现使用年限的问题

参考代码

 

Dim cs() As String = {"第一列", "第二列", "第三列"}

Dim r1 As Row = Tables("表A").rows(0)
Dim r2 As Row = Tables("表A").rows(1)

For Each c As String In cs
    Dim temp As String = r1(c)
    r1(c) = r2(c)
    r2(c) = temp
Next

那这个添加到那个事件？这个代码添加例如我是第5行，和第85行对调是否可以？

做一个按钮，显示勾选

 

Tables("表A").ShowCheckBox = true

 

做一个按钮，把勾选的两行对调

 

Dim cs() As String = {"第一列", "第二列", "第三列"}
Dim r1 As Row = Tables("表A").GetCheckedRows(0)
Dim r2 As Row = Tables("表A").GetCheckedRows(1)

For Each c As String In cs
    Dim temp As String = r1(c)
    r1(c) = r2(c)
    r2(c) = temp
Next

泡哥，还能帮我处理一下。我是新手。不太会

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

点击浏览该文件:南京徳亨文设备一览表.table

另外泡哥，我的ip表，门禁表都是和设备一览表相关联的。我在设备一览表点击关联 ip表和门禁表我的ip表和门禁表则自动更新了，如果遇到离职的自动加底纹。泡哥还能帮我处理一下。谢谢

交换

 

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

点击浏览该文件:南京徳亨文设备一览表.table

 

没看懂你什么意思，跨表引用参考

 

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

 

泡哥，我刚刚看看。交换失败，考勤记录，门禁没有更换，另外ip地址也没有更换。只是前面内存，一体机更换了。

 汗，你要看懂代码啊，要换什么，这里就定义什么

 

Dim cs() As String = {"第一列", "第二列", "第三列"}

好的，明白了