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

没有报错，就是执行 代码的时候  循环了2次  第3个MESSAGEBOX才显示的是“该月已扣款。。。”

你都不符合已扣款的条件没有进入到那个IF代码块 自然就没弹出啊.

关键是   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

这个执行了两次……

能不能把第一个for  each 换成    Dim rx As DataRow =

这种形式的吗？如果可以，=后面怎么写啊？

有没有是哪个return造成的呢？

你有2行不符合不就2次吗? 不明白你什么问题.要不你上个例子吧.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目100.zip

代码根本没有执行那段IF   进行检查筛选，我希望做到的就是凡是相应卡号的卡，在指定年份月份进行过“月扣”的，都不能够再扣款。

而且  代码执行2次“扣款成功”，第3次才“该月已经扣款”

例子已经上传，麻烦您了

你代码循环表B又循环表A 实在看不懂你意思.

只是那个循环判断的话你可以这么做