试验后的正确方式，利用DataList空间的ListField和BoundColumn属性能实现在DataList控件中没有显示的字段（注：此字段必须带有唯一性，可以使自动编号或设置的编号都行），
ListField
属性用来设置需要显示的字段（可以带有重复性或相同）
BoundColumn不需要显示，用来设置唯一性的字段
这样，就可以实现吧相同字段的数据正确的区分并提交给TextBox控件显示（其它类型控件可能也能用此方式，具体没有去试验）
实例：
1、
Private Sub
Form_Load()
'设置DataList控件的显示属性
Call dbLoad
Set Rst = New ADODB.Recordset
SQL = "Select * from
Miss_missions where Accomplish='未完成'"
Rst.Open SQL, db,
adOpenDynamic, adLockOptimistic
If Rst.EOF = True Then
Exit Sub
Else
Set DataList.RowSource =
db.Execute(SQL)
With DataList
.ListField = "Corporations"
'
.BoundColumn = "Tasklist"
'
唯一性字段，此处为任务单编号，如下图
End With
Rst.MoveNext
End If
Rst.Close
End Sub
2、
Private Sub
DataList_Click()
'设置点中DataList控件上数据成功后，文本控件内数据的关联显示
Call dbLoad
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.Fields("DBText04").Value &
""
Text05.Text = Rst.Fields("DBText05").Value &
""
'End---------------------------------------------------------------------------
Rst.MoveNext
Next
i
Rst.MoveFirst
End If
End Sub
转载地址:http://blog.163.com/treeaman@126/blog/static/37093525201210283321957/
加载中…
(2018-07-28 10:03:27) 