老师，获取编码
Dim getbh As String 'return 编号
Dim tbname As String=Args(0) '读参数1,表名
Dim clname As String=Args(1) '读参数2,列名
Dim mxid As String=Args(2) '读参数2,列名
Dim sqldate,numdate As Date 'SQL服务器时间,指定表的编号使用时间
Dim dt As DataTable
Dim dr As DataRow
Dim t As Integer
Dim xh As Integer=0 'update所影响行数的结果作为循环依据
Dim numpre,numlen As String '准备存放前缀字符,序列号长度
Dim num As Integer ' '准备存放表中当前序号
Dim cmd,cmd2 As New SQLCommand
cmd.C
cmd.CommandText = "select getdate()"
sqldate=cmd.ExecuteScalar() '读SQL系统日期
Do
cmd.CommandText = "Select top 1 * Fr om {numberrecovery} where tablename='" & tbname & "' and colname='" & clname & "' and mxsysid='" & CStr(mxid) & "' and [used] = 0 Or [used] Is Null order by recoveryidx"
MessageBox.Show(cmd.CommandText)
dt = cmd.ExecuteReader() '读行记录
MessageBox.Show(dt Is Nothing)
If dt Is Nothing Then
getbh=""
Exit Do '没有行记录则直接退出返回
End If
[此贴子已经被作者于2019/1/14 8:16:59编辑过]
加好友 
发短信
Post By：2019/1/14 0:20:00 [只看该作者]
此主题相关图片如下：1.png
