Foxtable(狐表)用户栏目专家坐堂 → 怎么增加和修改处方明细


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

主题:怎么增加和修改处方明细

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 15:09:00 [显示全部帖子]

以下是引用liming730323在2014-12-25 15:06:00的发言:

哪步造成锁定的,也没有锁定表的代码啊?

 

Table控件,属性,允许编辑,true


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 15:30:00 [显示全部帖子]

 具体你想说什么?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 15:43:00 [显示全部帖子]

    
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 15:55:00 [显示全部帖子]

 可以啊,加入筛选条件就过滤了啊。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 15:58:00 [显示全部帖子]

以下是引用liming730323在2014-12-25 15:56:00的发言:

绑定的table控件在哪里写过滤语句?

 

在AfterLoad那里,设置Filter

 

Tables("窗口表").Filter = "xxxx"


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 16:58:00 [显示全部帖子]

 你想做什么?这个意思?

 

If Tables("药品基本信息.处方明细").Rows.Count = 0 Then

    Tables("药品基本信息.处方明细").AddNew

End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 19:47:00 [显示全部帖子]

 绑定以后,代码写到表属性的DoubleClick事件即可。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 20:29:00 [显示全部帖子]

 

[此贴子已经被作者于2014-12-25 20:29:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/12/25 20:30:00 [显示全部帖子]

If forms("处方明细").opened
    Tables("处方明细").Filter="处方编号='" & forms("处方明细").Controls("table1").Table.Current("处方编号") & "'"
End If

 回到顶部