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("", "第一部分", "公里", "", "") ‘增加行