请教这个update不管用 - VFP论坛

楼主

已结贴√ 问题点数：10 回复次数：7

请教这个update不管用

用的数据环境添加数据表。用关键字查找是否已存在记录，存在的话提示是否修改，不存在插入新记录，下面这样写的用不了，无提示。，请教这是怎么回事？？谢谢

程序代码：

With Thisform
    
    
    If  Isblank(Alltrim(Thisform.txt号.Value)) 
        Messagebox('请输入关键字内容！！！',64,'提示：')
        Return
    Else
        GO TOP 
    SEEK Alltrim(Thisform.txt号.Value)
        
        If FOUND()  
            nAnswer=Messagebox('要修改吗！！！',1+64+256,'提示：')  
            Do CASE      
            Case nAnswer=1
                Update material SET 号=Alltrim(Thisform.txt号.Value),c=Alltrim(Thisform.txtC.Value) from material  Where Alltrim(Thisform.txt号.Value)==号
                Thisform.Refresh
            Case  nAnswer=0
                Return
            Endcase
        Else
            Insert Into material (号,c) VALUES (Alltrim(Thisform.txt号.Value),Alltrim(Thisform.txtC.Value))
            
                        Thisform.txt号.Value=""                
            Thisform.txtC.Value=""
            
            Thisform.Refresh

        Endif
    Endif

Endwith

[ 本帖最后由 freejike 于 2014-1-5 16:14 编辑 ]

搜索更多相关主题的帖子: 记录　 color　数据表　关键字　 update　

第 2 楼

得分:4

LOCATE for Alltrim(号)=Alltrim(Thisform.txt号.Value)

第 3 楼

得分:4

index on 号 tag 号 *---------加个索引看看
SEEK Alltrim(Thisform.txt号.Value)

第 4 楼

得分:0

回复 3楼 tlliqi

号已经存在，并且是主索引标识或侯选索引标识，改写吗？
确定后，文件必须已独占方式打开，调试器指向index on 号 tag 号

第 5 楼

得分:0

回复 2楼 sostemp

先用locate，也是这样的。所以改成seek试试

第 6 楼

得分:0

回复 2楼 sostemp

我写成下面这样，不管有没记录都提示“要修改吗？”确定后，就没反应了，若把err去掉可以添加新记录，但不能修改，不提示“要修改吗？”

程序代码：

With Thisform
    
    
    If  Isblank(Alltrim(Thisform.txt号.Value))
        Messagebox('请输入关键字内容！！！',64,'提示：')
        Return

    Else
        Locate For Alltrim(Thisform.txt号.Value)==号
        err=.F.
        On Error err=.T.  

        If Found()=err   
            nAnswer=Messagebox('要修改吗！！！',1+64+256,'提示：')   
            Do CASE      
            Case nAnswer=1
                Update material;
                    SET 号=Alltrim(Thisform.txt号.Value),c=Alltrim(Thisform.txtC.Value) Where Alltrim(Thisform.txt号.Value)==号

                Thisform.Refresh
            Case  nAnswer=0
                Return
            Endcase
        Else
            Insert Into material (号,c) VALUES (Alltrim(Thisform.txt号.Value),Alltrim(Thisform.txtC.Value))
            Thisform.txt号.Value=""               
            Thisform.txtC.Value=""
   
            Thisform.Refresh

        Endif
    Endif

Endwith