- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 符合条件的行转列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80941)
-- 发布时间：2016/2/13 16:45:00
-- 符合条件的行转列
请教老师们,我用SELECT 查找几行符合条件的行,要把他们行转列,要如何转,用什么时候方法?谢谢老师~~
此主题相关图片如下：qq图片20160213164133.png
-- 发布时间：2016/2/13 16:55:00
--
参考：http://www.foxtable.com/help/topics/2965.htm
-- 发布时间：2016/2/14 15:53:00
--
谢谢H老师，
drs1 = DataTables("表A").select("[编号]" = \'" & tables("主表").current("编号") & "\' And [序号] = \'X值\' ")
drs2 = DataTables("表A").select("[编号]" = \'" & tables("主表").current("编号") & "\' And [序号] = \'R值\' ")
Dim kms() As String = {"列一","列二","列三"}
For Each dr As DataRow In drs1
For Each km As String In kms
Dim dr11 As DataRow = DataTables("表B").AddNew()
dr11("第四列") = dr(km)
Next
Next
此主题相关图片如下：qq图片20160214155134.png
这样我只能出来一列的值，如果让查找的DRS2集合里的值也进来呢？
-- 发布时间：2016/2/14 16:21:00
--
For i As Integer=0 To drs1.count -1
For Each km As String In kms
Dim dr11 As DataRow = DataTables("表B").AddNew()
dr11("第四列") = drs1(i)(km)
dr11("第五列") = drs2(i)(km)
Next
Next