主题：报表自动汇总问题

测试了，不对啊，显示在table中，显示的列应该为

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

在这个table 中，列名为，

日期，团号，用房量，酒店地区1，酒店1 ，状态1，酒店地区2 ，酒店2，状态1，酒店地区3 ，酒店3 ，状态1。

其中”状态1“表中的数据

如果原表格中的”控房状态1“=true

则 ”状态1 “中显示的数据为 原表中的”confirmed number“

and

酒店地区1 ，酒店1 ，状态1 ，中的数据全部以白底绿字显示

如果原表格中的”控房状态1“=false

则”状态1“中显示的数据为原表中的”optional date“

and

酒店地区1 ，酒店1 ，状态1，中的数据全部以白底红字显示

而且如果”状态1 “中的”optional date“离今天<=3天

酒店地区1 ，酒店1 ，状态1 ，中的数据全部以 红底白字显示。

您看一下，这是需要的效果，不是直接引用数据。

嗯，谢谢版主的耐心。

其中”RoomBlock Status_1“ 的table中，

想新建： 日期，团号，用房量，酒店地区1，酒店1 ，状态1，酒店地区2 ，酒店2，状态1，酒店地区3 ，酒店3 ，状态1。

其中，除 ”状态1“”状态2“"状态3"之外，其他列的数据，都直接引用原表中 同名列 的数据。

 至于”状态1“中的数据填充，

如果原表格中的”控房状态1“=true

则 ”状态1 “中显示的数据为 原表中的”confirmed number“

and

酒店地区1 ，酒店1 ，状态1 ，中的数据全部以白底绿字显示

如果原表格中的”控房状态1“=false

则”状态1“中显示的数据为原表中的”optional date“

and

酒店地区1 ，酒店1 ，状态1，中的数据全部以白底红字显示

而且如果”状态1 “中的”optional date“离今天<=3天

酒店地区1 ，酒店1 ，状态1 ，中的数据全部以 红底白字显示。

设计按钮，插入新文件

我设计的代码

Dim t As Table = Tables("HotelDatabase")
Dim proc As new Process
proc.File = ProjectPath & "attachments/" & t.current("files")
proc.AddNew()

不对。怎么才能设计按钮插入新的Files 呢，

第一个问题，已经顺利解决，谢谢版主

因为联系人里面有邮件地址，想设计一个按钮，在table 上直接打开邮箱

1.因为"Hoteldatabase" table中，"Email"列扩展列的类型就是邮件

所以一点击，就自动跳出来Windows邮箱里，想在酒店数据窗口中，用按钮“Newemail”实现这个功能（就是数据列后面那个按钮的功能）

2.HotelDatabase :，在table“酒店数据”中，按钮，assfile ,，怎么实现在列“Files”{插入文件（F）}的功能，

请版主指导。

 new email 按钮"click"

输入

Dim t As Table = Tables("HotelDatabase")
Dim proc As new Process
proc.File = t.current("Email")
proc.AddNew()

输入的代码保存的时候，系统提示编译错误

“AddNew” is not a member of process.