VB6.0 DataList控件的使用实例（如何正确显示和选择相同字段的数据）.doc

VB6.0 DataList控件的使用实例（如何正确显示和选择相同字段的数据）试验后的正确方式，利用DataList空间的ListField和BoundColumn属性能实现在DataList控件中没有显示的字段（注：此字段必须带有唯一性，可以使自动编号或设置的编号都行），ListField 属性用来设置需要显示的字段（可以带有重复性或相同）BoundColumn不需要显示，用来设置唯一性的字段这样，就可以实现吧相同字段的数据正确的区分并提交给TextBox控件显示（其它类型控件可能也能用词方式，具体没有去试验）实例：1、Private Sub Form_Load()定义数据源Dim cnn As ADODB.Connection 定义连接 Dim rst As ADODB.Recordset 定义返回结果：记录集 Set cnn = New ADODB.Connection cnn.ConnectionString = PROVIDER=MSDASQL;Driver=SQL Server;Server=改你的服务器名称;uid=;pwd=;Database=改成你的数据库名称 cnn.Open Set rst = New ADODB.Recordset rst.Open 写上相应的sql语句, cnn, adOpenKeyset, adLockOptimistic If Rst.EOF = True Then Exit Sub End if设置DataList控件的显示属性 Set DataList.RowSource = rst With DataList .ListField = Corporations .BoundColumn = Tasklist 唯一性字段，此处为任务单编号，如下图 End With Set rst = Nothing Set cnn = Nothing End Sub2、Private Sub DataList_Click() 设置点中DataList控件上数据成功后，文本控件内数据的关联显示 定义数据源Dim cnn As ADODB.Connection 定义连接 Dim rst As ADODB.Recordset 定义返回结果：记录集 Set cnn = New ADODB.Connection cnn.ConnectionString = PROVIDER=MSDASQL;Driver=SQL Server;Server=改你的服务器名称;uid=;pwd=;Database=改成你的数据库名称 cnn.Open Set Rst = New ADODB.Recordset SQL = Select * from Miss_missions where tasklist= + DataList.BoundText + Rst.Open SQL, db, adOpenDynamic, adLockOptimistic Set Rst = db.Execute(SQL) If Not Rst.EOF Then For i = 1 To Rst.RecordCount Text1.Text = Rst.Fields(Mission_ID).Value & Text2.Text = Rst.Fields(NextDates).Value & Text3.Text = Rst.Fields(Weeker).Value & Text4.Text = Rst.Fields(Corporations).Value & Text4.Text = DataList.SelectedItem Text5.Text = Rst.Fields(UnitType).Value & Text6.Text = Rst.Fields(Unit).Value & Text7.Text = Rst.Fields(TaskList).Value & Text8.Text = Rst.Fields(Accomplish).Value & Text9.Text = Rst.Fields(CheckClassifg).Value & Text10.Text = Format(Rst.Fields(Amount).Value & , #0.00) Text11.Text = Rst.Fields(Checker).Value & Text12.Text = Rst.Fields(LinkMen).Value & Text13.Text = Rst.Fields(Phone).Value & Text14.Text = Rst.Fields(County).Value & Text15.Text = Rst.Fields(Area).Value & Text16.Text = Rst.Fields(PostalCode).Value & Text17.Text = Rst.Fields(SetupCor).Value & Text18.Text = Rst.Fields(Address).Value & 新增项目01- Text01.Text = Rst.Fields(DBText01).Value & Text02.Text = Rst.Fields(DBText02).Value & Text03.Text = Rst.Fields(DBText03).Value & Text04.Text = Rst.Field