主题：SQL中SELECT中SubString参数传递不成功

Dim kmdaima As WinForm.TextBox = e.Form.Controls("kemudaima")
cmd.CommandText = "Select Count(*) From {科目表} Where SubString(科目代码,1,LEN(kmdaima.text))= '" & kmdaima.Text & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("删除科目失败,请先删除此科目的下级科目!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If

我想要做的就是当e.Form.Controls("kemudaima")中输入的代码在科目表中有子科目则不能执行删除

请高手给看一下,这段代吗中cmd.CommandText中有什么问题,为什么参数参数传递不过去,

你用的内部表吧？ 内部表的sql语法和access相同，你看看有些什么函数可以用：

http://www.foxtable.com/help/topics/0692.htm

显然没有SubString，而且动态合成表达时你也有问题，建议看看：

http://www.foxtable.com/help/topics/1284.htm

Dim txt As String = e.Form.Controls("kemudaima").Text

cmd.CommandText = "Select Count(*) From {科目表} Where Mid(科目代码,1, "& cnt & ") = '" & txt & "'"
If cmd.ExecuteScalar > 0 Then
    Messagebox.show("删除科目失败,请先删除此科目的下级科目!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If