SendMessage 向文本框发送内容和回车事件
摘要:var Ret: LongInt; mText: PChar; Buf: Integer; sCode:string; begin sCode:='123213123'; GetMem(mText, Length(sCode)); StrCopy(mText, PChar(sCode)); Buf
阅读全文
posted @
2020-04-22 16:06
EEEEEEEEEEEEEEEEEEE
阅读(4584)
推荐(0)
ClientDataset 实现分组求和(Group By)的功能
摘要:ClientDataset 实现分组求和(Group By)的功能 调用用方法 按商品ID分组累加数量try List.Clear; List.Delimiter:='='; List:=SumOfField(PosCDS,PosCDS.FieldByName('SPID'),PosCDS.Fiel
阅读全文
posted @
2020-04-21 10:56
EEEEEEEEEEEEEEEEEEE
阅读(495)
推荐(0)