窗口录入与查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有21120人关注过本帖树形打印复制链接主题：窗口录入与查询

云开月明

小大 51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/7 17:43:00 [只看该作者]

老师：

我设置了一键审核按钮，代码以下：

If User.IsRole("审核") = True Then

Dim rs As List(of Row) = Tables("产品不良记录").GetCheckedRows()

For Each r As Row In rs

r("审核人") = User.Name

r("审核日期") = Date.Today()

Else

MessageBox.show("你无审核权限!", "提示")

End If

同时也设置取消审核按钮，代码如下：

If User.IsRole("审核") = True

For Each r As Row In Tables("产品不良记录").Rows

If r.Checked = False

Tables("产品不良记录").Current("审核人") = Nothing

Tables("产品不良记录").Current("审核日期") = Nothing

End If

Else

MessageBox.show("你无审核权限!", "提示")

End If

但是取消审核按钮，对未选中的行不能实行一键取消审核，求指点

盼复！为谢！

有点色

小大 52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/7 18:37:00 [只看该作者]

If User.IsRole("审核") = True
    For Each r As Row In Tables("产品不良记录").Rows
        If r.Checked = False
            r("审核人") = Nothing
            r("审核日期") = Nothing
        End If
    Next
Else
    MessageBox.show("你无审核权限!", "提示")
End If

云开月明

小大 53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：173 积分：1021 威望：0 精华：0 注册：2016/10/15 9:35:00

Post By：2017/3/9 14:51:00 [只看该作者]

老师，

你好！

图一：采购订单列表

图二：采购订单录入窗口

录入窗口中TABLE控件是SQLTABLE，其它控件绑定至采购订单列表中各列。

如何实现在窗口Table中录入N条数据，其它控件中相同的内容只录入1次，保存至采购订单列表后，由其它控制件录入的数据，每条记录中都有显示。

此主题相关图片如下：2.png

此主题相关图片如下：1.png

盼复！为谢！

有点色

小大 54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/9 15:09:00 [只看该作者]

保存之前，执行

Dim t As Table = e.Form.Controls("Table1").Table
t.DataTable.ReplaceFor("第一列", e.form.controls("TextBox1").Text)
t.DataTable.ReplaceFor("第二列", e.form.controls("TextBox2").Text)
t.DataTable.ReplaceFor("第三列", e.form.controls("TextBox3").Text)