VFP表单如何编写向表格添加数据的代码是什么?
在表单中点右键,选“数据环境...”选择你要的表。
然后在“添加”按钮中输入以下代码:
SELECT 情况表
IF ALLTRIM(THISFORM.text1.VALUE)=''
=MESSAGEBOX('请输入姓名等资料',48,'信息提示')
RETURN
ENDIF
IF MESSAGEBOX('请仔细核对,以保证录入资料的完整、准确! '+CHR(13)+CHR(13)+'上述资料正确无误吗?',48+4,'信息提示')=6
APPEND BLANK
REPLACE 姓名 WITH THISFORM.text1.VALUE,性别 WITH THISFORM.text2.VALUE
REPLACE 家庭地址 WITH THISFORM.text3.VALUE,出生年月 WITH THISFORM.text4.VALUE
REPLACE 手机 WITH THISFORM.text5.VALUE,QQ WITH THISFORM.text6.VALUE
REPLACE 邮政编码 WITH THISFORM.text7.VALUE,E_mail WITH THISFORM.text8.VALUE
REPLACE 生肖 WITH THISFORM.text9.VALUE,民族 WITH THISFORM.text10.VALUE
REPLACE 备注 WITH THISFORM.text11.VALUE
STORE '' TO THISFORM.text1.VALUE,THISFORM.text2.VALUE,THISFORM.text3.VALUE
STORE '' TO THISFORM.text4.VALUE,THISFORM.text5.VALUE,THISFORM.text6.VALUE
STORE '' TO THISFORM.text7.VALUE,THISFORM.text8.VALUE,THISFORM.text9.VALUE
STORE '' TO THISFORM.text10.VALUE,THISFORM.text11.VALUE
ENDIF
在VFP表单设计中怎样向文本框。列表框中输入内容呢
请你们提问题时要表达清楚,最好贴图,
一、列表框,additem和addlistitem两种方法都可以向列表框中添加数据,其中additem方法可以按索引号添加记录,而addlistitem方法是用ID号添加记录,使用这两种方法添加数据项时必须要ROWSOURCETYPE属性值为0或为1.
control.additem(cItem [,nIndex] [,nColumn]) 其中,cItem是要添加的数据项内容,nIndex是索引号。如果指定了有效的nIndex值,cItem将放置在控制的正确位置;如果指定的nIndex已经存在,数据项将插入到这个位置,在这个数据项后面的其它所有数据项在组合框或列表框控制的列表区中向下移一个位置。nColumn将指定数据项要加入的列,默认值为1.
addlistiem方法的语法如下
control.addlistiem(cItem [,nItemID] [,nColumn])
其中,cItem和nColumn是要添加的数据项内容和要加入的列。nItemID是要添加数据项的惟一ID号,如果指定的nItemID已经存,则用cItem覆盖当前ID数据项的内容。
二、文本框
thisform.text1.value="你好"
以上用命令的方式添加,也可以直接添加
可以设置文本框的数据类型,
thisform.text1.value="" &设置为字符型
thisform.text1.value=0 &设置为数值型
thisform.text1.value={} &设置为日期型
关于VFP数据导入问题
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile, STRING, STRING, INTEGER
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open(KKKK) & 打开指定工作簿
**eole.visible=.t. & 显示Excel窗口
eole.visible=.F. & 不显示Excel窗口
eole.selection.WrapText = .T.
xlSheet=eole.Sheets(1)
i=1
***注:变量I可以是第一行,也可以是第N行,由用户自行决定数据起自哪一行.
XMH=xlSheet.Cells(I,1).value
***当前取的是EXECL中的第一列数据,可以自行修改成任意N列
IF TYPE('XMH')'C'
***注:判定是否是字符型,如果是数值型,就用'N'替换'C'
=MESSAGEBOX('项目号不是字符型数据!无法载入',0,'提示信息')
eole.ActiveWorkbook.Close(.T.)
eole.Workbooks.close & 关闭工作簿
eole.quit & 退出Excel
RETURN
ENDIF
DO WHILE !EMPTY(XMH)
***当变量XMH为空时,读取程序结束
SELE SVC
*** SVC是目标表,也是以用其他名字的表
APPE BLAN
REPL 项目号 WITH TRIM(XMH)
***项目号是目标字段
XMMC=xlSheet.Cells(I,1).value
I=I+1
XMH=xlSheet.Cells(I,1).value
IF TYPE('XMH')='C'
ELSE
=MESSAGEBOX('项目号不是字符型数据!无法载入',0,'提示信息')
eole.ActiveWorkbook.Close(.T.)
eole.Workbooks.close & 关闭工作簿
eole.quit & 退出Excel
RETURN
EXIT
ENDIF
ENDDO
eole.ActiveWorkbook.Close(.T.)
eole.Workbooks.close & 关闭工作簿
eole.quit & 退出Excel
以上是VFP表单如何编写向表格添加数据的代码是什么?的详细内容。更多信息请关注PHP中文网其他相关文章!

