| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]Find之后写入不了值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129498) |
| -- 作者：81538475 -- 发布时间：2018/12/29 17:26:00 -- [求助]Find之后写入不了值 For Each r As DataRow In DataTables("年假剩余").DataRows Dim fr As DataRow = DataTables("人员信息表").SQLFind("姓名 = \'"& r("姓名") &"\'") If fr IsNot Nothing Then fr("年假剩余") = r("年假剩余") End If Next 这个问题处在哪里呢，为什么执行之后，fr（“年假剩余”）还是空的。
|
| -- 作者：有点蓝 -- 发布时间：2018/12/29 18:09:00 -- For Each r As DataRow In DataTables("年假剩余").DataRows Dim fr As DataRow = DataTables("人员信息表").SQLFind("姓名 = \'"& r("姓名") &"\'") If fr IsNot Nothing Then fr("年假剩余") = r("年假剩余") fr.save End If Next |