| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1169 人关注过本帖
标题:如何在表最后添加记录啊
取消只看楼主 加入收藏
决绝
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-6-1
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
如何在表最后添加记录啊
if allt(thisform.txt学号.value)==""
  messagebox("请输入完整的必要信息!",64,"提示")
  thisform.txt学号.setfocus
else
  if allt(thisform.txt姓名.value)==""
    messagebox("请输入完整的必要信息!",64,"提示")
    thisform.txt姓名.setfocus
 else
  if allt(thisform.txt出生年月.value)==""
    messagebox("请输入完整的必要信息!",64,"提示")
    thisform.txt出生年月.setfocus
    else
      if allt(thisform.txt语文.value)==""
        messagebox("请输入完整的必要信息!",64,"提示")
        thisform.txt语文.setfocus
      else
      if allt(thisform.txt数学.value)==""
        messagebox("请输入完整的必要信息!",64,"提示")
        thisform.txt数学.setfocus
       else
        if allt(str(thisform.txt奖学金.value))==""
        messagebox("请输入完整的必要信息!",64,"提示")
        thisform.txt奖学金.setfocus
        
         else
 
   append blank
   repla 学号 with alltr(thisform.txt学号.value)
   repla 姓名 with thisform.txt姓名.value
   repla 语文 with thisform.txt语文.value
    repla 数学 with thisform.txt数学.value
    repla 出生年月 with thisform.txt出生年月.value
     repla 奖学金 with thisform.txt奖学金.value
messagebox("添加成功")
   endif
    endif
   
      endif
        endif
          endif
           endif
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: 信息 如何 
2012-06-01 21:53
决绝
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-6-1
收藏
得分:0 
回复 3楼 arefeng
不删的话,可以添加,但一直覆盖第一条信息
2012-06-01 22:40
决绝
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2012-6-1
收藏
得分:0 
回复 7楼 sdta
是日期型
2012-06-01 22:56
快速回复:如何在表最后添加记录啊
数据加载中...
 
   



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

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