下面这个你做了没有?得到的编号,是最大的了没有?msgbox弹出看看。
2、在服务端的AfterOpenProjet事件中编写代码:
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select 类别, Max(编号) As 编号 From {产品} Group By 类别"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
Dim qz As String = dr("类别") '编号前缀
Dim bh As String = dr("编号")
msgbox(bh)
Dim id As Integer
If bh.Length = 5 Then
bh = bh.SubString(2)
If Integer.TryParse(bh,id) Then
flbhs.Add(qz, id)
End If
End If
Next