| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]根据某一条件自动生成数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83460) |
| -- 作者：benwong2013 -- 发布时间：2016/4/9 15:59:00 -- [求助]根据某一条件自动生成数据 Dim drs As List(Of DataRow) drs = DataTables("表A").Select("[报告编号] = " & Tables("表B").current("报告编号") & "\'") For Each dr As DataRow In drs dr("开单状态") = True Next 请帮忙看看上面代码哪里有问题，我希望在窗体中按下按钮时，表A将报告编号等于当前在表B选中当前列报告编号所对应的 开单状态自动修改为Ture，请问这个代码应该如何修改？
|
| -- 作者：Hyphen -- 发布时间：2016/4/9 17:01:00 -- 少了一个引号 drs = DataTables("表A").Select("[报告编号] = ‘’" & Tables("表B").current("报告编号") & "\'") 这样更快： If Tables("表B").current IsNot Nothing Then DataTables("表A").ReplaceFor("开单状态",True,"[报告编号] = \'" & Tables("表B").current("报告编号") & "\'") End If
|