立即注册 登录
度量快速开发平台-专业、快速的软件定制快开平台 返回首页

刘亚东的个人空间 http://bbs.delit.cn/?5 [收藏] [复制] [RSS]

日志

网格部件修改单条数据不刷新更新修改后的数据

已有 1560 次阅读2020-6-27 11:12 |系统分类:构建综合| 网格部件, 编辑, 单条数据更新, 不刷新

一般情况下我们在构建增删改查窗体的时候,如果修改了某条数据会调用刷新功能来刷新网格中的数据,修改代码如下:
dim form1 = 创建窗体("a4011f01-6826-4868-b8c8-633251a188eb")
form1.Input1="EDIT"
form1.Input2=网格部件1.GetFocusedRowValue("ID")
form1.ShowDialog()
call("刷新")
但是这样如果数据多的话会很慢,所以用一下方法解决:
dim form1 = 创建窗体("a4011f01-6826-4868-b8c8-633251a188eb")
form1.Input1="EDIT"
form1.Input2=网格部件1.GetFocusedRowValue("ID")
form1.ShowDialog()
'判断如果打开的编辑窗体的Output1有值,说明是已经修改成功,那么就更新修改的这一条数据
if isnull(form1.Output1)=false then
'查询出被修改的数据
dim dt=ExecuteSelect("select * from meis_设备基本信息 where ID='"&网格部件1.GetFocusedRowValue("ID")&"'")
'获取修改的这一行数据的赋值到newdr
dim newdr=dt.Rows[0]
'循环网格部件1并判断查询出来的数据中是否有网格部件的字段
for each c in 网格部件1.DataTable.Columns
if dt.Columns.Contains(c.ColumnName) then
'如果查询出来的数据中的字段有网格部件中的字段就更新这个字段的值
网格部件1.SetFocusedRowValue(c.ColumnName,newdr[c.ColumnName])
end if
next
end if

路过

鸡蛋

鲜花

握手

雷人

评论 (0 个评论)

facelist

您需要登录后才可以评论 登录 | 立即注册

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2024-11-2 03:31 , Processed in 0.069249 second(s), 20 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

返回顶部