主题：移动开发-导出小时分表格数据

统计表2那里，显示是否正常？如果不正常，那就设置列为【时段】列

DataTables("统计表2").DataCols("总时间").ExtendType = ExtendTypeEnum.TimeSpan

Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
'g.Groups.AddDef(fz)
g.Groups.AddDef("飞行日期", "月")
g.Totals.AddDef("地面时间")
g.Totals.AddDef("空中时间")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.SubTotal = True
g.Build()
DataTables("统计表2").DataCols("地面时间").ExtendType = ExtendTypeEnum.TimeSpan
DataTables("统计表2").DataCols("空中时间").ExtendType = ExtendTypeEnum.TimeSpan
DataTables("统计表2").DataCols("总时间").ExtendType = ExtendTypeEnum.TimeSpan
'For i As Integer = 0 To Tables("统计表2").rows.count(True)-1
'    Dim r As Row = Tables("统计表2").rows(i, True)
'    For Each dc As Col In Tables("统计表2").Cols
'        If dc.IsNumeric Then
'            r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
'        End If
'    Next
'Next
With wb.AddTable("","Table2")
    .Alternate = 2
    .CreateFromTable(Tables("统计表2"),True)
End With

Dim g As New GroupTableBuilder("统计表2", DataTables("任务书"))
g.Groups.AddDef(fz)
g.Groups.AddDef("飞行日期", "月")
g.Totals.AddDef("地面时间")
g.Totals.AddDef("空中时间")
g.Totals.AddDef("总时间")
g.VerticalTotal = True
g.SubTotal = True
g.Build()
For i As Integer = 0 To Tables("统计表2").rows.count(True)-1
    Dim r As Row = Tables("统计表2").rows(i, True)
    For Each dc As Col In Tables("统计表2").Cols
        If dc.IsNumeric Then
            r(dc.Name) = Format(r(dc.Name)/3600, "0.0")
        End If
    Next
Next
With wb.AddTable("","Table2")
    .Alternate = 2
    .CreateFromTable(Tables("统计表2"),True)
End With

如果是网页的，参考 http://www.foxtable.com/mobilehelp/scr/0065.htm

用菜单设置行不行？

如果在foxtable里面设置合并模式也不行，说明你的数据本来就是不同的。

做个例子测试一下。

改成