在表单中点右键，选“数据环境...”选择你要的表。
然后在“添加”按钮中输入以下代码：
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
请你们提问题时要表达清楚，最好贴图，
一、列表框，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={} &设置为日期型
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中文网其他相关文章！
