Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口中的table绑定到明细表的问题


  共有17712人关注过本帖树形打印复制链接

主题：[求助]窗口中的table绑定到明细表的问题
帅哥哟，离线，有人找我吗？
czy
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/14 15:31:00 [只看该作者]

Dim dst as WinForm.DataList = e.form.Controls("DataList1")
If e.KeyCode = Keys.Up Then
    dst.Position = dst.Position - 1
End If
If e.KeyCode = Keys.Down Then
    dst.Position = dst.Position + 1
End If
If e.KeyCode = Keys.Enter Then
Dim dr as row = Tables("医嘱").Current
Dim drr as Datarow = dst.Current
dr("项目") = drr("项目")
dr("规格") = drr("规格")
dr("类别") = drr("类别")
dr("单位") = drr("单位")
dr("单价") = drr("单价")
Tables("医嘱").select(Tables("医嘱").Rows.Count - 1, 5)
e.form.Close()
CurrentTable.Focus
End If

 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟foxtable
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级：七尾狐 帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00 		  发帖心情 Post By：2009/10/14 18:42:00 [只看该作者]

哦？还要加一行代码啊！以前版本不需要的呀。。。

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/14 19:01:00 [只看该作者]

想想是不是以前用的是模式窗口？

 回到顶部
帅哥哟，离线，有人找我吗？
菜鸟foxtable
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级：七尾狐 帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00 		  发帖心情 Post By：2009/10/14 20:00:00 [只看该作者]

那个项目放在硬盘里一直没动过。现在用新版打开就这样了。

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2009/10/14 20:05:00 [只看该作者]

想想也是，关闭窗口后失去焦点有点不对劲。

 回到顶部
帅哥哟，离线，有人找我吗？
huaneng
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：72 积分：537 威望：0 精华：0 注册：2009/8/15 20:26:00 		  发帖心情 Post By：2009/11/12 21:22:00 [只看该作者]

当筛选出只有几行的时候,能不能双击就输入,而不是按回车?
 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询