| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 为什么这段代码无法将qgList表中的已勾选数据行复制到Tables("窗口1_Table1") (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60498) |
| -- 作者：affixed -- 发布时间：2014/11/25 21:37:00 -- 为什么这段代码无法将qgList表中的已勾选数据行复制到Tables("窗口1_Table1") Dim Cols1() As String = {"qgDjh","qgJhh","qgItemID","qgItemName","qgItemNameJap","qgItemSPEC","qgsl","qgdhTime"} Dim Cols2() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列"} For Each dr1 As DataRow In DataTables("qgList").Select("qgYpz = true") Dim dr2 As Row = Tables("窗口1_Table1").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next |
| -- 作者：有点甜 -- 发布时间：2014/11/25 21:39:00 -- 呃，你这段代码触发并运行了吗？ [此贴子已经被作者于2014-11-25 21:39:24编辑过]
|
| -- 作者：affixed -- 发布时间：2014/11/25 21:46:00 -- 甜老师，我没理解你的意思。 代码运行了，但没任何效果。
|
| -- 作者：有点甜 -- 发布时间：2014/11/25 21:48:00 -- 不可能，这一列qgYpz是逻辑列吗？ |
| -- 作者：affixed -- 发布时间：2014/11/25 21:50:00 -- qgYpz这列是逻辑列 |
| -- 作者：有点甜 -- 发布时间：2014/11/25 21:55:00 -- 你的Tables("窗口1_Table1")表设置了筛选了么导致新增了但不显示？
你上传一个具体例子 |
| -- 作者：affixed -- 发布时间：2014/11/25 22:14:00 -- 甜老师，已上传。请指教。 |
| -- 作者：有点甜 -- 发布时间：2014/11/25 22:14:00 -- http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
|
| -- 作者：affixed -- 发布时间：2014/11/25 22:15:00 -- yichanchu [此贴子已经被作者于2014-11-25 22:29:45编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/11/25 22:18:00 -- 做成内部数据源，或者把你的数据库发上来 |