大神帮我检查下 这几句有啥问题

本帖最后由 bcrun 于 2012-06-27 14:23:16 编辑

解决方案 »

  1.   


    conn.Open mstru8conn
    On Error GoTo handerror
     
    If Trim(txtinvcode.Text) <> "" Then
    Screen.MousePointer = vbHourglass
    conn.BeginTrans
    strsql1 = "update Inventory set bTrackSaleBill=1 where cInvCode='" & txtinvcode.Text & "'"
    conn.Execute strsql1
    strsql2 = "update Inventory_Sub set iRequireTrackStyle =1 where cInvSubCode='" & txtinvcode.Text & "'"
    conn.Execute strsql2
    conn.CommitTrans
    Screen.MousePointer = vbDefault
    MsgBox "Successful Update!", vbInformation, ""
    End If
    Exit Sub
    handerror:
    conn.RollbackTrans
    MsgBox Err.Description
    Set conn = Nothing
    End Sub
      

  2.   

    1，输入输入存货编码都能执行只是说明SQL语句的语法没有问题，关键是要看影响的行数
    2，建议楼主不要直接修改用友数据库的参数，最好通过软件去修改
      

  3.   

    你说你输入错误的参数也正确更新了，只能说明你的更新执行了而数据里面表格之间没有设置constrains；这样数据库本身并不抛出错误所以你这样的更新可能会产生的错误在数据库那里得不到体现，但是当你调用数据作计算的时候就比较容易显示出来了。既然是用友，那么联系对方客服是最直接的方法
      

  4.   

    没有问题，输入错误的CINVCODE更新提示成功是因为，当CINVCODE不存在时更新了0条数据，建议把检核数据是否存在的逻辑写到sql之前