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)
加好友 
发短信
Post By：2018/5/27 22:43:00 [显示全部帖子]
