以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 遍历指定列名数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=119569) |
-- 作者:ZJZK2018 -- 发布时间:2018/5/27 21:49:00 -- 遍历指定列名数据 老师你好: 我的需求是:遍历指定列名数据,并按指定顺序进行排列,下面这代码出现了N个,如何处理?谢谢! Dim dtb As DataTable = DataTables("试块取样") Dim dr As Row = Tables("试块取样").Current Dim nms() As String = {"品种种类","施工方量","供应商名称","设计强度","坍落度","试块留制_标准养护","试块留制_同条件养护","试块留制_拆模试块","取样人","见证人"} Dim str As String For Each dc As DataCol In dtb.DataCols For i As Integer = 0 To nms.Length - 1 For Each nm As String In nms If dc.Name = nm AndAlso dr.IsNull(nm) = False Then str = str & dc.Name & ":" & dr(nms(i)) & "," End If Next Next Next MessageBox.Show(str) |
-- 作者:有点甜 -- 发布时间:2018/5/27 22:43:00 -- Dim dtb As DataTable = DataTables("试块取样") Dim dr As Row = Tables("试块取样").Current Dim nms() As String = {"品种种类","施工方量","供应商名称","设计强度","坍落度","试块留制_标准养护","试块留制_同条件养护","试块留制_拆模试块","取样人","见证人"} Dim str As String For Each nm As String In nms If dr.IsNull(nm) = False Then str = str & nm & ":" & dr(nm) & "," End If Next MessageBox.Show(str) |