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

看看

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

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

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)

禁止重复，看看

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

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

参考代码

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

做一个按钮，显示勾选

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

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

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

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

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

初学者，请先看完视频教程

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187