终于弄出来了,判断上有问题。改为:
Dim je As WinForm.TextBox = e.Form.Controls("TextBox3")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim d As Date = rq.Value
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim flag As Integer=0
For Each rx As DataRow In DataTables("规费记录").DataRows
If rx("扣款日期") >= dt1 And rx("扣款日期")<= dt2 And rx("状态")="月扣" Then
Messagebox.show("该月已经扣款!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
flag=flag+1
End If
Next
If flag>0 Then
For Each r As DataRow In DataTables("car").DataRows
Dim dr As DataRow = DataTables("规费记录").addnew
dr("卡号")=r("卡号")
dr("车牌号")=r("车牌号")
dr("车主")=r("车主")
dr("扣款日期")=rq.Value
dr("扣款金额")=je.Text
dr("状态")="月扣"
Next
Messagebox.show("扣款成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
就行了。就定义了一个 flag 变量来做为判断条件。就哦啦。 谢谢Bin了 ![dvubb 图片点击可在新窗口打开查看](images/emot/em63.gif)