If dt1.DataCols(i1).Name <> dr1("异常项目") Then
If dr1(dt1.DataCols(i1).Name) >= Format(Date.now,"HH:mm") And dr1(dt1.DataCols(i1).Name) < Format(Date.now.AddMinutes(1),"HH:mm") And dr1.IsNull(dt1.DataCols(i1).Name.Replace("计划","")) = True Then
Dim str1 As String = (dr1(dt1.DataCols("客户")) & "," & dr1("便次") & "," & dt1.DataCols(i1).Name.Replace("计划结束","") & ",时间," & format(dr1(dt1.DataCols(i1).Name),"HH:mm") & "已经过了,管理者" & cb.Text & ",请确认进度!")
sp.Speak(str1 , DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
End If
sp.Speak(str1 , DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
如题,语音朗读 提示 值不在预期范围内 查看代码应该没找到问题,不知道怎么处理!