Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口录入与查询


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

主题：窗口录入与查询
美女呀，离线，留言给我吧！
云开月明
 小大  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 10:25:00 [只看该作者]

老师，
       附件一：存货档案

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
       附件二：采购订单录入窗口
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

现在需在采购订单录入窗口_Table1中录入存货编码，能自动填入存货名称、规格型号、主计量等，请问如何操作？

（是否参考自定义录入界面之三进行）
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 10:30:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 11:55:00 [只看该作者]

老师，
      如何在采购订单录入窗口_Table1的存货编号列设置列表项目一样供选择存货编号，选择好后能自动填入存货名称、规格型号。盼复，为谢！
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 14:03:00 [只看该作者]


 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 14:14:00 [只看该作者]

老师，
采购订单录入窗口中的保存按钮设置为
Dim t As Table = e.Form.Controls("Table1").Table
t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text)
t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text)
t.DataTable.ReplaceFor("日期",CDate(e.Form.Controls("日期").Text))
t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text)
t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text)
t.DataTable.DeleteFor("存货编号 is null") 
t.DataTable.Save()
e.Form.close

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
可是第二用采购订单录入窗口录入数据并保存后，窗口中控件值把上次的
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
值也全部替换掉了。（图二数据替换了图一的数据）
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 14:47:00 [只看该作者]

上传例子看看

 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 15:12:00 [只看该作者]

老师，
图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看
       图二的数据替换了图一的数据，用采购订单录入窗口中其中控件录入的数据第二次录入，会替换掉第一次录入的数据。（如供应商，采购类型等）
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  68楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 15:17:00 [只看该作者]

老师，
      用了动态项目列表设置不出来，主要是在采购订单录入窗口_Table1存货编号，设置为来源于存货档案表的存货编码为列表项目。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  69楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/11 15:33:00 [只看该作者]

上传Foxtable项目实例

 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  70楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/11 15:33:00 [只看该作者]

老师，
     保存按钮代码设置如下：
Dim t As Table = e.Form.Controls("Table1").Table
t.DataTable.ReplaceFor("业务类型",e.Form.Controls("业务类型").Text)
t.DataTable.ReplaceFor("订单编号",e.Form.Controls("订单编号").Text)
t.DataTable.ReplaceFor("日期",CDate(e.Form.Controls("日期").Text))
t.DataTable.ReplaceFor("采购类型",e.Form.Controls("采购类型").Text)
t.DataTable.ReplaceFor("供应商",e.Form.Controls("供应商").Text)
t.DataTable.DeleteFor("存货编号 is null") 
t.DataTable.Save()
e.Form.close

图片点击可在新窗口打开查看此主题相关图片如下：5.png
图片点击可在新窗口打开查看

出现如图的错误提示。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询