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

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

'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 。