MyException - 我的异常网
当前位置:我的异常网» VB » 关于vb中循环中固定一个值,求见地。

关于vb中循环中固定一个值,求见地。

www.myexceptions.net  网友分享于:2013-04-10  浏览:3次
关于vb中循环中固定一个值,求想法。。。。。
各位大大们,代码如下
    If Format(Now, "hh:mm") < onwork_time Then
        Text3.Text = Text3.Text & vbCrLf & "登记成功"
        Text3.Text = Text3.Text & vbCrLf & "犯人编号:" & EnrollNumber
        Text3.Text = Text3.Text & vbCrLf & "登记时间:" & Format(Now, "yyyy/mm/dd hh:mm:ss")
        Text3.SelStart = Len(Text3.Text)
        InNumber = EnrollNumber
        Adodc2.RecordSource = "select *from tb_BasicInformation Where 编号=" & InNumber    '字符型的是这样,如果数字可以直接跟在=号后面
        Adodc2.Refresh
        Adodc3.RecordSource = "select *from tb_OnWork"
        Adodc3.Refresh
        Adodc4.RecordSource = "select *from tb_OnWork where 编号=" & InNumber
        Adodc4.Refresh
        If Adodc4.Recordset.RecordCount = 0 Then '避免重复数据的重复录入
         ' For i = 0 To Adodc2.MaxRecords - 1
            If Adodc2.Recordset.RecordCount <> 0 Then
                Adodc3.Recordset.AddNew
                Adodc3.Recordset.Fields(1) = Adodc2.Recordset.Fields(1)
                Adodc3.Recordset.Fields(2) = InNumber
                Adodc3.Recordset.Fields(4) = 0
                Adodc3.Recordset.Fields(5) = Format(Now, "yyyy/mm/dd hh:mm:ss")
                Adodc3.Recordset.Update
                Label_WorkNum = Adodc3.Recordset.RecordCount
            End If
        End If
    Else
        Text3.Text = Text3.Text & vbCrLf & "认证成功"
        Text3.Text = Text3.Text & vbCrLf & "犯人编号:" & EnrollNumber
        Text3.Text = Text3.Text & vbCrLf & "认证时间:" & Format(Now, "yyyy/mm/dd hh:mm:ss")
        Text3.SelStart = Len(Text3.Text)
        InNumber = EnrollNumber
        Adodc4.RecordSource = "select *from tb_OnWork where 编号=" & InNumber
        Adodc4.Recordset.MoveNext

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有