If LastInputTickCount > 10000 Then '毫秒
' MessageBox.Show("开始播放")
If Vars("bln_是否播放提示音") = True Then
If Forms("备货").Opened = True Then
Dim drs发货 As List(Of DataRow) = DataTables("发货通知子单").SQLSelect("执行状态='通知发货' and 是否完成发货='false'")
If drs发货.Count > 0 Then
Dim str As String = ProjectPath & "RemoteFiles\提示音\Alarm04.wav"
Audio.Play(str)
End If
End If
End If
End If
命令窗口测试下面代码没有问题哦
Dim str As String = "D:\问题\Alarm04.wav"
Audio.Play(str)