| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 926 人关注过本帖
标题:vfp表单录入问题
只看楼主 加入收藏
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
结帖率:33.33%
收藏
已结贴  问题点数:20 回复次数:7 
vfp表单录入问题
新建文件夹.zip (10.1 KB)
搜索更多相关主题的帖子: 表单 录入 
2012-01-10 14:55
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:10 
什么问题?
2012-01-10 14:58
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
运行表单,输入框有数据没就提示没有。请帮忙查看“确定”按钮代码 以及表单输入框生成器
2012-01-10 15:12
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:10 
简单直接
贴代码
2012-01-10 15:17
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
if dtoc(thisform.text1.value)="" or thisform.text2.value="" or thisform.text3.value="" or thisform.text4.value="" or ;
                 or or or or ;
                 or or
     messagebox("有漏项,请重新输入!",40)
    thisform.text1.setfocus
else
    if len(alltrim(thisform.text2.value))<>7
            messagebox("请输入7位箱号或车号!",40)
            thisform.text2.setfocus
       else
               if len(alltrim(thisform.text3.value))<>7
                messagebox("请输入7位箱号或车号!",40)
               thisform.text3.setfocus
            else
              if len(alltrim(thisform.text4.value))<>7
                 messagebox("请输入7位箱号或车号!",40)
                 thisform.text4.setfocus
             else
      *select 空箱加固库
    *set order to 日期
    go top
    loca for 日期=thisform.text1.value and 车号=thisform.text2.value
    if eof()
        m_riqi=thisform.text1.value
        m_daozhan=
        m_minglinghao=
        m_chezhong=
        m_chexing=
        m_chehao=thisform.text2.value
        m_xiangshu=
        m_xiangxing=
        m_xianghao1=thisform.text3.value
        m_xianghao2=thisform.text4.value
        m_huoyunyuan=
        append blank
        replace 日期 with m_riqi,到站 with m_daozhan,命令号 with m_minglinghao,车种 with m_chezhong,车型 with m_chexing,车号 with m_chehao,;
                   箱属 with m_xiangshu,箱型 with m_xiangxing,箱号1 with m_xianghao1,箱号2 with m_xianghao2,货运员 with m_huoyunyuan
                messagebox("录入成功!",40)   
    else
        messagebox("该数据已经存在,请核查!",40)
        thisform.text1.setfocus
                endif
            endif
        endif
    endif
endif
2012-01-10 15:20
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
看看有啥问题?
2012-01-10 15:20
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
if dtoc(thisform.text1.value)="" or thisform.text2.value="" or thisform.text3.value="" or thisform.text4.value="" or ;
                 or or or or ;
                 or or
改为:
if thisform.text1.value={} or EMPTY(thisform.text2.value) or EMPTY(thisform.text3.value) or EMPTY(thisform.text4.value) or EMPTY() ;
                 or EMPTY() or EMPTY() or EMPTY() or EMPTY() ;
                 or EMPTY() or EMPTY()
2012-01-10 16:00
欣德普
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2012-1-10
收藏
得分:0 
回复 7楼 tlliqi
太感谢了,我琢磨了两天也没弄懂的问题!以后多多指教!再次感谢
2012-01-10 20:46
快速回复:vfp表单录入问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019715 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved