附件没传成功。
把一下代码贴在 页面集合的 selectedindexchanged事件中：
With e.Form.controls("tabcontrol1")
If .Selectedindex = 0 Then
Dim filter As String = "[接收人] = '" & user.name & "' And [已经处理] = False And [提醒日期] >= #" & Date.today & "#"
DataTables("事件提醒").loadfilter = filter
DataTables("事件提醒").load(False)
End If
If .Selectedindex = 1 Then
Dim filter As String = "[提出部门] = 'A部门' And [已经处理] = False"
DataTables("事件提醒").loadfilter = filter
DataTables("事件提醒").load(False)
End If
If .Selectedindex = 2 Then
Dim filter As String = "[提出部门] = 'B部门' And [已经处理] = False"
DataTables("事件提醒").loadfilter = filter
DataTables("事件提醒").load(False)
End If
If .Selectedindex = 3 Then
Dim filter As String = "[提出部门] = 'C部门' And [已经处理] = False"
DataTables("事件提醒").loadfilter = filter
DataTables("事件提醒").load(False)
End If
End With
[此贴子已经被作者于2013-4-21 12:30:27编辑过]
加好友 
发短信
Post By：2013/4/21 12:19:00 [显示全部帖子]
