请教使用怎么实现使用年限的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我是这样设置的。

If e.Col.Name = "使用年限" Then
    If e.Row.IsNull(e.Col.Name) = False Then
        'Dim s() As String = e.Row(e.Col.Name).split("年")
        Dim d As Date
        Dim d2 As Date
        If e.Row.IsNull("购买日期") Then
            d2 = e.Row("生产日期")
        Else
            d2 = e.Row("购买日期")
        End If
        d = d2.AddDays(e.Row("使用年限"))
        Dim y,m,dd As Integer
        DateYMD(d,d2,y,m,dd)
        e.Text = y & "年" & m & "月"
        If y >= 5 Then
            If e.Row("部门") = "公共设施" Then

                e.Style = "使用年限2"
            Else
                e.Style = "使用年限"
            End If
        End If
    End If
End If

If e.Row("部门") = "离职" Then
e.Style = "离职"
End If
If e.Row("部门") = "公共设施" Then
e.Style = "公共设施"
End If

If e.Col.Name = "是否过保" Then
    If e.Row.isnull("保修日期") = False AndAlso e.Row("保修日期") < Date.today Then
        If e.Row(e.Col.Name) = "过保" Then
            If e.Row("部门") = "公共设施" Then
                e.Style = "是否过保2"
            ElseIf e.Row("部门") = "离职" Then
                e.Style = "离职2"
            Else
                e.Style = "是否过保"
            End If
        End If
    End If
End If

If e.Col.Name = "内存" Then
    If e.Row.IsNull(e.Col.Name) = False Then
        If e.Row(e.Col.Name) = "2G" Then
            If e.Row("部门") = "公共设施" Then
                e.Style = "公共设施2"
            ElseIf e.Row("部门") = "离职" Then
                e.Style = "离职2"
            Else
                e.Style = "2G"
            End If
        End If
    End If
End If
If e.Col.Name = "生产日期" Then
    If e.Row.IsNull(e.Col.Name) = False Then
        Select Case e.Row(e.Col.Name).Year
            Case 2008, 2009, 2010
                If e.Row("部门") = "公共设施" Then
                    e.Style = "公共设施2"
                ElseIf e.Row("部门") = "离职" Then
                    e.Style = "离职2"
                Else
                    e.Style = e.Row(e.Col.Name).Year
                End If
        End Select
    End If
End If

谢谢大红袍，

我在iP表的DataColChangedIf e.DataCol.Name = "IP地址" Then

Dim str As String = Nothing

For j As Integer = 1 To 2

For i As Integer = 1 To 255

If DataTables("IP表").find("ip地址 = '192.168." & format(j, "000") & "." & Format(i, "000") & "'") Is Nothing Then

str = "192.168." & j & "." & i

Exit For

End If

If str > Nothing Then Exit For

msgbox(str)

End If

另外，我设置Select Case e.DataCol.name

    Case "IP地址"
        Dim dr As DataRow = DataTables("IP表").Find("ip地址 = '" & e.OldValue & "'")
        If dr Is Nothing Then
            dr = DataTables("IP表").AddNew()
            dr("IP地址") = e.DataRow("IP地址")
            dr("姓名") = e.DataRow("使用人")
        Else
            dr("IP地址") = e.DataRow("IP地址")
        End If
End Select

怎么有的有姓名有的没有姓名

我的目的是：IP表自动生成192.168.1.1-192.168.1.255 ，然后在自动生成192.168.2.1-192.168.2.255然后和设备一览表相匹配我的IP地址，IP地址相同的则自动填写姓名。怎么实现

下载信息 [文件大小：下载次数： ]
点击浏览该文件:南京徳亨文设备一览表.table

此主题相关图片如下：qq图片20160310135858.png

此主题相关图片如下：qq截图20160310135929.png

我要实现

1、先在IP表自动生成192.168.1.1-192.168.1.255 ，然后在自动生成192.168.2.1-192.168.2.255然后和设备一览表相匹配我的IP地址，IP地址相同的则自动填写姓名。

2、然后设备一览表现有的数据同步到IP表。如果我手更新IP表也可以同步到设备一览表

3、公共设施不统计到门禁与考勤表

4、门禁和考勤表如果有离职的自动加底纹，同时在姓名旁边自动加（离职）

5、IP表，公共设施和离职也自动加底纹。

请问如何实现

然后每个表的下方有个查询按钮。 IP地址可以按使用人和使用IP排序。

再说一次，你能不能先把帮助文档看一遍

1、http://www.foxtable.com/help/topics/1451.htm

2、看1啊 http://www.foxtable.com/help/topics/1453.htm

3、条件加上设置 " and 部门 <> '公共设施'"

4、建立父子表，引用父表一览表的部门信息值。编写drawcell事件，如果是离职，就控制e.style 和 e.text

5、看4

6、参考 http://www.foxtable.com/help/topics/1058.htm

我今天早晨看视频，在做数据交换，遇到了一个问题

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

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

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

不知道是什么问题。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:南京徳亨文设备一览表.table

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

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