Me.TableAdapter1.Update(Me.DataSet1.表名)‘更新
Dim drows1 As DataRow() = outDataTable.Select(code + "=CQZD")
‘查询
outDataTable.Columns.Add("章别", System.Type.GetType("System.Text"))
’增加列字段
Public Sub AddItemRow(ByVal code As String, ByVal PrjName As String, ByVal unit As String, ByVal num As Single, ByVal zhibiao As Single, Optional ByVal section As String = "", Optional ByVal chart As String = "")
AddItemRow("", "第一部分", "公里", "", "")
‘增加行