主题：时段录入导出问题

1、excel没有时段一说；

2、合计就是合计秒的，你可以不用合计模式，用汇总模式；或者自己加入一行合计；

3、导出的时候，可以设计模板导出，模板可以设置表达式转换为时段。

Dim N As Integer = 3662
Dim hour As Integer = N \ 3600
Dim minute As Integer = (N Mod 3600) \ 60
Dim second As Integer = N Mod 60

msgbox(hour & " " & minute & " " & second)

 时段列可以直接用表达式计算的，除非你设置的不是时段，而是日期时间类型。

 具体问题，请上传一个例子说明。

 1、你的起始时间、结束时间必须是时段而不能是时间，才能用表达式计算

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

点击浏览该文件:时段计算.table

 2、如果改代码

Select Case e.DataCol.name
    Case "起始时间","结束时间"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("起始时间") Or dr.IsNull("结束时间") Then
            dr("本次用时") = Nothing
        Else
            If dr("结束时间") >= dr("起始时间") Then
                Dim tp As TimeSpan = dr("结束时间") - dr("起始时间")
                dr("本次用时") = tp.TotalSeconds()
            Else
                Dim d1 As Date = dr("结束时间")
                Dim d As Date = dr("起始时间")
                Dim tp As TimeSpan = new Date(1900, 1, 2, d1.Hour, d1.Minute, d1.Second) -  new Date(1900, 1, 1, d.Hour, d.Minute, d.Second)
                dr("本次用时") = tp.TotalSeconds()
            End If
        End If
End Select

 替换？那就用列表项目

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

 用代码来做

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

点击浏览该文件:字典.rar

1、

If e.DataCol.Name = "起站" Then
    Dim fdr As DataRow
    Dim dr As DataRow = e.DataRow
    fdr = DataTables("机场").Find("代码 = '" & dr("起站") & "'")
    If fdr IsNot Nothing Then
        dr("起飞机场") = fdr("名称")
    Else
        dr("起飞机场") = Nothing
    End If
End If

2、isnull([起地],0) + isnull([落地],0) + isnull([修理],0)

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

2、可以设置分组统计的filter属性 http://www.foxtable.com/help/topics/0677.htm

1、> "" 表示如果填了值； " And " 是各个条件之间的逻辑连接符，意思是 满足 条件1 且 满足 条件2

2、filter只是定义的一个变量的名称，你可以用其它英文代替

 你要使用excel模板，然后单元格表达式这样写

 <[空时] \ 3600 & ":" & ([空时] mod 3600) \ 60>