#2
wxzd1232023-12-28 19:03
|
只有本站会员才能查看附件,请 登录
获取数据按钮代码
con = Sqlstringconnect([Driver={SQL Server};Server=192.168.31.1;UID=sa;PWD=a;Database=sjk])
Public ca
ca=Createobject("CursorAdapter")
With ca
.Alias = 'cs3' &&别名
.Datasource=con &&建立的连接
.DataSourceType = 'odbc'
.SelectCmd = "select id,类别,序号,左侧,顶部 from cs3 "
.KeyFieldList = 'id' &&关键字
.Tables = "cs3" &&要修改的表
.UpdatableFieldList = "id,序号,左侧,顶部"
.UpdateNameList ="id cs3.id,序号 cs3.序号,左侧 cs3.左侧,顶部 cs3.顶部"
.CursorFill() &&
Endwith
Select cs3
CursorSetProp("buffering",3)
Thisform.Grid1.RecordSource ="cs3"
Thisform.Grid1.ColumnCount =3
Thisform.Grid1.Columns(1).header1.Caption='序号'
Thisform.Grid1.Columns(1).ControlSource='序号'
Thisform.Grid1.Columns(2).header1.Caption='左侧'
Thisform.Grid1.Columns(2).ControlSource='左侧'
Thisform.Grid1.Columns(3).header1.Caption='顶部'
Thisform.Grid1.Columns(3).ControlSource='顶部'
Thisform.Grid1.Column1.Width=50
Thisform.Grid1.Column2.Width=50
Thisform.Grid1.Column3.Width=50
Thisform.Grid1.RowHeight =30
Thisform.Grid1.Refresh
增加按钮代码
Insert Into cs3 (序号,左侧,顶部) Values (1,2,3)
ThisForm.Grid1.Refresh
保存按钮代码
Select cs3
Tableupdate(1,.t.,'cs3')
按完增加按钮后
只有本站会员才能查看附件,请 登录
表格显示 1,2,3
这时我在表格中修改,然后再按增加按钮,修改的数字能保存。
如果一连增加多个不修改,最后一起修改,即使按了保存,重新按获取数据,结果没有修改还是1,2,3,为什么增加多个修改就不好用?请各位老师给看一下,谢谢