主题：查询某列的值为某个字符串的开头字符串的行

打不开你的文件，因为没有数据源。

我蒙一下，你是要查找货号列以当前行的产品条码开始的行吧，如果这样，代码应该是：

Dim dr As DataRow
Dim dt As DataTable
Dim s,sh,s1,s2,s3 As String
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "select 产品名称,季别 from {货号名称单价} where 货号 Like '?" &   e.DataRow("产品条码") & "'"
dt = cmd.ExecuteReader
If dt.DataRows.count > 0 Then
    dr = dt.DataRows(0)
    s = e.NewValue
    e.DataRow("货号") = sh = dr("货号")
    e.DataRow("色号1")=s1 = s.SubString(sh.length - 1,2)
    e.DataRow("色号2")=s2 = s.SubString(sh.length + 1,2)
    e.DataRow("尺码号")=s3 = s.SubString(sh.length + 3)
   
Else
    Dim sp As New DotNetSpeech.SpVoice()
    sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
    e.Cancel = True
    MainTable = Tables("货号名称单价")
End If

SQL的语法和函数，请参考：

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

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

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