在表單中點右鍵,選「資料環境...」選擇你要的表。
然後在「新增」按鈕中輸入以下程式碼:
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.VALUEREPLACE 手機 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中文網其他相關文章!