以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请高手帮忙设计窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17763)

--  作者:xinkong
--  发布时间:2012/3/23 14:25:00
--  [求助]请高手帮忙设计窗口
我刚刚学习狐表不久,因为是零基础,开发指南感觉很难。现在想设计队件“问题”文档中所示的一个窗口,请高手帮忙写一下代码,谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:foxtable文件.rar



--  作者:狐狸爸爸
--  发布时间:2012/3/23 14:42:00
--  

这里合成条件的例子:

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

 

 

Dim k As Date = e.Form.Controls("startdate").Value
Dim j As Date = e.Form.Controls("EndDate").Value
Dim g As New GroupTableBuilder("景区日报表", DataTables("日统计表"))
g.Groups.AddDef("日期", DateGroupEnum.Day, "日")
g.Groups.AddDef("景区")
g.Groups.AddDef("大类")
g.Groups.AddDef("二类")
g.Totals.AddDef("总人次")
g.Totals.AddDef("有效人次")
g.Totals.AddDef("收入额")
g.Decimals = 0
g.Filter = "[日期] >= #" & k & "# And [日期] <=  #" & j & "#"
g.Build()
MainTable = Tables("景区日报表")
With Tables("景区日报表")
    .MergeMode = MergeModeEnum.Standard
    .MergeCols.Clear()
    .MergeCols.Add("日")
    .MergeCols.Add("景区")
    .MergeCols.Add("大类")
    .MergeCols.Add("二类")
    .MergeSort = "日,景区,大类,二类"
    .AllowMerge = True
End With

 

最好看看下面的内容:

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

 


--  作者:xinkong
--  发布时间:2012/3/23 15:43:00
--  
非常感谢狐爸的解答及指点!