Foxtable(狐表)用户栏目专家坐堂 → 求助窗口绑定目录树绑定Lable


  共有8677人关注过本帖树形打印复制链接

主题:求助窗口绑定目录树绑定Lable

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


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
求助窗口绑定目录树绑定Lable  发帖心情 Post By:2012/9/6 7:52:00 [只看该作者]

 

Dim dt As DataTable = DataTables("在籍学生信息")
Dim Filter As String = "[班级] = '" & e.Node.name & "' And 学期 = '" & e.Node.ParentNode.name & "'"
Dim drs As List(of DataRow) = dt.Select(Filter,"")
For i As Integer = 0 To drs.Count - 1
    If e.Form.Controls.Contains("Lable" & i+1) Then
        e.Form.Controls("Lable" & i+1).text = drs(i)("姓名")
        e.Form.Controls("PictureBox" & i + 1).Image =  GetImage(drs(i)("照片"))
    End If
Next
For i As Integer = drs.Count To 7
    If e.Form.Controls.Contains("Lable" & i+1) Then
        e.Form.Controls("Lable" & i + 1).text = ""
        e.Form.Controls("PictureBox" & i + 1).Image = Nothing
    End If
Next

e.Form.Controls("Label1").text = drs.count
e.Form.Controls("Label2").text = dt.Compute("count(性别)",Filter & " And 性别 = '男'")
e.Form.Controls("Label3").text = dt.Compute("count(性别)",Filter & " And 性别 = '女'")


出现:

翻译错误:"Contains"不是"ControlCollection"的成员。

错误代码: If e.Form.Controls.Contains("Lable" & i+1) Then

请师傅指点


 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/9/6 8:19:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/6 8:38:00 [只看该作者]

Contains 不对,应该:

 
If e.Form.ExistControl("Lable" & i+1) Then

 

 

看看这里:
 
http://www.foxtable.com/help/topics/1409.htm


 


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2012/9/7 7:36:00 [只看该作者]

 

Dim dt As DataTable = DataTables("在籍学生信息")
Dim Filter As String = "[班级] = '" & e.Node.name & "' And 学期 = '" & e.Node.ParentNode.name & "'"
Dim drs As List(of DataRow) = dt.Select(Filter,"")
For i As Integer = 0 To drs.Count - 1
    If e.Form.Controls.Contains("Lable" & i+1) Then
        e.Form.Controls("Lable" & i+1).text = drs(i)("姓名")
        e.Form.Controls("PictureBox" & i + 1).Image =  GetImage(drs(i)("照片"))
    End If
Next
For i As Integer = drs.Count To 7
    If e.Form.Controls.Contains("Lable" & i+1) Then
        e.Form.Controls("Lable" & i + 1).text = ""
        e.Form.Controls("PictureBox" & i + 1).Image = Nothing
    End If
Next

e.Form.Controls("Label1").text = drs.count
e.Form.Controls("Label2").text = dt.Compute("count(性别)",Filter & " And 性别 = '男'")
e.Form.Controls("Label3").text = dt.Compute("count(性别)",Filter & " And 性别 = '女'")


出现:

翻译错误:"Contains"不是"ControlCollection"的成员。

错误代码: If e.Form.Controls.Contains("Lable" & i+1) Then

请师傅指点

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/7 9:02:00 [只看该作者]

Dim dt As DataTable = DataTables("在籍学生信息")
Dim Filter As String = "[班级] = '" & e.Node.name & "' And 学期 = '" & e.Node.ParentNode.name & "'"
Dim drs As List(of DataRow) = dt.Select(Filter,"")
For i As Integer = 0 To drs.Count - 1
    If e.Form.ExistControl("Lable" & i+1) Then
        e.Form.Controls("Lable" & i+1).text = drs(i)("姓名")
        e.Form.Controls("PictureBox" & i + 1).Image =  GetImage(drs(i)("照片"))
    End If
Next
For i As Integer = drs.Count To 7
    If e.Form.ExistControl("Lable" & i+1) Then
        e.Form.Controls("Lable" & i + 1).text = ""
        e.Form.Controls("PictureBox" & i + 1).Image = Nothing
    End If
Next

e.Form.Controls("Label1").text = drs.count
e.Form.Controls("Label2").text = dt.Compute("count(性别)",Filter & " And 性别 = '男'")
e.Form.Controls("Label3").text = dt.Compute("count(性别)",Filter & " And 性别 = '女'")


 回到顶部