下面的find 出错，不知道错在哪里 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下面的find 出错，不知道错在哪里

共有2148人关注过本帖树形打印复制链接主题：下面的find 出错，不知道错在哪里

jswjyjf

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2552 积分：20057 威望：0 精华：0 注册：2012/5/19 11:57:00

下面的find 出错，不知道错在哪里 发帖心情

Post By：2015/6/25 21:02:00 [只看该作者]

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/6/25 21:06:00 [只看该作者]

dr = DataTables("往来单位").Find("[名称]='" & jhmxdr("加工商名称") & "' and 分类 ='加工商'" )

主题：下面的find 出错， 不知道错在哪里