主题：窗口代码

1、http://www.foxtable.com/webhelp/scr/0633.htm

 

2、比如

 

With Tables("采购主表")
     If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        .Position = .Position - 1 

    Else

        msgbox("请先保存当前行")
    End If
End With

 

3、

 

if tables("采购主表").current("供应商") = nothing Then

    msgbox("请先输入供应商")

    return

End If

 

4、

 

For Each r As Row In Tables("采购主表.采购明细表").rows    
    If r("名称") = Nothing Then        
        msgbox("请先输入名称")        
        Return        
    End If   
Next

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 nms As String() = {"年","月"} '指定连接列
gg.Combine(nms,aa,nms) '将销售统计数据组合到进货统计数据
gg.show("统计表")
With DataTables("统计表").DataCols  '用表达式列计算库存数据
    .Add("平均销售毛利",Gettype(Double), " [金额] /[数量] * [销售_数量]")
End With 

参考

 

http://www.foxtable.com/webhelp/scr/2359.htm