| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- LABEL控件动态内容的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=83052) |
| -- 作者：douglas738888 -- 发布时间：2016/3/30 12:44:00 -- LABEL控件动态内容的问题 请老师看看，根据老师指导的代码，我进行了学习和调整，但是还没有实现LABEL值的及时动态变化，点击LABEL控件， 另一个窗口表中的“任务已读”列没有自动填写登录名，请老师看看我的代码错在哪里，谢谢！！！！ 另外，任务表窗口的AFTERLOAD是否还需写代码进行对应。 Forms("任务表").Open() ‘ 点击Label3控件打开任务表窗口 Dim Filter As String = "任务人员 Like \'%" & _UserName & "%\' and (任务已读 not Like \'%" & _UserName & "%\' or 任务已读 is null)" Dim lbl As WinForm.Label = e.Form.Controls("Label3") Dim drs As List(Of DataRow) = DataTables("任务表_Table1").Select(Filter & " and (任务已读 not like \'%" & _UserName & "%\' or 任务已读 is null)") If drs.count > 0 Then For Each dr As DataRow In drs dr("任务已读") = (dr("任务已读") & "," & _UserName).Trim(",") Next lbl.Text = lbl.text & "(0)" lbl.Text = lbl.text & "(" & val( lbl.Text.Split("(")(1)) - drs.count & ")" End If Tables("任务表_Table1").Filter = Filter DataTables("任务表_Table1").LoadFilter = Filter DataTables("任务表_Table1").Load() |
| -- 作者：大红袍 -- 发布时间：2016/3/30 14:36:00 -- 看看
http://www.foxtable.com/help/topics/1476.htm
|