以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72604) |
||||
-- 作者:nanatu -- 发布时间:2015/8/2 20:59:00 -- [求助]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性
]窗口中有多个按钮,怎么通过表中的数据修改按钮的属性,我也编写了代码,但是不知道用什么代码去找出那个按钮,请老师们指教!谢谢 |
||||
-- 作者:有点蓝 -- 发布时间: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 -- 谢谢,可以了! |