无法在登录屏幕Windows 7/8/10/11键入密码?为什么会出现这个问题?当您无法在登录屏幕上输入密码时该怎么办? PHP.CN的这篇文章为您提供了几种可行的解决方案。
![[已解决] MacOS无法验证该应用程序是否没有恶意软件-Minitool](https://img.php.cn/upload/article/001/242/473/174542694917149.png?x-oss-process=image/resize,p_40)
在Mac上运行应用程序时,您是否遇到了“ MacOS无法验证此应用程序是否没有恶意软件”? PHP.CN的这篇文章向您展示了如何解决此问题。

错误代码2000-0415是连接到计算机某些特定电缆的小问题。它在戴尔设备中很常见。如果您目前会收到此错误,则PHP.CN网站上此帖子的提示和技巧将对您有所帮助。

您是否曾经遇到过计算机冻结但鼠标仍在移动的情况?许多人对这个问题感到困扰,他们选择强行关闭计算机。实际上,还有其他方法可以帮助您解决此PR

一些用户仍然使用Windows 7版本,他们想下载Windows 7 Ultimate SP1。但是,他们不知道在哪里可以找到ISO文件。不用担心!这篇来自PHP.CN的帖子告诉您如何免费下载和安装Windows 7 Ultimate SP1。

如果您最喜欢的电视节目和工作约会之间存在冲突,该怎么办? Spectrum DVR可以帮助您!它使您可以录制自己喜欢的游戏或电视节目,并随时观看。如果您受到Spectrum DV的困扰

您是否知道如何在文件资源管理器中显示或删除复选框?如果没有,您来了正确的位置。 php.cn上的本文向您展示了几种可行的方法来启用文件资源管理器中的选择复选框。

VSS错误0x800423F4在Windows 11/10上创建系统映像时发生。如果您被这个烦人的问题困扰,请遵循PHP.CN收集的修复程序以将其扎根。此外,专业的Windows备份软件(例如Php.cn Shadowmaker)是简介


热AI工具

Undresser.AI Undress
人工智能驱动的应用程序,用于创建逼真的裸体照片

AI Clothes Remover
用于从照片中去除衣服的在线人工智能工具。

Undress AI Tool
免费脱衣服图片

Clothoff.io
AI脱衣机

Video Face Swap
使用我们完全免费的人工智能换脸工具轻松在任何视频中换脸!

热门文章

热工具

VSCode Windows 64位 下载
微软推出的免费、功能强大的一款IDE编辑器

ZendStudio 13.5.1 Mac
功能强大的PHP集成开发环境

螳螂BT
Mantis是一个易于部署的基于Web的缺陷跟踪工具,用于帮助产品缺陷跟踪。它需要PHP、MySQL和一个Web服务器。请查看我们的演示和托管服务。

记事本++7.3.1
好用且免费的代码编辑器

mPDF
mPDF是一个PHP库,可以从UTF-8编码的HTML生成PDF文件。原作者Ian Back编写mPDF以从他的网站上“即时”输出PDF文件,并处理不同的语言。与原始脚本如HTML2FPDF相比,它的速度较慢,并且在使用Unicode字体时生成的文件较大,但支持CSS样式等,并进行了大量增强。支持几乎所有语言,包括RTL(阿拉伯语和希伯来语)和CJK(中日韩)。支持嵌套的块级元素(如P、DIV),