如144楼截图，rq控件的Validating事件，原来的代码是这样的：
Dim ydh As String = Forms("收款凭证").Controls("dh").text
Dim ydh1 As String = Forms("收款凭证").Controls("dh1").text
If ydh > "" And ydh1 > "" Then
Dim y As Integer = cint(ydh1.substring(3,4))
Dim m As Integer = cint(ydh1.substring(7,2))
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '获得该月的第一天
Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
If e.sender.value < fd OrElse e.sender.value > ld Then
e.cancel = True '如果是,取消操作
MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
End If
End If
只要ydh和ydh1不为空就执行判断，我的要求是有时选错了日期，在还没保存前，允许ydh和ydh1变，只有财务数据源表中已经保存了ydh和ydh1的数据，这两个控件的数才不允许变化，我把代码改为下面这样，结果不管财务数据源表有没有数据这两个控件的数据都没变！头痛！
Dim ydh As String = Forms("收款凭证").Controls("dh").text
Dim ydh1 As String = Forms("收款凭证").Controls("dh1").text
If ydh > "" And ydh1 > "" Then
Dim s As String = e.Form.Controls("TextBox2").text
If s.length > 2 Then
s = s.SubString(0,2)
Dim y As Integer = cint(ydh1.substring(3,4))
Dim m As Integer = cint(ydh1.substring(7,2))
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) '获得该月的第一天
Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
Dim cmd As New SQLCommand
cmd.CommandText = "Select count(*) Fr om {财务数据源} Where [字号] = '" & s & "' And [日期] >= #" & fd & "# And [日期] <= #" & ld & "# And [安日期生成单号辅助列] = '" & ydh1 & "'"
If cmd.ExecuteScalar > 0 And e.sender.value < fd OrElse e.sender.value > ld Then
e.cancel = True '如果是,取消操作
MessageBox.Show("修改的日期不能超出已保存单号所属月份","提示")
End If
End If
End If
加好友 
发短信
Post By：2021/6/15 12:06:00 [只看该作者]
此主题相关图片如下：0615.png
