[求助]数据由后台送到前台问题
这段代码那里错误,谁能帮我调试一下!那位大虾有更好的代码?
Dim love As String ' 爱好的数据回送
Dim t_love As String
Dim i As Integer = 1
Dim k As Integer = 2
Dim j As Integer
love = dr("z_love")
For i = 1 To Len(love) + 2
For k = 2 To Len(love)
t_love = Mid(love, i, k)
For j = 0 To Cbl_love.Items.Count - 1
If t_love = Cbl_love.Items(j).Text Then
' Lab_pwd.Text = Cbl_love.Items(j).Text
Cbl_love.Items(j).Selected = True
Exit For
End If
Next
i = i + 2
k = k + 2
Next
Next