文章分类 -  网格相关

响应网络当前行改变事件
摘要：'响应网络当前行改变事件Sub DBGrid31_EventCurRowChanged(nRowIndex)'改变数据引擎的当前记录 if DBEngine.CurIndex() nRowIndex-DBGrid31.GetFixedRowCount then DBEngine.GoToRecord nRowIndex-DBGrid31.GetFixedRowCount end if... 阅读全文
posted @ 2005-12-08 15:49 致远钓客 阅读(131) 评论(0) 推荐(0)
多行选择处理
摘要：全选：Sub btnAll_Click() DBGrid14.SelectAllCells()End Sub 取消全选：Sub btnAllCancel_Click() DBGrid14.UnSelectAllCells()End Sub 判断多选Sub btnInsert_Click() nRowIndex = DBGrid14.GetCurRowIndex() RowHeadHei... 阅读全文
posted @ 2005-11-05 19:23 致远钓客 阅读(292) 评论(0) 推荐(0)
计算记录数
摘要：eb_RecordCount.Text=MainGrid.GetRecordCount() 阅读全文
posted @ 2005-11-05 17:26 致远钓客 阅读(146) 评论(0) 推荐(0)
保存或删除后，停留在当前行
摘要：保存后，停留在当前行 bNewRecord = DBEngine.IsNewRecord if DBEngine.SaveRecord() = true then '保存后,要从数据库更新当前行数据 if bNewRecord true then '保存修改 DBGrid14.UpdateCurRecordFromServer(DBEngine.GetCurRe... 阅读全文
posted @ 2005-11-05 17:24 致远钓客 阅读(173) 评论(0) 推荐(0)
移动记录
摘要：网格中移动记录： Sub btnFirst_Click() MainGrid.SetFocusRow (maingrid.GetFixedRowCount ) End Sub Sub btnLast_Click() MainGrid.SetFocusRow (maingrid.GetFixedRowCount + mainGrid.GetRecordCount-1) End Su... 阅读全文
posted @ 2005-11-05 17:23 致远钓客 阅读(168) 评论(0) 推荐(0)
取网格中字段值
摘要：RowIndex = DBGrid14.GetCurRowIndex‘得到当前行索引 nRowIndex = DBGrid14.GetCurRecordIndex ‘为空 msgbox (DBGrid14.GetFieldStringValue("项目名称",RowIndex-1))’得到当前行相应字段值 msgbox (DBGrid14.GetFieldStringValue("项目名称... 阅读全文
posted @ 2005-11-05 17:22 致远钓客 阅读(154) 评论(0) 推荐(0)
隐藏网格中某列
摘要：Call DBGridLesson.SetFieldColWidth ("序号",1) 阅读全文
posted @ 2005-11-05 17:21 致远钓客 阅读(114) 评论(0) 推荐(0)