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

没有勾选对应的类型。

没有这些列名

蓝老师怎么勾选呢？没理解您的意思

此主题相关图片如下：微信图片编辑_20200414222420.jpg

[此贴子已经被作者于2020/4/14 22:25:20编辑过]

If aszlx.Checked Then

Sheet1(2,2).Value = "支出类型"

Sheet1(2,3).Value = "[收支类型]"

ElseIf asszh.Checked

Sheet1(2,2).Value = "所属账户"

Sheet1(2,3).Value = "[所属账户]"

ElseIf ajzrq.Checked

Sheet1(2,2).Value = "记账日期"

Sheet1(2,3).Value = "[记账日期]"

ElseIf ajsr.Checked

Sheet1(2,2).Value = "经手人"

Sheet1(2,3).Value = "[经手人]"

End If

蓝老师勾选了

此主题相关图片如下：截图02.jpg

此主题相关图片如下：截图06.jpg

[此贴子已经被作者于2020/4/14 22:41:44编辑过]

Sheet1(3,2).Value = "[所属账户]"

选择日期后显示的不是日期型，怎么设置一下呢？

此主题相关图片如下：0089.jpg

http://www.foxtable.com/webhelp/topics/1392.htm

这篇已经看了，不适合我的程序，因为这个在动态绑定的字段其他是日期型，只能代码控制的，怎么用代码设置报表某个字段的日期型呢？

Style2.BackColor =Color.PaleGreen '格式背景颜色设为红色

Style3.BackColor =Color.PaleGreen '格式背景颜色设为红色

Style3.Font =new font("宋体", 10,FontStyle.Bold ) ''字体为宋体12加粗

Style3.BackColor =Color.LightGray '格式背景颜色设为红色

Style4.BackColor =Color.Azure '格式背景颜色设为红色

Style5.BackColor =Color.Azure '格式背景颜色设为红色

Style5.Format =("yyyy-MM-dd")''

For Each c As Col In dt.Cols

If c.visible Then i+=1

For r As Integer = 0 To dt.Rows.Count '填入数据

If r Mod 2 =0 Then '如果是偶数行

For lzs As Integer = 0 To i-1 'dt.Cols.Count-5 '填入数据

Sheet( r+1 ,lzs ).Style =Style4 '设置单元格样式

Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style02 '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style12 '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("记账日期").Index).Style = Style5 '设置折扣单元格的样式

Else

Sheet(r + 1,dt.Cols("支出金额").Index).Style = Style '设置折扣单元格的样式

Sheet(r + 1,dt.Cols("收入金额").Index).Style = Style1 '设置折扣单元格的样式

End If

主题：关于报表