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

另外还能不做按钮能不能实现？

直接在表格交换不了的，要么定义菜单或者快捷菜单

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

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

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

 

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

 

同时把帮助文档看完一次啊

 

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

 

你问的问题，都可以通过学习视频教程和帮助文档找到答案。

 刚刚使用年限已经成功了。

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
            e.Style = "使用年限"
        End If
    End If
End If


遇到了3个问题
1、如果我误删除了数据，如何让表重新自动计算。
2、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
如果让自动显示没过保还是过保的数据


3、如果设置没有购买日期，没有生产日期则不计算是否过保和使用年限。




我设置了自定义样式使用年限2， 

1、去编写datacolchanged事件。代码参考以前写给你的代码；

 

2、

 

If e.Col.Name = "是否过保" Then
    If e.Row.isnull("保修日期") = False AndAlso e.Row("保修日期") < Date.today Then

        '其余代码
    Else
        e.style = "过保"
    End If
End If

 

3、看1、看9楼，把视频教程和帮助文档先看一遍。

 

 

1、离职员工、公共设施如果有内存2G，生产日期有2008.2009.2010标红加粗

1、

 

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("部门") = "离职" OrElse e.Row("部门") = "公共设施" Then
                If e.Row.isnull("生产日期") = False
                    Select e.Row("生产日期").year
                        Case 2008,2009,2010
                            e.Style = "2G"
                    End Select
                End If
            End If
        End If
    End If
End If