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

1、参考

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

2、afteropenproject写代码

basemainform.text = "abc系统"

3、请用这种方法取消冻结列（方法二）

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

第二项回答，没有看明白，请版主指导

AfterOpenProject事件

ApplicationMenu.RightItems.Clear

版主，端午节好！

在完善工具的过程中，出现了一些自动生成计算的问题，不懂，在这里列出来

1.团期一览，与其余分项表格联动（增加/删除/修改），提取指定列信息，并汇总按日期排列（当其他表无数据时，团期一览应该也为空表）

2.在"团期一览"数据表中，团期进度，drawcell绘制进度表（取值为“入境日期”“出境日期+1”，并以当日为标准）

3.在分项表中-成都寰球·杭州招商等，“团号”列由“KQ+入境日期+组团社拼音缩写+A/B..."自动构成,同意日期到达，自动分为A/B/C。。。如KQ-20180618-HZZS-A

4.在分项表中“产品结构”列数据，由“退房日期1-入住日期1+酒店地区1缩写+退房日期2+入住日期2+酒店地区2缩写+退房日期3-入住日期3+酒店地区3缩写”组成

例如：酒店区域-马尼拉-住2天/酒店区域宿务-住3天，马尼拉缩写为M,宿务缩写为C，则产品结构为2M+3C

谢谢版主的指导。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:操团系统.table

1、自行调试，照抄代码啊

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

2、没看懂你的逻辑，举例说明

3、参考 http://www.foxtable.com/webhelp/scr/2403.htm

4、日期加减，参考

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

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

1.团期一览，已经解决

2.如在“数据一览”表中，入境日期为：2018-06-16出境日期为：2018-06-25，今天为20180-06-19，则团期drawcell进度显示为40%

3.照抄代码，改名称，带入数据表DataColChanged,数据没有响应，照抄代码为：

Select e.DataCol.Name

Case "日期","组团社"

If e.DataRow.IsNull("日期") OrElse e.DataRow.IsNull("组团社") Then

e.DataRow("团号") = Nothing

Else

Dim d As Date = e.DataRow("日期")

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1)

Dim ld As Date = New Date(y,m,Days)

Dim bh As String = e.DataRow("组团社") & "-" & Format(d,"yyyyMM") & "-"

If e.DataRow("团号").StartsWith(bh) = False

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "组团社 = '"& e.DataRow("组团社") & "' And 日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

max = e.DataTable.Compute("Max(团号)",flt)

If max > "" Then

idx = CInt(max.Substring(12,4)) + 1

Else

idx = 1

End If

e.DataRow("团号") = bh & Format(idx,"0000")

End If

End Select

希望“团号”列：“自定义字母AA”-"YYYYMMDD"-"组团社"-“A/B/C....”

例如：EZKQ-20180619-杭州招商-A

4.产品结构自动生成与问题3相似，也是自动生成编码的一种，问题三，因为没有编程基础，绞尽脑汁，也没弄出来，还请版主指教

2、drawcell事件

Select Case e.Col.Name

Case "团期进度"

If e.Row.IsNull("国际航班_入境日期") OrElse e.Row.IsNull("国际航班_出境日期") Then

Else

Dim sum As Double = (cdate(e.Row("国际航班_出境日期")) - cdate(e.Row("国际航班_入境日期"))).Totaldays

If sum = 0 Then Return

Dim h As Double = (Date.Today - cdate(e.Row("国际航班_入境日期"))).Totaldays

Dim v As Double =h/sum*100

e.StartDraw()

Dim Width As Integer = (e.Width - 2 )* v \ 100

If v = 100 Then

e.Graphics.FillRectangle(Brushes.Green,e.x + 1,e.y + 1, Width, e.Height - 2)

Else

e.Graphics.FillRectangle(Brushes.Red,e.x + 1,e.y + 1, Width, e.Height - 2)

End If

e.EndDraw()

End If

End Select

3、DataColChanged事件，清空团号，然后重置列

Select e.DataCol.Name

Case "基本信息_日期","基本信息_组团社"

If e.DataRow.IsNull("基本信息_日期") OrElse e.DataRow.IsNull("基本信息_组团社") Then

e.DataRow("基本信息_团号") = Nothing

Else

Dim d As Date = e.DataRow("基本信息_日期")

Dim y As Integer = d.Year

Dim m As Integer = d.Month

Dim Days As Integer = Date.DaysInMonth(y,m)

Dim fd As Date = New Date(y,m,1)

Dim ld As Date = New Date(y,m,Days)

Dim bh As String = "EZKQ-" & Format(d,"yyyyMMdd") & "-" & e.DataRow("基本信息_组团社") & "-"

If e.DataRow("基本信息_团号").StartsWith(bh) = False

Dim max As String

Dim idx As Integer

Dim flt As String

flt = "基本信息_组团社 = '" & e.DataRow("基本信息_组团社") & "' And 基本信息_日期 >= #" & fd & "# And 基本信息_日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

max = e.DataTable.Compute("Max(基本信息_团号)",flt)

If max > "" Then

idx = CInt(max.Substring(max.Length- 4,4)) + 1

Else

idx = 1

End If

e.DataRow("基本信息_团号") = bh & Format(idx,"0000")

End If

End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:操团系统.table

版主早，今天刚起来就打开电脑，看到版主回复，十分高兴和感激

将版主的代码写进数据表中

但是刚开始出现错误代码信息，然后我开关了几次软件，终于可以顺利把代码写进去的同时，没有错误代码提示

但是还是没有显示（“团期一览“数据表中drawcell没有显示，”中新正大“数据表中，团号也没有显示）

是不是我的软件版本的问题？

1、请理解代码；

2、你要输入入境日期、出境日期才会显示所需内容的。

此主题相关图片如下：wechat screenshot_20180620182318.png

嗯，在重新试验了drawcell 后，成功画出图标，但是在自动生成团号的时候，运行程序的时候显示了以上的图片，没有懂是什么意思

主题：报表自动汇总问题