0

这就是我正在做的事情。当患者计数为 0 时，它可以工作，但是当它增加时，假设为 1，它会给出错误：“更新或删除查询不包含多值字段。” 有什么问题，请帮帮我。非常感谢。

rs = New ADODB.Recordset
    With rs
        .Open("Select * from Doctor where DName='" & cmbDoctors.Text & "'", cn, 2, 3)

        If .Fields("Patients").Value = 10 Then
            MsgBox("All appointments had been taken. Please Select another Doctor.")
            Exit Sub
        End If
        patient = Txtname.Text
        If .Fields("Patients").Value = 0 Then
            .Fields("Patient0").Value = patient
        ElseIf .Fields("Patients").Value = 1 Then
            .Fields("Patient1").Value = patient
        ElseIf .Fields("Patients").Value = 2 Then
            .Fields("Patient2").Value = patient
        ElseIf .Fields("Patients").Value = 3 Then
            .Fields("Patient3").Value = patient
        ElseIf .Fields("Patients").Value = 4 Then
            .Fields("Patient4").Value = patient
        ElseIf .Fields("Patients").Value = 5 Then
            .Fields("Patient5").Value = patient
        ElseIf .Fields("Patients").Value = 6 Then
            .Fields("Patient6").Value = patient
        ElseIf .Fields("Patients").Value = 7 Then
            .Fields("Patient7").Value = patient
        ElseIf .Fields("Patients").Value = 8 Then
            .Fields("Patient8").Value = patient
        ElseIf .Fields("Patients").Value = 9 Then
            .Fields("Patient9").Value = patient
        End If
        .Fields("Patients").Value += 1
        .Fields("Fees").Value += txtAmount.Text
        .Update()
        .Close()
    End With
4

1 回答 1

0

尝试这个

rs = New ADODB.Recordset
  With rs
    .Open("Select * from Doctor where DName='" & cmbDoctors.Text & "'", cn, 2, 3)

    If .Fields("Patients").Value = 10 Then
        MsgBox("All appointments had been taken. Please Select another Doctor.")
        Exit Sub
    End If
    patient = Txtname.Text

    ' filter here that input is 0 to 9

    .Fields("Patient" & trim(.Fields("Patients").Value)).Value = patient

    .Fields("Patients").Value = .Fields("Patients").Value + 1
    .Fields("Fees").Value = .Fields("Fees").Value + val(txtAmount.Text)
    .Update()
    .Close()
End With
于 2013-06-01T10:34:45.083 回答