Delphi GotoBookmark
来源:互联网 发布:卡通农场删除云端数据 编辑:程序博客网 时间:2024/06/10 01:25
TMP_Str_List_no := '';
with DBGridEh_YingSh_SearchYS do
begin
with DM_Xiao.ADOQuery_xiaoshou_selectyshk do
begin
Selectrow_Count := SelectedRows.Count;
if Selectrow_Count > 0 then
for i := 0 to Selectrow_Count - 1 do
begin
//移到选中的标签处
GotoBookmark(pointer(DBGridEh_YingSh_SearchYS.SelectedRows.Items[i]));
TMP_Str_List_no := TMP_Str_List_no + FieldByName('shk_dh').AsString;
if i <> selectrow_count - 1 then
TMP_Str_List_no := TMP_Str_List_no + ',';
end
else
begin
TMP_Str_List_no := '';
MsgInfo('请选择订单。');
Abort;
end;
end;
end;
with DBGridEh_YingSh_SearchYS do
begin
with DM_Xiao.ADOQuery_xiaoshou_selectyshk do
begin
Selectrow_Count := SelectedRows.Count;
if Selectrow_Count > 0 then
for i := 0 to Selectrow_Count - 1 do
begin
//移到选中的标签处
GotoBookmark(pointer(DBGridEh_YingSh_SearchYS.SelectedRows.Items[i]));
TMP_Str_List_no := TMP_Str_List_no + FieldByName('shk_dh').AsString;
if i <> selectrow_count - 1 then
TMP_Str_List_no := TMP_Str_List_no + ',';
end
else
begin
TMP_Str_List_no := '';
MsgInfo('请选择订单。');
Abort;
end;
end;
end;
- Delphi GotoBookmark
- xe4 GetBookmark GotoBookmark
- DElphi
- Delphi
- delphi...
- Delphi~~
- Delphi @ ^
- Delphi
- delphi
- Delphi
- delphi
- Delphi
- Delphi
- Delphi
- DELPHI
- Delphi
- Delphi
- Delphi
- DbVisualizer 8 解决中文乱码问题
- Android中JNI编程
- java io输出的编码问题
- 模拟实现Struts拦截器-蕴含着代理模式,AOP,工厂模式,依赖注入,Java 反射,动态构造等机制
- IOS之数据持久化
- Delphi GotoBookmark
- Chrome下字体显示不能小于12px的解决方法
- Java上路09-多线程
- http发送数据的解码与编码
- Android Activity和Intent机制
- 如何用 svn 管理 unity3d 项目
- MFC中右键弹出菜单
- MongoDB 学些 第四节 索引管理
- Strut2和FreeMarker整合时的一些问题