这是个删除按键的语法 其中navigator=Me.BindingContext(myds, "人员信息")
Dim mycomc As New SqlCommand()
mycomc.Connection = mycon
mycomc.CommandType = CommandType.Text
If navigator.Count > 0 Then
mycomc.CommandText = "delete from 人员信息 where 人员编号＝'" & myds.Tables("人员信息").Rows(navigator.Position)("人员编号").ToString() & "'"
mycomc.ExecuteNonQuery() 错误处,说=号附近有语法错误
MsgBox("已经删除")
Else
MsgBox("已经无记录了,请添加")
btnappormodi() : Button8.Enabled = False : Button9.Enabled = False
Button5.Enabled = True : Exit Sub
End If
mydataadapter.Update(myds, "人员信息")
myds.Clear()
mydataadapter.Fill(myds, "人员信息")
If navigator.Count > 0 Then
dispvalue()
Else
cleartext()
End If
当使用这个按纽的时候就报错
我不明白这个错误是怎么回事,希望各位大大帮我看下

难道是我问的太容易了,各位大大都不屑回答?
还是这个问题前面有人提过
各位给个建议吧....

这是什么话？好象潜台词是这个论坛的人人品有问题似的，这段时间不是忙考试就是工作的，没什么时间的，很少有我这么闲的

汗,不是这个意思了.........就是大家看了以后给个建议而已 没有别的任何意思

mycomc.CommandText = "delete from 人员信息 where 人员编号＝'" & myds.Tables("人员信息").Rows(navigator.Position)("人员编号").ToString() & "'"
mycomc.ExecuteNonQuery() 错误处,说=号附近有语法错误

是SQL语句出错了
建议你调试的时候监视SQL语句的值，然后在查询分析器之类的地方调试一下看什么错误
或者你把SQL语句贴出来帮你看一下也可以

LS说的貌似很深奥
我还不知道怎么做,请指教

mycomc.CommandText = "delete from 人员信息 where 人员编号＝'" &
myds.Tables("人员信息").Rows(navigator.Position)("人员编号").ToString() &
"'"
如果你没有打错字的话就是人员编号后面的=是全角的。

人家是说你的SQL语句有问题而已

myds.Tables("人员信息").Rows(navigator.Position)("人员编号").ToString()
你的这个值是多少?

myds.Tables("人员信息").Rows(navigator.Position)("人员编号").ToString()
你可以试试这条语句的值,如果真是他有问题的话,就只能改一下了,在语句中最好把他赋个变量,不要出现这么长的语句,