主题：[求助]求助关于日期判断的问题

大哥，要不我这么跟您说吧。

'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
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
End If
Messagebox.show("扣款成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'Next

假设没有红色那两段代码，我怎么声明  rx ？除了用for  each 。 

终于弄出来了，判断上有问题。改为：

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了