Database

<br />
<br />
The Check Errors will tell you where did you go wrong<br />
here is code for checkErrors<br />
<code><br />
    Private Sub checkerrors()<br />
<br />
        Dim table As Data.DataTable<br />
        Dim row As Data.DataRow<br />
        SqlDataAdapter1.Update(DataSet11, "Property")<br />
        If DataSet11.HasErrors Then<br />
<br />
            For Each table In DataSet11.Tables<br />
                If table.HasErrors Then<br />
<br />
                    For Each row In table.Rows<br />
                        If row.HasErrors Then<br />
                            MessageBox.Show("Dataset has Errors")<br />
                            ' Process error here.<br />
<br />
                        End If<br />
                    Next<br />
                ElseIf table.HasErrors = False Then<br />
                    MessageBox.Show("Dataset has no Errors")<br />
                End If<br />
            Next<br />
        End If<br />
    End Sub<br />
<br />

<br />
 'save the New Record for an Add or Edit<br />
        If mblnAdding Then<br />
            Try<br />
                Dim newRow As DataRow = DataSet11._PROPERTY.NewRow<br />
                newRow("Num_key") = CStr(txtnumkey.Text)<br />
                newRow("Extension") = CInt(txtextension.Text)<br />
                newRow("Cell_ID") = CInt(txtcellid.Text)<br />
                newRow("ACTUAL_EXTENT") = CInt(txtactualextent1.Text)<br />
                newRow("Lis_key") = CStr(txtliskey.Text)<br />
                newRow("Func_key") = CStr(txtfunckey.Text)<br />
                newRow("PROP_CATEGORY_ID") = CInt(Prop_Category_ID)<br />
                newRow("Geocode") = CStr(txtgeocode.Text)<br />
                newRow("Rateable") = Rateable<br />
                newRow("Non_Discreet_Valid") = Non_Discreet_Valid<br />
                DataSet11._PROPERTY.Rows.Add(newRow)<br />
                Catch exc As Exception<br />
                MessageBox.Show("Unable to add the Record." & _<br />
                ControlChars.NewLine & exc.Message, "Property")<br />
<br />
            End Try<br />
            mblnAdding = False<br />
            lblRecordNumber.Text = "Record Added at the end of the Table"<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />

select c.ID, s.Value, c.Date, c.Comments<br />
from [Call Log] c<br />
inner join [Static SalesReps] s on s.ID = c.[Sales Rep]