请教如何使用DataRepeater控件的问题？

[nofound007]

我如果在DataRepeater控件里加入四个label，四个text控件，一个datagird控件，正如达到下面的效果，请问如何做？

1 .气象条件为： 温度为20℃时
-----------------------------------------------------
温度（℃）: 20 风速（m/s）: 0 覆冰（mm）: 0
-----------------------------------------------------
档距（m） 张力（N） 弧垂（m） 控制情况
-----------------------------------------------------
300. 25169.220 6.535 年平均气温
320. 25242.160 7.414 年平均气温
340. 25306.240 8.349 年平均气温
360. 25362.720 9.339 年平均气温
380. 25412.640 10.385 年平均气温
-----------------------------------------------------

2 .气象条件为： 温度为40℃时
-----------------------------------------------------
温度（℃）: 40 风速（m/s）: 0 覆冰（mm）: 0
-----------------------------------------------------
档距（m） 张力（N） 弧垂（m） 控制情况
-----------------------------------------------------
300. 22498.870 7.311 年平均气温
320. 22789.860 8.212 年平均气温
340. 23048.710 9.167 年平均气温
360. 23279.580 10.175 年平均气温
380. 23486.070 11.237 年平均气温
-----------------------------------------------------

…… 类似这样的气象条件还有很多!

小弟我知道可能使用DataRepeater控件实现，可是不知道该如何实现!


小弟我是一只菜鸟，越详细越好!最好有代码，帮我写一段，先谢了!
如果能解决小弟的这个问题，分不够再加!

[nofound007]

现在最关键的是如何显示出来的问题？用什么控件显示的问题是最关键啦!？

[nofound007]

不会吧，没有人能解决这个问题？
我真的有点不相信!!

[gemgama]

给个思路：
dim inttemperature
strsql="select * from weather where temperature ='" & "inttemperature" & "'"
用动态变量的SQL就可以多种这样的气象条件
然后就把SQL赋给dataenviroment里command1就可以刷新你的Datareporter

[hc_z]

控件我没用过，你可以直接添加DataReoprt,再上面添加你所说的控件，不需要dataGrid了。
然后形成记录集。将dataReport的DataSource属性指定为你所形成的记录集。将rptTextBox指定一个字段名。给一个参考：
Dim rs As New ADODB.Recordset
Dim rsTmp As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim strTmp As String

Dim i As Integer

strTmp = "select DataTime ,VariableData as 'aaa',LogicAddress from mt2000..HistoryAnalog where FirstAddress = '1'" & _
" and SecondAddress = '1' and ThirdAddress = '1' and ( FourthAddress='1' )" & _
" and DataTime>'2003-6-19 15:50:0' and DataTime<'2003-6-20 17:59:0'"

rs.Source = strTmp 'Êý¾Ý¿â²éѯÓï¾ä
' " ORDER BY DataTime DESC"
Me.MousePointer = vbHourglass 'ÉèÖÃÊó±ê,µÈ´ýÐÎ̬
If ReadDataBase(rs, cn) = True Then
Me.MousePointer = vbDefault '

Set m_rsTmp = rs
If m_rsTmp.RecordCount > 0 Then
MsgBox "ÕÒµ½¼Ç¼£º" & m_rsTmp.RecordCount, , g_cnststrMsgTitle

' GoTo ERR
' Set m_rsTmp.ActiveConnection = Nothing
' m_rsTmp.MoveFirst
' For i = 1 To m_rsTmp.RecordCount
' m_rsTmp.AddNew
' m_rsTmp.Fields("DataTime").Value = i
' m_rsTmp.Fields("aaa").Value = "aaa" & i
' m_rsTmp.Fields("LogicAddress").Value = "LogicAddress" & i
' m_rsTmp.Update
' m_rsTmp.MoveNext
' Next


rsTmp.Fields.Append "DataTime", adVariant ', , , "zhc"
rsTmp.Fields.Append "aaa", adVariant ', , , 30
rsTmp.Fields.Append "LogicAddress", adVariant ', , , "Male"
rsTmp.Open

