Dim qkid As Integer = DataTables("情况发布").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & qkid
If Forms("任务查询").Opened() Then
Dim cnt As Integer = Tables("任务查询_table3").Rows.Count
Dim drs As List(Of DataRow)=DataTables("情况发布").AppendLoad(Filter, False)
If Tables("任务查询_table3").Rows.Count > cnt Then
Tables("任务查询_table3").Position = cnt
End If
If drs.Count > 0 Then
Audio.Play("D:\zbddt\Project\sound\msg.wav")
End If
Else
Dim drs As List(Of DataRow)=DataTables("情况发布").AppendLoad(Filter, False)
If drs.Count > 0 Then
Audio.Play("D:\zbddt\Project\sound\msg.wav")
End If
End If
加好友 
发短信
Post By：2012/11/27 13:10:00 [只看该作者]
