请老师看看，根据老师指导的代码，我进行了学习和调整，但是还没有实现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()
加好友 
发短信
Post By：2016/3/30 12:44:00 [只看该作者]
