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

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

[此贴子已经被作者于2018/11/13 16:21:16编辑过]

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.

Dim t As Table = Tables("HotelDatabase")
Dim proc As new Process
proc.File = "mailto:" & t.current("Email")
proc.Start

[此贴子已经被作者于2018/11/13 16:21:52编辑过]

版主“HotelDatabase”,"酒店数据"table,对应remarks 的textbox ,不能设置滚动条，为什么啊

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

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

图片点击可在新窗口打开查看

版主请看一下，我编写的代码，窗口“agent_1”中“roomblockstatus1”，为什么总出现错误提示

以下是代码

If e.Col.Name = "用房数量" Then

If e.Row("用房数量") <= 9 Then

e.Table.DataTable.AddUserStyle("a", Color.white, Color.orange)

e.Style = "a"

End If

If e.Col.name = "酒店地区1"OrElse e.Col.name = "酒店1" Then

If e.Row("控房状态1") = False Then

e.Table.DataTable.AddUserStyle("b", Color.white, Color.red)

e.style = "b"

End If

If e.Row("控房状态1") = True Then

e.Table.DataTable.AddUserStyle("f", Color.white, Color.green)

e.style = "f"

End If

If e.Col.name = "酒店地区2" OrElse e.Col.name = "酒店2" Then

If e.Row("控房状态2") = False Then

e.Table.DataTable.AddUserStyle("c", Color.white, Color.red)

e.style = "c"

End If

If e.Row("控房状态2") = True Then

e.Table.DataTable.AddUserStyle("g", Color.white, Color.green)

e.style = "g"

End If

If e.Col.name = "酒店地区3"OrElse e.Col.name = "酒店3" Then

If e.Row("控房状态3") = False Then

e.Table.DataTable.AddUserStyle("d", Color.white, Color.red)

e.style = "d"

End If

If e.Row("控房状态3") = True Then

e.Table.DataTable.AddUserStyle("k", Color.white, Color.green)

e.style = "k"

End If

If e.Col.Name = "OptionDate1"Then

If e.Row("OptionDate1") <= Date.Today.AddDays(-3) Then

e.Table.DataTable.AddUserStyle("h", Color.red, Color.white)

e.style = "h"

Else

e.Table.DataTable.AddUserStyle("y", Color.white, Color.red)

e.style = "y"

End If

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

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

窗口“Agent_1”中的“RoomBlockStatus_1”

如果checkbox"控房状态1"为 true ,则“酒店1”“酒店地区1”都以白底绿字显示

如果checkbox"控房状态1"为false,则“酒店1”和“酒店地区1”都以白底红字显示

同理“控房状态2 ”和“控房状态3 ”

如果

“optionaldate1"或者"optionaldate2"或者"optionaldate3"其中的日期，《=今天前3天，

则此optionaldate 以红底白字显示，其他显示日期以白底黑字显示

如果checkbox "状态”=true 则全行以白底绿字显示

如果checkbox"状态"=false 则维持以上的DRAWING 不变。

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

1、代码没问题；

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

版主可以帮我简化一下，现有代码嘛？我这个写的好长好麻烦。

主题：报表自动汇总问题