服务端AfterOpenProject事件
Forms("QQServer").Open()
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sel ect 类型, Max(编号) As 编号 Fro m {编号表} 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 = 6 Then
bh = bh.SubString(3)
If Integer.TryParse(bh,id) Then
flbhs.Add(qz, id)
End If
End If
Next
客户端DataColChanged，比如订单表
If e.DataCol.Name = "类型" Then
If e.DataRow.IsNull("类型") Then
e.DataRow("编号") = Nothing
Else
If QQClient.Ready = False Then
PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
Else
Dim bh As String = e.DataRow("类型")
Dim rt As String = QQClient.SendWait(":f" & bh & "f:")
Dim id As Integer
If rt > "" Then
If Integer.TryParse(rt,id) Then
e.DataRow("编号") = bh & "_" & Format(id,"000")
Else
PopMessage("服务器返回错误信息:" & rt,"提示",PopIconEnum.Infomation,5)
End If
Else
PopMessage("服务器无响应,无法生成编号!","提示",PopIconEnum.Infomation,5)
End If
End If
End If
End If
加好友 
发短信
Post By：2016/7/28 0:24:00 [只看该作者]
