Foxtable(狐表)用户栏目专家坐堂 → 添加单据


  共有2546人关注过本帖平板打印复制链接

主题:添加单据

美女呀,离线,留言给我吧!
采菊东篱下
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10368 威望:0 精华:0 注册:2019/4/6 8:45:00
添加单据  发帖心情 Post By:2021/6/9 0:40:00 [只看该作者]

我在窗口的菜单按钮里做一个增加单据按钮,这样写窗口中的表为空表了,可表头上的控件不为空,依然是原来的数据,就算这样写,也是把已保存的控件数值改为空,自动生成的凭证号变成1,这样不符合添加单据要求,我想在不关闭窗口基础上在单据窗口菜单中添加新单,不是不断串改已保存单据控件数据。

图片点击可在新窗口打开查看此主题相关图片如下:0609.png
图片点击可在新窗口打开查看
图中没有设窗口表头控件上的变量为空,新添的单据把财务数据源表里的转账数据全自动改为控件上的最新数据,全乱了!我看过帮助及视频教程中的单据录入,它介绍通过关联表录入数据保存到表上,但关联表不用保存已直接录入后台数据,这与实现需要保存、审核流程不符,因此单据录入还是要通过窗口的动态表录入后保存到表上。
Select Case e.StripItem.Name
    Case "新增凭证" '保存代
        e.Form.Controls("ComboBox3").Value = Nothing
        e.Form.Controls("dh").Value = Nothing
        e.Form.Controls("dh1").Value = Nothing
        e.Form.Controls("rq").Value = Nothing
        e.Form.Controls("TextBox1").Value = Nothing
        e.Form.Controls("TextBox2").Value = Nothing
        Tables("收款凭证_Table1").AddNew
        Tables("收款凭证_Table1").Filter = "[凭证号] Is Null"
        For i As Integer = Tables("收款凭证_Table1").Rows.count - 1 To 0 Step -1
            Tables("收款凭证_Table1").Rows(i).Delete
        Next
        Tables("收款凭证_Table1").AddNew(10)
End Select
[此贴子已经被作者于2021/6/9 13:36:01编辑过]

 回到顶部