我想将此 VB6 代码转换为 VB.NET 代码,但我是 VB.NET 的新手。
On Error Resume Next
rsTemp.AddNew
rsTemp!ID_temp = rsKnowledge!ID
rsTemp!fact = rsKnowledge!YESfact
rsTemp.Update
jwb = rsKnowledge!Yes
If Left(answer, 1) = "G" Then
rsKnowledge.MoveFirst
rsKnowledge.Find " ID= '" & answer & "' "
Label1.Caption = rsKnowledge!question
Else
rsSolution.MoveFirst
rsSolution.Find " ID_solution= '" & answer & "' "
frmDiagnose.Label1.Caption = rsSolution!solution
frmDiagnose.Show vbModal
End If
顺便说一句,那是专家系统代码,