主题：SQL外部数据源实现自动编码

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

 

ExecuteScalar

 

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

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

 

上面的代码得到最后一次有人订购PD01的日期，并保存在变量ld中。

 

 

 

If e.DataRow("物料编码") = "" Then
    Dim cmd As New SQLCommand
    Dim max As String
    Dim idx As Integer
    cmd.Connection Name = "数据元"   '设置数据源名称
    cmd.CommandText = "select Max(物料编码) from {selfmade} Where [partsnum] is not null"    '将partsnum不为空的列统计出进行编码
    max = cmd.ExecuteScalar
    If max > "" Then '如果存在最大编号
        idx = cint(max)
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("物料编码") = Format(idx,"000000")
End If
 

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

点击浏览该文件:管理项目944.foxdb