| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 错在哪里？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150344) |
| -- 作者：ygg8310 -- 发布时间：2020/5/27 15:48:00 -- 错在哪里？ For Each r As Row In Tables("表A") Dim dr2 As DataRow = DataTables("表B").Find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\'") If dr2 Is Nothing Then dr2 = DataTables("表B").AddNew() End If Next
|
| -- 作者：有点蓝 -- 发布时间：2020/5/27 16:29:00 -- 语法上没有问题，至于逻辑上，不知道要做什么，无法判断。执行后有什么问题？ |
| -- 作者：ygg8310 -- 发布时间：2020/5/27 18:30:00 -- 表B会增加相应的行，但数据却是空的，没数据 |
| -- 作者：chen37280600 -- 发布时间：2020/5/27 19:16:00 -- 你添加的是新行，空白是正常的，有数据才见鬼了 |
| -- 作者：ygg8310 -- 发布时间：2020/5/27 19:36:00 -- 那么问题来了，如何才能让它有数据呢？ |
| -- 作者：ygg8310 -- 发布时间：2020/5/27 20:04:00 -- 哪路大神来教教我呀 |
| -- 作者：新福星 -- 发布时间：2020/5/27 20:13:00 -- dim dr1 as datarow
For Each r As Row In Tables("表A")
Dim dr2 As DataRow = DataTables("表B").Find("第一列 = \'" & r("第一列") & "\' And 第二列 = \'" & r("第二列") & "\'")
If dr2 Is Nothing Then
dr1= DataTables("表B").AddNew()
在这里给列赋值
dr1("第一列")=XXX
......
End If
Next
|