不解堂 IP属地:陕西

文章 关注 粉丝 访问 贡献
 
共 37 篇文章
显示摘要每页显示  条
利用VBA 处理表格 - Word.Tables(1)For Each aCell In oTable.Rows(1).CellsSet myRange = ActiveDocument.Range(Start:=aCell.Range.Start, _End:=aCell.Range.End - 1)MsgBox myRange.TextNext aCellSet oTable = ActiveDocument.Tables(1)For Each aCell In oTable.Rows(1).CellsSet myRange = aCell.RangemyRange.MoveEnd Unit:=...
使用VBA操作Word表格。其中TableObject为表格对象,如果使用了生成表格中的例子,那么可以用SelfGenTable来替代TableObject。选定特定单元格 TableObject.Cell(Row:=1,Column:=1).Select’选定单元格1,1选定行 TableObject.Rows(i).Select’选定第i行选定列 TableObject.Columns(i).Select’选定第i列选定整个表格 TableObject.Select.也是首先...
//重要的在这里,取得BOOKMARKTempBookmark:=DBGrid1.Datasource.Dataset.GetBookmark; 加载中...内容加载失败,点击此处重试加载全文 DBGrid1.Datasource.Dataset.GotoBookmark(TempBookmark);with ADOQuery3 dobegin./////////按Shift多选procedure THistoryForm.DBGrid1MouseUp(Sender: TObject;Button: TMouseButton; Shift: TShiftState; ...
小学五年级数学上册应用题精选。4.光明小学为山区同学捐书,四年级捐240本,五年级捐的是 四年级的2倍,六年级比五年级多捐120本,平均每个年级捐多少本?7. 四、五年级的学生采集树种,四年级采集树种18.6千克,四年级比五年级少采集2.5千克,两个年级一共采集多少千克树种?9. 同学们参加植树劳动,四年级共有96人,每人栽3棵树,五年级有8...
CloneCursor(ClientDataSet1,true);ClientDataSet的packetrecords设置一次取得的记录个数8.ClientDataSet与服务器端query连接方法(1)sql内容为空ClientDataSet1.Close;ClientDataSet1.CommandText:=edit1.Text;//即sql内容ClientDataSet1.Open;对于没有应用服务器设置filter 如:country like ''A%''filtered=true可实现sql...
delphi中cxGrid使用汇总(二) (转)delphi中cxGrid使用汇总(二) (转)cxGrid1: TcxGrid;begin PostMessage(Handle, CM_SETFOCUSEDRECORD, Integer(cxGrid1DBTableView1), MakeLParam(cxGrid1DBTableView1.使用procedure TForm1.cxGrid1DBTableView1CustomDrawIndicatorCell( Sender: TcxGridTableView; ACanvas: TcxCanvas...
写读书笔记和读书笔记格式。摘录式笔记可分为:(1)索引读书笔记索引读书笔记是只记录文章的题目、出处的笔记。评注式笔记有下列几种:(1)书头批注书头批注,是一种最简易的读书笔记作法。(4)评注读书笔记评注读书笔记,是读完读物后对它的得失加以评论,或对疑难之点加以注释,这样的读书笔记叫作评注笔记。3、心得式读书笔记心得式读书...
读书笔记的原则。读书笔记有多种多样的形式,每种形式都有它自己的特点,便也有它必须遵 守的共同的原则,这些原则也是对读书笔记的总的要求。四:注明时间和出处 作读书笔记时,要写明笔记的时间,日后把不同时期的笔记做一比较,会有收效。(3) 经常检查自己的读书笔记,看哪些笔记对自己的帮助大,哪些对学习有益,哪些做得还不够,以 提高...
if data.qu_yhgl1.recordcount=1 then begin count1:=strtoint(data.qu_yhgl2.fieldbyname( ''id '').asstring);if data.qu_yhgl1.recordcount = 1 then begin count1 := strtoint(data.qu_yhgl2.fieldbyname( ''id '').asstring);begin if data.qu_yhgl1....
//点击GridEh标题排序 if (Column.Title.SortMarker = smNoneEh) or (Column.Title.SortMarker = smDownEh) then begin ADOQuery1.SORT := COLUMN.FIELDNAME; Column.Title.SortMarker := smUpEh end else begin ADOQuery1.SORT := COLUMN.FIELDNAME + '' DESC''; Column.Title.SortMarker := smDownEh en...
帮助 | 留言交流 | 联系我们 | 服务条款 | 下载网文摘手 | 下载手机客户端
北京六智信息技术股份有限公司 Copyright© 2005-2024 360doc.com , All Rights Reserved
京ICP证090625号 京ICP备05038915号 京网文[2016]6433-853号 京公网安备11010502030377号
返回
顶部