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
输入框的 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
请朋家帮忙分析一下。
加好友 
发短信
Post By：2014/4/14 9:26:00 [显示全部帖子]
