主题：网络环境下的编号

    If bh.Length = 16 Then
        bh = bh.SubString(12)

改成

    bh = bh.SubString(qz.length)

For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("录入人") & "-"  & dr("年") & Format(dr("月"),"00") '编号前缀,4位录入人,4位年,2位月
    Dim bh As String =  dr("派单id")
    Dim id As Integer   
    If bh.Length >= qz.length Then
        bh = bh.SubString(qz.length)
        If Integer.TryParse(bh,id) Then
            flbhs.Add(qz, id)
        End If
    End If
Next

Forms("QQServer").Open()
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "server"
cmd.CommandText = "Select 录入人,录入日期, Max(派单id) as 派单id From {派工} Group By 录入人,录入日期"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("录入人") & "-"  & Format(dr("录入日期"),"yyyyMMddHHmmss")
    Dim bh As String =  dr("派单id")
    Dim id As Integer   
    If bh.Length >= qz.length Then
        bh = bh.SubString(qz.length)
        If Integer.TryParse(bh,id) Then
            flbhs.Add(qz, id)
        End If
    End If
Next

不需要改