开发了这么就连代码的逻辑都还看不懂？那就用帮助来说吧：http://www.foxtable.com/webhelp/topics/3008.htm，比如示例1
1、照抄服务端的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("编号")
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
2、在网页需要编号的时候
Dim msg As String = "HA"
If flbhs.ContainsKey(msg) Then '如果存在这个类别的编号
flbhs(msg) = flbhs(msg) + 1 '将该类别最大编号加1
Else
flbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
End If
Dim 编号 as string = "HA" & Format(flbhs(msg),"000")
加好友 
发短信
Post By：2020/8/23 22:19:00 [显示全部帖子]
