表适配器更新时，条件表达式中的数据类型不匹配

Question

我已经被搜索到了解决方案，但还没有找到正确的解决方案。

ObjDRow = DataDataSet.Client.Rows.Find(strClientNo)

With ObjDRow
      .ClientName = txtClientName.Text.Trim
      .ClientAddr = txtAddr.Text.Trim
      If txtRegOffice.Text = "" Then
         .ClientRegOfficeAddr = txtAddr.Text.Trim
      Else
         .ClientRegOfficeAddr = txtRegOffice.Text.Trim
      End If
         .MailtoCorresAddr = RBtnCorresAddr.Checked
         .MailtoRegOffice = RBtnRegOffice.Checked
         .ClientHPhone = mskHandPhone.Text.Trim
         .ClientPager = mskPagerNo.Text.Trim
         .ClientTel = mskTelephone.Text.Trim
         .ClientFaxNo = mskFax.Text.Trim
         .ClientEmail = txtEmail.Text.Trim
         .PrimaryPartner = txtPriPartner.Text.Trim
         .SecondPartner = txtSecPartner.Text.Trim
         .BroughtInBy = cboPreferredBy.Text.Trim
         .PersonIncharge = cboPersonIncharge.Text.Trim
         .GLAC = cboGLAcode.Text.Trim
         .ContactPerson = txtContactPerson.Text.Trim
         .AcraNo = txtAcraNo.Text.Trim
         .Active = chkActive.Checked

          If dtpfyear.Checked = True Then
             .YearEnd = dtpfyear.Text
          End If
          .DeptNo = cboDeptNo.Text.Trim
          .DateJoined = dtDateJoined.Value
          If cboClientName.SelectedIndex = -1 Then
              .Group = txtClientNo.Text
          Else
              .Group = cboClientName.SelectedValue
          End If
         .GroupStatus = RButtonMainYes.Checked
         .MainGroup = RButtonSubYes.Checked
         If IsDate(dtIncorporationDate.Text) Then
              .DateOfIncorporation = dtIncorporationDate.Text
         Else
              .SetDateOfIncorporationNull()
         End If
     End With
   ObjDRow.EndEdit()
 ClientTableAdapter.Update(DataDataSet.Client)

ClientTableAdapter更新时发生错误。

仅某些客户端会发生此错误。

我已经检查数据库的数据类型和表适配器的数据类型，并且所有数据类型都相同。

我的输入值数据类型和表适配器的数据类型相同。

即使我命令所有行更新代码（.ClientName到最后一行），也会发生此错误，但是仍然会发生此错误。WTF

大多数答案都说这是单引号问题，但就我而言，没有单引号。

所有数据类型相同，并且输入值与datatype相同。

**更新了**

即使我喜欢，此错误仍然会发生=>

ObjDRow = DataDataSet.Client.Rows.Find(strClientNo)
                ObjDRow.EndEdit()
                ClientTableAdapter.Update(DataDataSet.Client)

选择并更新并没有任何改变。

但是如果我删除ObjDRow.EndEdit()。一切都很好。没有错误。