datareport1打印都是最后一个结果

Question

本帖最后由 huanghhh4 于 2009-12-15 15:49:18 编辑

Answer 1

DataReport1上添加相应的rpttextbox控件
你相关代码中要改的label属性如：
DataReport1.Sections.Item("section1").Controls("Label1").Caption = Rs.fields("xinghao").name  '显示字段名称要添加的代码如：
DataReport1.Sections.Item("section1").Controls("Text1").datafield = Rs!xinghao

Answer 2

Public Sub prints(sql)
看看sql 的内容。
拿到分析器里运行看看~~

Answer 3

在1楼的基础上修正一下
DataReport1.Sections.Item("section1").Controls("Text1").datafield = xinghao 

Answer 4

直接粘贴过来改了个datafield
DataReport1.Sections.Item("section1").Controls("Text1").datafield = 字段名称

Answer 5

从这里已经解决了我的问题了。谢谢了
有两个疑问，
第一个
DataReport1.Sections.Item("section1").Controls("Text1").datafield = Rs!xinghao
我要在后面加上.name才能正常显示
DataReport1.Sections.Item("section1").Controls("Text1").datafield = Rs!xinghao.name
就这样。
为什么不能像上面那样设置
第二个
DataReport1.Sections.Item("section1").Controls("text1").DataField = Format(Rs!zhekou.Name, "##,##0.00")
我这里是小数的
像0.1
在打印游览哪里显示.1
使用format不定义格式。为什么呢
在请大家指教一下

Answer 6

Rs!xinghao.name  就是取字段名xinghao ,直接变成 ="xinghao"就是了

Answer 7

1.datafield是字段名称，不是值，所以要加上name
2.datafield是字段名称，不是值，所以format没用，要在属性窗口中设置对应的DataFormat