Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让comlist 只显示最后一个用户名称?


  共有2903人关注过本帖平板打印复制链接

主题:[求助]如何让comlist 只显示最后一个用户名称?

帅哥哟,离线,有人找我吗?
liuxianjie1980
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]如何让comlist 只显示最后一个用户名称?  发帖心情 Post By:2015/8/18 0:13:00 [只看该作者]

初始的afterload事件代码如下

Dim str As String =GetConfigValue("保存的用户", "")
e.Form.Controls("UserName").ComboList = str

If str>"" Then
    e.Form.Controls("UserName").SelectedIndex = 0 

    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim dr As DataRow
    cmd.C
    cmd.CommandText = "Select * Fr om {用户管理表} Where [用户名] = '" & e.Form.Controls("UserName").value & "'"
    dt = cmd.ExecuteReader
    dr = dt.DataRows(0)
    e.Form.Controls("UserPhoto").Image = GetImage(projectPath & "Attachments/" & dr("用户照片"))
End If

 

 

但是随着登录用户的增多,下拉框里面的用户名越来越多了,因此,为了只显示最后一个用户名,改动了一下,

改动后的afterload事件代码如下:

Dim str As String =GetConfigValue("保存的用户", "")
e.Form.Controls("UserName").ComboList = str.split("|")(0)
If str>"" Then
'    e.Form.Controls("UserName").SelectedIndex = 0 ,这句是原来的代码,在此已注释
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    Dim dr As DataRow
    cmd.C
    cmd.CommandText = "Select * Fr om {用户管理表} Where [用户名] = '" & e.Form.Controls("UserName").value & "'"
    dt = cmd.ExecuteReader
    dr = dt.DataRows(0)
    e.Form.Controls("UserPhoto").Image = GetImage(projectPath & "Attachments/" & dr("用户照片"))
End If

 

运行错误提示:索引超出了数组界限。

 

初步怀疑就是红色部分出了问题,怎么改动?请教!

[此贴子已经被作者于2015/8/18 0:34:18编辑过]

 回到顶部