能帮忙看看这个吗？
如果 目录_状态列 内容本来为 “重学习”，则通过收 改变为 “再学习”
Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If lbl1.text <> txt1.text Then
msgbox("不匹配")
'Audio.Play("d:\test.wav")
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Else
Dim t As Table = Tables("单词")
t.Current("目录_状态") = "已学习"
't.Current("听写_次数") += 1
If e.Form.controls("checkbox1").checked Then
Dim drs As List(Of DataRow) = t.DataTable.Select("目录_状态 Is null Or 目录_状态 <> '已学习'")
If drs.count > 0 Then
Dim idx As Integer = Rand.Next(drs.count-1)
t.position = t.FindRow(drs(idx))
Dim r = t.current
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("目录_英文"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)'包括读音
txt1.text = ""
Else
msgbox("已学完")
End If
Else
Dim idx As Integer = t.FindRow("目录_状态 is null or 目录_状态 <> '已学习'", t.Position+1, True)
If idx = -1 Then
msgbox("已学完")
Else
Dim r As Row = t.Rows(idx)
t.Position = idx
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("目录_英文"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) '包括读音
txt1.text = ""
End If
End If
End If
加好友 
发短信
Post By：2017/2/18 9:37:00 [只看该作者]
