保存按钮里为什么不能保存呀？保存的是空白 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "保存"
    Dim cr As Row = Tables("事件联络总表").Current
    Dim ccr As Row = Tables("事件联络总表.事件保存").Current
    If cr IsNot Nothing AndAlso ccr IsNot Nothing Then
        Dim nr As Row = Tables("事件联络_事件回复").AddNew
        nr("发起日期") = cr("发起日期")
        nr("发起人姓名") = cr("发起人姓名")
        nr("事件标题") = cr("事件标题")
        nr("事件描述") = cr("事件描述")
        nr("项目名称") = cr("项目名称")
        nr("涉及人员") = cr("涉及人员")
        nr("项目代号") = cr("项目代号")
        nr("文件") = cr("附件")
        nr("方案") = ccr("方案")
        nr("回复日期") = ccr("回复日期")
        nr("回复人员") = ccr("回复人员")

DataTables("事件保存").load
DataTables("事件联络_事件回复").addnew

end if

[此贴子已经被作者于2018/3/26 14:26:42编辑过]

你到现在都没有理解代码的意思。

你为什么要用窗口表？直接引用主表【事件保存】或者【事件联络总表.事件保存】不就可以了？你的窗口表【事件联络_事件回复】是多余的。

窗口里面不用加入任何table表格。

窗口控件分别绑定事件联络总表和事件联络总表.事件保存表的表列，然后新增行，填入数据，即可。

你连最基础的逻辑都没搞懂，根本就不需要写代码。

nuoyan88	小大 12楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/3/26 16:47:00 [只看该作者] 用户已被锁定

nuoyan88	小大 14楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2018/3/26 17:35:00 [只看该作者] 用户已被锁定

主题：保存按钮里为什么不能保存呀？保存的是空白