| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 277 人关注过本帖
标题:如何在表单中使用户可以添加一条记录(含表单)
只看楼主 收藏
Dompink
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-12-20
结帖率:75%
  已结贴   问题点数:20  回复次数:2   
如何在表单中使用户可以添加一条记录(含表单)
我想让用户自己追加表的记录,可以添加图片,上一个按钮里面已经写了代码append blank,怎样才能像加编号一样加图片呢?目前我的代码如下
sele 车辆表

if allt(thisform.text2.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text2.setfocus
else
    if allt(thisform.text3.value)==""
    messagebox("请输入完整的必要信息!",64,"提示")
    thisform.text3.setfocus
    else
        if allt(thisform.text4.value)==""
        messagebox("请输入完整的必要信息!",64,"提示")
        thisform.text4.setfocus
        else
            if allt(thisform.text5.value)==""
            messagebox("请输入完整的必要信息!",64,"提示")
            thisform.text5.setfocus
            else
                if allt(thisform.text6.value)==""
                messagebox("请输入完整的必要信息!",64,"提示")
                thisform.text6.setfocus
                else
                repl 编号 with allt(thisform.text1.value)
                repl 车辆名称 with allt(thisform.text2.value)
                repl 车辆种类 with allt(thisform.text3.value)
                repl 日租金 with allt(thisform.text4.value)
                repl 超时 with allt(thisform.text5.value)
                repl 应收押金 with allt(thisform.text6.value)
                messagebox("录入成功!",64,"提示")
                thisform.label11.init
                endif
            endif
        endif
    endif
endif
2017-12-28 07:40
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:50
帖 子:1236
专家分:2376
注 册:2007-4-27
  得分:14 
IF !empt(thisform.text1.value) and !empt(thisform.text2.value) and !empt(thisform.text3.value) and !empt(thisform.text4.value) and !empt(thisform.text5.value) and !empt(thisform.text6.value)
   messagebox("请输入完整的必要信息!",64,"提示")
ELSE
   sele 表名
   APPEND BLANK
   repl 编号 with allt(thisform.text1.value)
   repl 车辆名称 with allt(thisform.text2.value)
   repl 车辆种类 with allt(thisform.text3.value)
   repl 日租金 with allt(thisform.text4.value)
   repl 超时 with allt(thisform.text5.value)
   repl 应收押金 with allt(thisform.text6.value)
   messagebox("录入成功!",64,"提示")
ENDIF   
   thisform.text1.value) =""
   thisform.text2.value) =""
   thisform.text3.value) =""
   thisform.text4.value) =""
   thisform.text5.value) =""
   thisform.text6.value) =""   
   thisform.refresh
   

只求每天有一丁点儿的进步就可以了
2017-12-28 09:07
Dompink
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-12-20
  得分:0 
回复 2楼 wengjl
我没有表达清楚,我是想用户怎么可以在追加记录里面添加一张图片呢,我知道字符型数据是repl 超时 with allt(thisform.text5.value),但是图片是gen
2017-12-28 19:22







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

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