以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何实现表中数据读取。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=27173)

--  作者:guoqi1129
--  发布时间:2012/12/24 11:10:00
--  [求助]如何实现表中数据读取。

dr1 = DataTables("达标").Find("序号" = 1)

现在表中有20列,我需要取得dr1行中第5列到第10列值到数列a()中,请问如何实现?均为double型


--  作者:狐狸爸爸
--  发布时间:2012/12/24 11:18:00
--  

Dim dt As DataTable = DataTables("表名")

Dim dr as DataRow

Dim a(5) As Double
dr = dt.Find("条件表达式")

For i as integer = 4  to 9

      a(i - 4) = dr(dt.DataCols(i).Name)

Next


--  作者:guoqi1129
--  发布时间:2012/12/24 11:19:00
--  
谢谢
--  作者:guoqi1129
--  发布时间:2012/12/24 11:29:00
--  
您好,大神,经使用,foxtable 提示表“达标”不存在名为4的列。这个如何弄?
--  作者:guoqi1129
--  发布时间:2012/12/24 11:40:00
--  
以下是引用狐狸爸爸在2012-12-24 11:18:00的发言:

Dim dt As DataTable = DataTables("表名")

Dim dr as DataRow

Dim a(5) As Double
dr = dt.Find("条件表达式")

For i as integer = 4  to 9

      a(i - 4) = dr(dt.DataCols(i).Name)

Next

您好,狐爸,经使用,foxtable 提示表“达标”不存在名为4的列。这个是怎么回事啊?


--  作者:lin_hailun
--  发布时间:2012/12/24 11:51:00
--  
 

Dim t As Table = Tables("表名")

Dim dr as DataRow

Dim a(5) As Double
dr = t.Datatable.Find("条件表达式")

For i as integer = 4  to 9

      a(i - 4) = dr(t.Cols(i).Name)

Next