Foxtable(狐表)用户栏目专家坐堂 → 销与存


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

主题:销与存

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


加好友 发短信
等级:婴狐 帖子:12 积分:152 威望:0 精华:0 注册:2016/4/19 21:33:00
销与存  发帖心情 Post By:2016/4/19 21:51:00 [只看该作者]

有销售与库存两表,有相同列“串号”。销售的串号从库存串号中动态获取(已销售串号自动从库存串号中删除记录),请教如何实现,请给出代码,謝謝!

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/19 21:57:00 [只看该作者]

销售表DataColChanged事件

 

If e.DataCol.Name = "串号" Then
    DataTables("库存表").replacefor("已用", True, "串口 = '" & e.newValue & "'")
    DataTables("库存表").replacefor("已用", False, "串口 = '" & e.oldValue & "'")
End If

 

具体问题,上传foxtable实例。


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


加好友 发短信
等级:婴狐 帖子:12 积分:152 威望:0 精华:0 注册:2016/4/19 21:33:00
  发帖心情 Post By:2016/4/19 23:18:00 [只看该作者]

我希望实现的是:当销售表中已销售出去的ISDN000001,在库存表中相对应的记录作删除!然后下次销售时列表项目中不再出现这个ISDN000001这个产品。但是getcomboliststring的条件不知道如何写代码。谢谢进一步指点。

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


加好友 发短信
等级:婴狐 帖子:12 积分:152 威望:0 精华:0 注册:2016/4/19 21:33:00
附件上传不了  发帖心情 Post By:2016/4/19 23:36:00 [只看该作者]

Tables("销售").cols("串号").combolist=DataTables("库存").GetComboListString("串号",“这个不含已销售串号条件该如何写代码?“)。请指教。
[此贴子已经被作者于2016/4/19 23:44:37编辑过]

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


加好友 发短信
等级:婴狐 帖子:12 积分:152 威望:0 精华:0 注册:2016/4/19 21:33:00
  发帖心情 Post By:2016/4/19 23:43:00 [只看该作者]

Tables("销售").cols("串号").combolist=DataTables("库存").GetComboListString("串号",“这个不含已销售串号的条件表达式如何写?”)

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/20 8:22:00 [只看该作者]

删除后保存一下

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/20 9:19:00 [只看该作者]

Tables("销售").cols("串号").combolist=DataTables("库存").GetComboListString("串号", "串号 not in ('" & DataTables("销售").GetComboListString("串号").Replace("|", "','") & "')")

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


加好友 发短信
等级:婴狐 帖子:12 积分:152 威望:0 精华:0 注册:2016/4/19 21:33:00
  发帖心情 Post By:2016/4/20 14:17:00 [只看该作者]

非常感谢!

 回到顶部