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

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

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

有可能你没有完全理解我的意思，我打个比方：

输入一个条码：L12345678001，其中：

货号为：L1234

色号1为：56

色号2为：78

尺码号为：001

但是，货号的长度不固定，导致条码的长度也不固定，因此根据条码来生成货号等要区分好几种情况，逻辑比较复杂，而且很不灵活。所幸色号1和色号2 的位数是固定的，因此我想寻找一种更灵活的方式来生成货号。所以我的意思是：

查找货号 是 当前行的产品条码 的开始 的 行

那就将这一行：

cmd.CommandText = "select 产品名称,季别 from {货号名称单价} where 货号 Like \'?" &   e.DataRow("产品条码") & "\'"

改为：

cmd.CommandText = "select 产品名称,季别 from {货号名称单价} where 产品条码 Like \'?" &   e.DataRow("货号") & "\'"

问题是{货号名称单价}里并没有名为“产品条码"的列，而且，通配符？不是表示任何单个字符吗？用在这里我还是理解不了。

我把相关的两个表从定向为内部表了，不知能否打开。有劳了！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.foxdb

还是谢谢你！忙了大半天，挺感激的。

不过现实的应用中这种情况还是挺多的。建议foxtable能增强相应的功能来满足这种需求。

我把代码调成这样，货号已经生成，不过生成了两个，第一个是正确的值，随即又被修改成了空格，你帮忙看看，怎样才能不被修改成空格，如果能做到，我的问题就解决了！

Dim s As String = e.NewValue
Dim sh As String
For Each dr As DataRow In DataTables("货号名称单价").DataRows
    If s.startswith(dr("货号")) Then
    MessageBox.Show(dr("货号"))
        sh = dr("货号")
    End If
Next
MessageBox.Show(sh)
e.DataRow("货号") = sh

可以用下面的条码测试

GL1352340150170

这个简单：

Dim s As String = e.NewValue
Dim sh As String
For Each dr As DataRow In DataTables("货号名称单价").DataRows
    If dr.isnull("货号") = False andalso s.startswith(dr("货号"))  Then
        sh = dr("货号")

        exit for
    End If
Next
e.DataRow("货号") = sh