| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 有条件的新增行数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136854) |
| -- 作者：zhangxl1964 -- 发布时间：2019/6/23 8:39:00 -- 有条件的新增行数 有点甜老师：你好！ 在窗口的按钮 Click 事件中：如何设置 新增行时，如当前月份时，审核列已审核时，不能再新增行，在审核列未勾选时可以新增行。
|
| -- 作者：有点甜 -- 发布时间：2019/6/23 11:04:00 -- If Tables("").current("") = true Then msgbox("不能新增") Else msgbox("可以") End If
[此贴子已经被作者于2019/6/23 11:04:28编辑过]
|
| -- 作者：zhangxl1964 -- 发布时间：2019/6/23 14:38:00 -- 有点甜老师： 下面代码哪里有错误；执行时，一直在增加行。 If User.group = "仓库" Or User.Name = "管理员" Or User.Name = "开发者" Then Dim QueryMonth As Date \'自定义日期 QueryMonth =Forms("出库明细").Controls("日期").value Dim FirstDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,1) \'当月度第一天 Dim LastDay As Date = New Date(QueryMonth.Year,QueryMonth.Month,Date.DaysInMonth(QueryMonth.Year,QueryMonth.Month)) \'当月度最后一天 If Forms("出库明细").Controls("日期").Value Is Nothing Or Forms("出库明细").Controls("ComboBox1").Value Is Nothing Then MessageBox.Show("请检查表头信息是否全部输入!", "提示") Return Else Dim drs As List(of DataRow) = DataTables("出库明细").SQLSelect( "[日期] >= \'" & FirstDay & "\' and [日期] <= \'" & LastDay & "\' ") For Each dr1 As DataRow In drs If dr1("结账") = False Then Tables("出库明细_Table1").AddNew(1) Else MessageBox.show("本月已结账,不能再次输入本月数据!") End If Next End If Else MessageBox.show("你无权执行此项操作!") Return End If
|
| -- 作者：有点甜 -- 发布时间：2019/6/23 17:00:00 -- 做一个具体出错的例子发上来测试。 |