rs.MoveFirst
For i = 1 To rs.RecordCount
rsTmp.AddNew
rsTmp.Fields("DataTime").Value = rs.Fields("DataTime").Value & i
rsTmp.Fields("aaa").Value = rs.Fields("aaa").Value & i
rsTmp.Fields("LogicAddress").Value = rs.Fields("LogicAddress").Value & i
rsTmp.Update
rs.MoveNext
Next
' Set DataReport1.DataSource = m_rsTmp
'' DataReport1.TopMargin = 0
'' DataReport1.BottomMargin = 0
'' DataReport1.LeftMargin = 0
'' DataReport1.RightMargin = 0
' DataReport1.Title = "Title"
' If TypeOf DataReport1.Sections("Section4").Controls(1) Is rptLabel Then
' DataReport1.Sections("Section4").Controls.Item(1).Caption = "Êý¾Ý±¨±í²âÊÔ"
' End If
'
' With DataReport1.Sections("Section1").Controls
' If TypeOf .Item("Text1") Is RptTextBox Then
' .Item("Text1").DataMember = ""
' .Item("Text1").DataField = "DataTime"
' End If
' If TypeOf .Item(2) Is RptTextBox Then
' .Item(2).DataMember = ""
' .Item(2).DataField = "LogicAddress"
' End If
' If TypeOf .Item(3) Is RptTextBox Then
' .Item(3).DataMember = ""
' .Item(3).DataField = "aaa" '"VariableData"
' End If
' End With
'
'' DataReport1.Sections(1).Controls.Item(1).DataMember = ""
'' DataReport1.Sections(1).Controls.Item(1).DataField = "DataTime"
'' DataReport1.DataMember = "DataTime"
' DataReport1.Show

'*************************************

Dim rptTmp As RptTextBox
Dim rptLabel As rptLabel

Set DataReport2.DataSource = rsTmp
With DataReport2.Sections("sctDetail").Controls
.Item("text1").DataField = "DataTime"
.Item("text2").DataField = "aaa"
.Item("text3").DataField = "LogicAddress"
End With

DataReport2.Show
DataReport2.Refresh

'*********************************************
' 'Ö±Á÷ÈÕ±¨±í
' Dim rptTmp As RptTextBox
' Dim rptLabel As rptLabel
' Dim i As Integer
'
' Set drtACDevice.DataSource = m_rsTmp
'
' With drtACDevice.Sections("sctReportHeader").Controls
' .Item("lblReportTitle").Caption = "½»Á÷Êý¾ÝÔÂͳ¼Æ±¨±í"
' .Item("lblScName").Caption = "¼ªÁÖÁÉÔ´µØÇø¼à¿ØÖÐÐÄ"
' .Item("lblDateNotice").Caption = "ͳ¼ÆÔ·ݣº"
' .Item("lblDateValue").Caption = "2003Äê5ÔÂ"
' End With
'
' drtACDevice.Sections("sctDetail").KeepTogether = True
' With drtACDevice.Sections("sctDetail").Controls
' If TypeOf .Item("txtSuName") Is RptTextBox Then
' .Item("txtSuName").DataMember = ""
' .Item("txtSuName").DataField = "DataTime"
' End If
'
' If TypeOf .Item("txtUMax") Is RptTextBox Then
' .Item("txtUMax").DataMember = ""
' .Item("txtUMax").DataField = "aaa"
' End If
' End With
'
' drtACDevice.Show
'' drtDCDeviceDay.Refresh
Else
MsgBox "¼Ç¼ÊýΪ0", , g_cnststrMsgTitle
GoTo ERR
End If
Else
MsgBox "²Ù×÷Êý¾Ý¿âʧ°Ü", , g_cnststrMsgTitle
GoTo ERR
End If

ERR:
' If rs.State > 0 Then rs.Close
' If cn.State > 0 Then cn.Close
'
' Set rs = Nothing
' Set cn = Nothing

[watt]

用DataRepeat前必须自已编制捆定数据库的自定义控件，然后才能使用。非捆定控件不能使用。

[nofound007]

这么长的代码，有点困难，有点难度，不过估计有点作用!!
先谢了，等我这完成这个工程我便马上结帐