| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 736 人关注过本帖
标题:[求助]数据由后台送到前台问题
只看楼主 加入收藏
sun_life
Rank: 1
等 级:新手上路
帖 子:356
专家分:5
注 册:2006-5-29
结帖率:72.73%
收藏
 问题点数:0 回复次数:1 
[求助]数据由后台送到前台问题
这段代码那里错误,谁能帮我调试一下!

那位大虾有更好的代码?   
                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

图片.JPG (11.26 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 后台 前台 数据 
2008-04-16 15:05
sun_life
Rank: 1
等 级:新手上路
帖 子:356
专家分:5
注 册:2006-5-29
收藏
得分:0 
自己搞定了!

当知道自己后才知道什么是可怕!
2008-04-16 15:37
快速回复:[求助]数据由后台送到前台问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027644 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved