100分求教

Question

我在使用dataReport做报表时遇到这样的问题  
1、在用  TextBox  显示数据库字段内容时如果如果某条记录为空值，则textbox就不打印这个格  
     请问如何解决    
   
2、如何动态设置数据环境里的数据库连接属性  和datareport的数据集  
     
见者请赐教  ，顶也给分  很急的

Answer 1

1. 没看懂。2. set datareport1.datasource=rs '这里，rs可以运行时生成。

Answer 2

1.当你这个字段为空时，textbox应该不会出现数值吧?
2.这个你要用动态绑定数据库了
dim conn As New ADODB.Connection
dim rs As New ADODB.RecordsetPrivate Sub DataReport_Initialize()conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
   "User ID=sa;Password=;Initial Catalog=数据库;Data Source=机器名"
conn.Open
rs.CursorLocation = adUseClientrs.Open "select * from TempTable ", conn
Set AccountPay.DataSource = rs '设置 DataReport 的数据源'rs.Close
Set rs = Nothing
Set conn = Nothing

Answer 3

在打印事件中做个判断，如果为空则此控件显示为false,有值时为true,
你自已试。

Answer 4

Set AccountPay.DataSource = rs '设置 DataReport 的数据源   
改为
Set datareport1.DataSource = rs '设置 DataReport 的数据源

Answer 5

比如说：字段MyFields 中某条记录是null
那么 打印时datareport就打印不出来哪个方格

Answer 6

dim conn As New ADODB.Connection
dim rs As New ADODB.RecordsetPrivate Sub DataReport_Initialize()conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
   "User ID=sa;Password=;Initial Catalog=数据库;Data Source=机器名"
conn.Open
rs.CursorLocation = adUseClientrs.Open "select * from TempTable ", conn
Set AccountPay.DataSource = rs '设置 DataReport 的数据源'rs.Close
Set rs = Nothing
Set conn = Nothing

Answer 7

谢谢大家 第二个问题我已经解决了
可是第一个问题怎么解决呢 可能我说的不清楚
这样的 比如我要打印MyFields 字段的所有内容
  如果这个字段中有几个值是null
  那么打印出来的是一个不连续的表格中间是null的那些格子没有打印出来
 请问怎么解决

Answer 8

我的qq 3050981
如有必要 请在qq上联系

Answer 9

dim conn As New ADODB.Connection
dim rs As New ADODB.RecordsetPrivate Sub DataReport_Initialize()conn.ConnectionString = "Driver={SQL server};database=数据库;server=机器名"
conn.Open
rs.CursorLocation = adUseClientrs.Open "select * from TempTable ", conn
Set datareport1.DataSource = rs '设置 DataReport 的数据源'rs.Close
Set rs = Nothing
Set conn = Nothing