以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  下面的find 出错， 不知道错在哪里  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70656)

--  作者：jswjyjf --  发布时间：2015/6/25 21:02:00 --  下面的find 出错， 不知道错在哪里 For Each jhmxdr As DataRow In DataTables("加工入库单").Select("单据状态=\'已审核\'")     \'messagebox.show( jhmxdr("加工商名称") )     Dim dr As DataRow     dr = DataTables("往来单位").Find("[名称]=\'" & jhmxdr("加工商名称") & "\'"  And  "分类 =\'加工商\'" )     If dr IsNot Nothing Then         \'messagebox.show( jhmxdr("加工商名称") &  jhmxdr("金额") )         dr("贷方金额")=dr("贷方金额")+jhmxdr("金额")         dr("余额")=dr("期初金额")+dr("借方金额")-dr("贷方金额")     End If Next

--  作者：大红袍 --  发布时间：2015/6/25 21:06:00 --   dr = DataTables("往来单位").Find("[名称]=\'" & jhmxdr("加工商名称") & "\' and 分类 =\'加工商\'" )