以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72604)

--  作者:nanatu
--  发布时间:2015/8/2 20:59:00
--  [求助]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:缺勤.zip

]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性,我也编写了代码,但是不知道用什么代码去找出那个按钮,请老师们指教!谢谢
--  作者:有点蓝
--  发布时间:2015/8/2 21:22:00
--  
For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is  WinForm.Button Then
       Dim b As WinForm.Button = c
        For Each dr As DataRow In DataTables("表B").DataRows \'从数据表中提取数据
            If dr IsNot Nothing Then
                Dim dt1 As Date = dr("开始时间")
                Dim dt2 As Date = dr("结束时间")
                Dim tt As Date = Date.today
                Dim nm As String = dr("姓名")
                Dim lx As String = dr("缺勤类型")
                If b.name = dr("姓名") Then
                    If tt>=dt1 AndAlso tt<=dt2 Then
                        b.text=lx
                        b.ImageFile=Nothing
                    End If
                End If
            End If
        Next
    End If
Next

[此贴子已经被作者于2015/8/2 21:27:44编辑过]

--  作者:nanatu
--  发布时间:2015/8/2 21:32:00
--  
谢谢,可以了!