重置列这种功能正常不应该给普通用户使用的。因为一般是事件代码更改后,希望重置列处理一下旧数据。而发布后的程序是无法编辑事件代码的,也就不存在处理旧数据这种情况。
If QQClient.Ready = False Then
PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
Else
Dim bh As String = e.DataRow("工程代码") & "-" & Format(e.DataRow("制单日期"),"yyyyMM")
If e.DataRow("编号").StartsWith(bh) = False '如果编号的前6位不符
Dim rt As String = QQClient.SendWait(":g" & bh & "g:")
Dim id As Integer
If rt > "" Then
……
End If