Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:新手求教

1楼
liqun 发表于:2008/11/29 16:43:00
看了几天帮助还是晕乎乎的,下面一个很菜的问题如何解决,请大虾们赐教,谢谢!

Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("","第一列") '假设此时的集合为A,B,C
'现在想将A,B,C写入到表B第一到第三行中
For Each dr As Datarow In drs
    '这里的代码怎么写
Next
2楼
gdtgl 发表于:2008/11/29 18:05:00
With Tables("表A")
For n As integer = 0 To .Rows.Count - 1      
    Tables("表B").Rows(0)(n) = .rows(n)("第一列")
next
end with
3楼
liqun 发表于:2008/11/29 18:23:00
谢谢!
不过你的解答和我的要求有很大的差距。
4楼
gdtgl 发表于:2008/11/29 18:28:00

呵,看错了,是看成写到第1到第3列了。

5楼
gdtgl 发表于:2008/11/29 18:31:00
With Tables("表A")
For n As integer = 0 To .Rows.Count - 1      
    Tables("表B").Rows(n)(0) = .rows(n)("第一列")
next
end with 
6楼
liqun 发表于:2008/11/29 18:46:00
谢谢你的热心帮助!
可能我说的不是很清楚,其实我并不是想将表A第一列中所有数据都写入到表B第一列中,一楼代码Select还有条件,所以说我只想将符合条件的数据写入到表B表第一列中。

下面的图能说明问题,Output返回值就是要写入表B的数据。


图片点击可在新窗口打开查看此主题相关图片如下:请教.bmp
图片点击可在新窗口打开查看
7楼
gdtgl 发表于:2008/11/29 19:05:00
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("[第二列] ='d'","第一列")
For Each dr As Datarow In drs
For n As integer = 0 To drs.Count - 1      
    Tables("表B").Rows(n)(0) = Tables("表A").rows(n)("第一列")
next
Next
8楼
gdtgl 发表于:2008/11/29 19:20:00
上面的应写错(还要修改) 或用数组:


Dim Names As New List(Of String)
Dim suzhu() As String '定义数组
Dim bfrows As List(Of Datarow)
bfrows = DataTables("表A").Select("[第二列] ='a'","第一列")
for each bfrow as datarow in bfrows
  Names.Add(bfrow("第一列"))
next
suzhu = Names.ToArray()
For n As integer = 0 To suzhu.Length - 1      
    Tables("表B").Rows(n)(0) = suzhu(n)
next
9楼
gdtgl 发表于:2008/11/29 19:24:00
或者参考下这个,虽是报表,但转为表也1样的。

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=1233&page=2
10楼
liqun 发表于:2008/11/29 19:26:00
谢谢!楼上的可以了。

这么麻烦啊,看来我是学不会了。
共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03711 s, 2 queries.