主题：报表自动汇总问题

1、sql语句改成

Select [_Identify], [状态], [日期], [团号], [用房数量],[酒店地区1],[酒店1],[ConfirmationNumber1],[OptionDate1],[酒店地区2],[酒店2],[ConfirmationNumber2],[OptionDate2],[酒店地区3],[酒店3],[ConfirmationNumber3],[OptionDate3] From {Agent_1}

2、参考代码

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

1、sql语句改成

Select [_Identify], [状态], [日期], [团号], [用房数量],[酒店地区1],[酒店1],[ConfirmationNumber1],[OptionDate1],[酒店地区2],[酒店2],[ConfirmationNumber2],[OptionDate2],[酒店地区3],[酒店3],[ConfirmationNumber3],[OptionDate3] From {Agent_1}

2、参考代码

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

参考

Dim Proc As New Process '定义一个新的Process
Proc.File = "mailto:zjtdr@21cn.net" '邮件地址前要加上"mailto:"
Proc.Start()

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72102&skin=0

1、

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

2、

Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("HotelDatabase")
    Dim pth As String = ProjectPath & "Attachments\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then '如果文件来自Attachments目录
        t.current("files") = FileSys.GetName(dlg.FileName)
    Else '如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        t.current("files") = FileSys.GetName(dlg.FileName)
    End If
End If

在默认的情况下，文本框只能输入一行内容，且不能调整高度，如果要输入多行文本，请在设计窗口的时候，将“多行文本”属性设为True。
　

1、我打开你的例子测试没有报错。

2、上传具体的实例，说明操作步骤，出什么错，你需要做到怎样效果？

1、代码没问题；

2、把你列【optionaldate1】改成【日期时间】列即可，不要用字符列。

改成

你逻辑是什么？请具体说明你的逻辑。

你写的逻辑是这个啊【我的代码还不对，应该是出了今天和今天+3天的日期以外，其余optionaldate中的数据，应该全部都是白底黑字的，请版主帮我看一下怎么修改】