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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129539)

--  作者：admin22327
--  发布时间：2018/12/30 23:23:00
--  窗口代码
你好，我做了一个入库窗口，有几个代码不会了，请求帮助，谢谢
1、删除明细的最后一行，主表对应的行不能删除（帮助里面的代码不起作用）
2、前一单、后一单，没有保存的情况下，不起作用，提示怎么弄（对话框）
3、没有输入供应商，不能保存的对话框提示
4、没有输入商品名称，不能保存的
下载信息  [文件大小：   下载次数： ]
点击浏览该文件:进销存.table

对话框提示

--  作者：admin22327
--  发布时间：2019/1/1 15:06:00
--

我还做了一个毛利查询表，

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()

Tables("利润报表_Table1").DataSource = aa \'将统计结果绑定到Table
\'With DataTables("利润报表_Table1").DataCols \'用表达式列计算库存数据
       \'.Add("平均销售毛利",Gettype(Double), " [金额] /[数量] * [销售_数量]")
\'End With

想分月计算毛利，单位成本取最近一年度的“采购价格/采购数量”执行不了，求解决

--  作者：有点蓝
--  发布时间：2019/1/2 9:44:00
--
1、去掉关联表设置里面的“同步删除关联行”的勾选：http://www.foxtable.com/webhelp/scr/1644.htm

2、参考：http://www.foxtable.com/webhelp/scr/0326.htm，例如

With Tables("采购主表")
If .Current IsNot Nothing
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
.Position = .Position - 1
Else
MessageBox.Show("请先保存?")
End If
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)

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

--  作者：有点甜
--  发布时间：2019/1/2 9:46:00
--

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

--  作者：有点甜
--  发布时间：2019/1/2 9:50:00
--

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

--  作者：admin22327
--  发布时间：2019/1/2 14:29:00
--
谢谢，还有个问题，我在明细表里面设置了一个库房列，怎么实现查询库存余数，然后双击某一行，可以查到某一货品在一段时间内的进出库明细，怎么实现
[此贴子已经被作者于2019/1/2 14:29:48编辑过]

--  作者：有点甜
--  发布时间：2019/1/2 15:04:00
--

参考

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