VFP如何通过表单向表中添加数据的代码是什么

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