专家坐堂-实现类似QQ即时消息的功能问题一直没解决好Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

想实现类似于QQ的一个即时消息功能，查到任务时，针对每一个任务可以发布情况，任务登记表与情况发布关联，在窗口的输入窗口输入字回车后能发布出去，其它客户端能看到，这个功能我试了多次，一直没解决好，

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

输入框的 keyup事件：

If e.Control = True AndAlso e.KeyCode = Keys.Enter Then

Tables("任务查询_table3").addnew()

\'Dim hh As Integer= Tables("业务登记.情况发布").Rows.Count()-1

\'Dim cnt As Integer = Tables("任务查询_table3").Rows.Count

\'Tables("任务查询_table3").Position = cnt

Dim r As Row=Tables("任务查询_table3").Current()

\'Dim r As Row=Tables("业务登记.情况发布").Current()

Dim zifu As String=e.Form.Controls("TextBox12").text

r("情况反映")=zifu

\'Tables("业务登记.情况发布").Select ( hh ,0)

Tables("任务查询_table3").Current.Save()

e.Form.Controls("TextBox12").value=""

End If

请朋家帮忙分析一下。