 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
yangsheng
註冊時間: 2004-11-25
文章: 4
第 1 樓
|
 發表於: 星期四 十一月 25, 2004 8:40 am 文章主題: 请教关于GRID的问题。 |
 |
|
 我用TEXT控件和GRID做数据录入界面，。要求TEXT1、TEXT2--的数据与GRID里的数据一起保存到SQL表。代码如下：
LOCAL OK,a,b,c,d,e,f,g,h,i
command1=OK
a=thisform.text1.value
b=thisform.combo1.value
c=thisform.combo2.value
d=thisform.text2.value
e=thisform.text3.value
f=thisform.text4.value
g=thisform.text5.value
h=thisform.text6.value
i=thisform.text7.value
handle=sqlstringconnect("Driver=SQL Server;Server=office40;Database=dgstore")
if handle>0
SELECT sjcpruku &&此表为Grid的数据源
go top
SCAN
ad=SQLEXEC(handle,"insert into test1(成品编号,规格型号,单位,生产单号,生产数量,入库重量,入库数量) VALUES (?sjcpruku.成品编号,?sjcpruku.规格型号,?sjcpruku.单位,?sjcpruku.生产单号,?sjcpruku.生产数量,?sjcpruku.入库重量,?sjcpruku.入库数量)")
IF ad>0
DELETE
ENDIF
ENDSCAN
ThisForm.Grid1.RecordSource=NULL
use in sjcpruku
use sjcpruku EXCLUSIVE
pack
ThisForm.Grid1.RecordSource="sjcpruku"
sqlexec(handle,"update test1(入库单号,物料类型,入库类型,入库日期,客户代码,客户名称,报关日期,报关单号,备注) values('"+a+"','"+b+"','"+c+"' ,'"+d+"','"+e+"','"+f+"','"+g+"','"+h+"','"+i+"')")
MESSAGEBOX("记录添加成功",64,"信息窗口")
endif
结果是：保存后在SQL表里a,b----i,的数据不能放在GRID的每条数据前。
要实现保后的a,b,i----数据都放在GRID每条数据的前，该怎样写？？ |
|
| 回頂端 |
|
 |
horace
註冊時間: 2004-11-25
文章: 36
來自: 新竹
第 2 樓
|
| 發表於: 星期四 十一月 25, 2004 11:47 pm 文章主題: |
|
|
...
ThisForm.Grid1.RecordSource="sjcpruku"
sqlexec(handle,"update test1(入�����A,物料�搦�,入���搦�,入�楔暾�,客�𨰃N��,客�𡢞W��,��罒日期,��罒���A,�穠`) values('"+a+"','"+b+"','"+c+"' ,'"+d+"','"+e+"','"+f+"','"+g+"','"+h+"','"+i+"')")
MESSAGEBOX("��緍添加成功",64,"信息窗口")
... |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
