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


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

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


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/10 10:45: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("供应商",e.Form.Controls("供应商").Text)
t.DataTable.ReplaceFor("部门",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()

但是保存不了，提示双精度无法转化为字符型，代码错哪了

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


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

老师，
       附件一：存货档案

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

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

（是否参考自定义录入界面之三进行）
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  33楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师，
      如何在采购订单录入窗口_Table1的存货编号列设置列表项目一样供选择存货编号，选择好后能自动填入存货名称、规格型号。盼复，为谢！
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看
值也全部替换掉了。（图二数据替换了图一的数据）
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


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

老师，
      用了动态项目列表设置不出来，主要是在采购订单录入窗口_Table1存货编号，设置为来源于存货档案表的存货编码为列表项目。
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  37楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看

出现如图的错误提示。
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/13 9:26:00 [显示全部帖子]

老师，
        图一：采购订单录入窗口
        图二：通过图一录入保存后，刷新至采购订单列表
        图三：第二次通过采购订单录入窗口录入保存后，刷新的采购订单列表，画红框的完全替换了第一次录入的内容

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

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

图片点击可在新窗口打开查看此主题相关图片如下：图三.png
图片点击可在新窗口打开查看
        如何控制第二次录入不影响之前录入的内容，谢谢！
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/13 9:33:00 [显示全部帖子]

老师，
        图一：采购订单录入窗口，希望在存货编号一栏实现模糊查找选择录入存货编号后，存货名称与规格型号相对应的填入。
       
        如果用跨表引用数据，无法实行模糊查找功能？

图片点击可在新窗口打开查看此主题相关图片如下：图一.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
云开月明
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00 		  发帖心情 Post By：2017/3/13 11:16:00 [显示全部帖子]

老师，
        图一：采购订单录入窗口，希望在存货编号一栏实现模糊查找选择录入存货编号后，存货名称与规格型号相对应的填入。
       
       使用跨表引用数据，要实现模糊查找功能，如何修改代码？

     TABEL 控件代码如下：
 PrepareEdit事件
If e.IsFocusCell Then 
    If e.Col.Name = "存货编号" 
        e.Col.Combolist = DataTables("存货档案").GetComboListString("存货编码", "[存货编码] = '" & e.Row("存货编号") & "'") 
    End If
End If

Datacolchanged事件
If e.DataCol.Name = "存货编号" Then 
    Dim dr As DataRow 
    dr = DataTables("存货档案").Find("存货编码 = '" & e.DataRow("存货编号") & "'" )
    If dr IsNot Nothing 
        e.DataRow("存货名称")= dr("存货名称")
        e.DataRow("规格型号")= dr("规格型号")
           End If
End If
此主题相关图片如下：图一.png
按此在新窗口浏览图片
 回到顶部
总数 129 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..13
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询