如何在表最后添加记录啊 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 如何在表最后添加记录啊

我的收件箱(0)

共有 1169 人关注过本帖

标题：如何在表最后添加记录啊

只看楼主加入收藏

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 11 楼

得分:0

把1楼代码排版弄好一点，自己都能看出问题啦。

授人以渔，不授人以鱼。

2012-06-01 23:00

arefeng

等　级：论坛游民
帖　子：69
专家分：61
注　册：2012-5-30

第 12 楼

得分:0

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

以上是我帮楼主整理的代码, 看起来没那么累人,
检查起来没有什么逻辑错误
试试看在
append blank
后面加上一句
go bott

特别声明: 这个不是好办法, 只是从排查调试程序错误的角度来说.
建议楼主还是按2楼的意见优化吧.

2012-06-01 23:04

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 13 楼

得分:0

覆盖了第一条记录，就表明执行replace时没有执行append blank。而append blank已经蕴含了goto bottom，无需再显式执行。楼主还是自己把代码整理好点再看看吧。描述不清，只问为什么是没用的。

授人以渔，不授人以鱼。

2012-06-01 23:36

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 14 楼

得分:0

回复 12楼 arefeng

数据类型不符合

坚守VFP最后的阵地

2012-06-01 23:56

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 15 楼

得分:0

回复楼主决绝

这段代码说明不了问题，不知道你的表单中控件属性都是如何设置的。还是先弄清楚数据类型的分类吧。

坚守VFP最后的阵地

2012-06-02 00:01

小主板

等　级：论坛游民
帖　子：187
专家分：21
注　册：2009-6-28

第 16 楼

得分:2

append blank

2012-06-05 08:16

wengjl

等　级：贵宾
威　望：109
帖　子：2323
专家分：4195
注　册：2007-4-27

第 17 楼

得分:2

楼主的IF这样写，看着比较明白

程序代码：

If Allt(Thisform.txt学号.Value)==""
    Messagebox("请输入完整的必要信息！",64,"提示")
    Thisform.txt学号.SetFocus
  RETURN  
ENDIF
If Allt(Thisform.txt姓名.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt姓名.SetFocus
  RETURN  
ENDIF
If Allt(Thisform.txt出生年月.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt出生年月.SetFocus
  RETURN  
ENDIF
If Allt(Thisform.txt语文.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt语文.SetFocus
   RETURN 
ENDIF
If Allt(Thisform.txt数学.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt数学.SetFocus
   RETURN  
ENDIF
If Allt(Str(Thisform.txt奖学金.Value))==""
  Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt奖学金.SetFocus
  RETURN   
ENDIF
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("添加成功")

不要套在一起

只求每天有一丁点儿的进步就可以了

2012-06-05 10:36

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9855
专家分：27275
注　册：2012-2-5

第 18 楼

得分:0

以下是引用wengjl在2012-6-5 10:36:40的发言：

楼主的IF这样写，看着比较明白If Allt(Thisform.txt学号.Value)==""
    Messagebox("请输入完整的必要信息！",64,"提示")
    Thisform.txt学号.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt姓名.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt姓名.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt出生年月.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt出生年月.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt语文.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt语文.SetFocus
   RETURN
ENDIF
If Allt(Thisform.txt数学.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt数学.SetFocus
   RETURN
ENDIF
If Allt(Str(Thisform.txt奖学金.Value))==""
  Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt奖学金.SetFocus
  RETURN
ENDIF
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("添加成功")不要套在一起

APPEND BLANK 以上部分是记录保存部分，以下部分是记录添加部分，上下两部分应调整一下。

坚守VFP最后的阵地

2012-06-05 15:12

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 19 楼

得分:0

这样很清晰

2012-06-05 16:26

xs591222

等　级：贵宾
威　望：28
帖　子：685
专家分：1323
注　册：2009-3-1

第 20 楼

得分:2

以下是引用wengjl在2012-6-5 10:36:40的发言：

楼主的IF这样写，看着比较明白

If Allt(Thisform.txt学号.Value)==""
    Messagebox("请输入完整的必要信息！",64,"提示")
    Thisform.txt学号.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt姓名.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt姓名.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt出生年月.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt出生年月.SetFocus
  RETURN
ENDIF
If Allt(Thisform.txt语文.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt语文.SetFocus
   RETURN
ENDIF
If Allt(Thisform.txt数学.Value)==""
   Messagebox("请输入完整的必要信息！",64,"提示")
   Thisform.txt数学.SetFocus
   RETURN
ENDIF
If Allt(Str(Thisform.txt奖学金.Value))==""
  Messagebox("请输入完整的必要信息！",64,"提示")
  Thisform.txt奖学金.SetFocus
  RETURN
ENDIF

*** 以上是对信息输入的约束，保证数据的完整性

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("添加成功")

不要套在一起

这个写法好

[ 本帖最后由 xs591222 于 2012-6-5 19:04 编辑 ]

2012-06-05 19:00

快速回复：如何在表最后添加记录啊