Private Sub Form_Load()
    On Error GoTo ErrorHandler
    Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset
    ApplyTheme Me
    LoadLocalLanguage Me
    If IsNull(Me.OpenArgs) Then
        Me.DataEntry = True
    End If
    If Me.DataEntry Then
        GoTo ExitHere
    End If
    Me.btnSave.Enabled = Me.AllowEdits
    Set cnn = CurrentProject.Connection
    strSQL = "SELECT * FROM [询比价] WHERE [ID]=" & SQLText(Me.OpenArgs)
    Set rst = OpenADORecordset(strSQL, , cnn)
    Me![报价时间] = rst![报价时间]
    Me![物资类别] = rst![物资类别]
    Me![物资编码] = rst![物资编码]
    Me![供应商报价1] = rst![供应商报价1]
    Me![单价1] = rst![单价1]
    Me![金额1] = rst![金额1]
    Me![说明1] = rst![说明1]
   
    Me![供应商报价2] = rst![供应商报价2]
    Me![单价2] = rst![单价2]
    Me![金额2] = rst![金额2]
    Me![说明2] = rst![说明2]
    
    Me![供应商报价3] = rst![供应商报价3]
    Me![单价3] = rst![单价3]
    Me![金额3] = rst![金额3]
    Me![说明3] = rst![说明3]
    
    Me![供应商报价4] = rst![供应商报价4]
    Me![单价4] = rst![单价4]
    Me![金额4] = rst![金额4]
    Me![说明4] = rst![说明4]
    
    Me![供应商报价5] = rst![供应商报价5]
    Me![单价5] = rst![单价5]
    Me![金额5] = rst![金额5]
    Me![说明5] = rst![说明5]
    
    Me![最低单价] = rst![最低单价]
    rst.Close

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub Form_Load()"
    Resume ExitHere
End Sub
?

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere      As String
    Dim strSQL        As String
    Dim cnn           As Object 'ADODB.Connection
    Dim rst           As Object 'ADODB.Recordset

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub

    Set cnn = CurrentProject.Connection

    strSQL = "SELECT * FROM [询比价] WHERE [ID]=" & SQLText(Me![ID])
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
        rst![ID] = GetAutoNumber("询比ID")
    End If
    rst![报价时间] = Me![报价时间]
    rst![物资类别] = Me![物资类别]
    rst![物资编码] = Me![物资编码]
    rst![物资名称] = Me![物资名称]
    rst![规格型号] = Me![规格型号]
    rst![单位] = Me![单位]
    rst![数量] = Me![数量]
    rst![供应商报价1] = Me![供应商报价1]
    rst![单价1] = Me![单价1]
    rst![金额1] = Me![金额1]
    rst![说明1] = Me![说明1]
    rst![联系电话1] = Me![联系电话1]
    rst![供应商报价2] = Me![供应商报价2]
    rst![单价2] = Me![单价2]
    rst![金额2] = Me![金额2]
    rst![说明2] = Me![说明2]
    rst![联系电话2] = Me![联系电话2]
    rst![供应商报价3] = Me![供应商报价3]
    rst![单价3] = Me![单价3]
    rst![金额3] = Me![金额3]
    rst![说明3] = Me![说明3]
    rst![联系电话3] = Me![联系电话3]
    rst![供应商报价4] = Me![供应商报价4]
    rst![单价4] = Me![单价4]
    rst![金额4] = Me![金额4]
    rst![说明4] = Me![说明4]
    rst![联系电话4] = Me![联系电话4]
    rst![供应商报价5] = Me![供应商报价5]
    rst![单价5] = Me![单价5]
    rst![金额5] = Me![金额5]
    rst![说明5] = Me![说明5]
    rst![联系电话] = Me![联系电话]
    rst![使用单位] = Me![使用单位]
    rst![最低单价] = Me![最低单价]
    rst.Update
    Me![ID] = rst![ID]
    rst.Close

    Form_frm询比价.RefreshDataList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

    If Me.DataEntry Then
        ClearControlValues Me
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub