Dim s As String = Trim(e.Form.Controls("TextBox1").TEXT)
DataTables("表A").Save
Dim dr As DataRow
dr = DataTables("表A").Find("[备注] = \'" & s & "\'") \'主要出错,就是这个s变量里面出现了\'或多个\',导致参数 \'" & s & "\'",没有执行下去,所以此处求助下,看是BUG,还是方法不对
If dr IsNot Nothing Then
MessageBox.Show("YES 存在相同内容!")
Else
MessageBox.Show("NO 不存在相同内容!")
End If