窗口代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、去掉关联表设置里面的“同步删除关联行”的勾选：http://www.foxtable.com/webhelp/scr/1644.htm

With Tables("采购主表")

If .Current IsNot Nothing

If .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

.Position = .Position - 1

Else

MessageBox.Show("请先保存?")

End If

End With

3、4：用法和上面一样

回2楼

Dim g As New GroupTableBuilder("统计表1", DataTables("销售明细表"))

Dim gg As fxDataSource

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Totals.AddDef("数量","销售_数量")

g.Totals.AddDef("金额","销售_金额")

g.VerticalTotal = True

gg = g.BuildDataSource()

Dim a As New GroupTableBuilder("统计表2", DataTables("采购明细表"))

Dim aa As fxDataSource

a.Groups.AddDef("日期", DateGroupEnum.Year, "年")

a.Groups.AddDef("日期", "月")

a.Totals.AddDef("数量")

a.Totals.AddDef("金额")

a.VerticalTotal = True

aa = a.BuildDataSource()

Dim str() As String = {"年","月"}

aa.Combine(str,gg,str)

主题：窗口代码