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 Sub 2、 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