有点甜老师：
下面代码哪里有错误；执行时，一直在增加行。
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
加好友 
发短信
Post By：2019/6/23 8:39:00 [只看该作者]
