使用SQL外部数据源，想实现物料编码的自动生成，编码没有特殊要求，是无意编码，只要按照顺序生成即可，不能使用表达式列，因为表达式列生成的编码不能保存在数据库中，在表的BeforeSaveDataRow中写了如下的代码：

If e.DataRow("物料编码") = "" Then
    Dim cmd As New SQLCommand
    Dim dt As DataTable
    cmd.C   \'设置数据源名称
    cmd.CommandText = "select * from {selfmade} Where [partsnum] is not null"    \'将partsnum不为空的列统计出进行编码
    dt = cmd.ExecuteReader()
    Dim max As String
    Dim idx As Integer
    max = dt.Compute("Max(物料编码)") \'取得最大编号
    If max > "" Then \'如果存在最大编号
        idx = CInt(max.Substring(6)) + 1 \'获得最大编号,并加1
    Else
        idx = 1 \'否则顺序号等于1
    End If
   
    e.DataRow("物料编码") = Format(idx,"000000")
End If

运行后“物料编码”没有变化，还是空值，而且报错：“调用的目标发生了异常。”请问代码哪里有问题呢？另外，有什么简单一点的方法能实现表达式列的编号直接复制到数据列就好了。

有一句代码没复制全   cmd.C \'设置数据源名称

取最大值，不需要这大费周章，你看看：

ExecuteScalar

用于执行返回单个值的命令，例如：

Dim ld As Date
Dim cmd As New SQLCommand
cmd.CommandText = "Select Max(日期) From {订单} Where 产品 = \'PD01\'"
ld = cmd.ExecuteScalar()

狐爸：

     管理项目944有一个问题：在当时保存时编码是自动生成的没有问题，可是 cmd.CommandText = "update {selfmade} Set [零部件_物料编码] = \'" & Format(idx,"000000") & "\'"代码运行后将所有的代码都更新为最大的编码了，而不是保存之前的顺序的编码了。但是如果不即时将最大编码写入数据库后，在当前表中添加数据时，会出现编码不是从现有最大编码开始顺序增加的，这要怎么解决呢？比如你那个项目测试后所有数据的“物料编码”都变成000002了。