asdasd1fdsyrt的博客

'导入数据方法 Private Function ImportData() As Boolean Try Dim dsImport As New DataSet 'EXCEL模板格式校验 If Not ImportByExcel(dsImport) Then Return False End If Me.Cursor = System

For i As Integer = 0 To Me.UGrid_SEND.Rows.Count - 1If Me.UGrid_SEND.Rows(i).Cells("CSFLAG").Value = True Then sId = "," + sId + "," + Me.UGrid_SEND.Rows(i).Cells("ID").Value.ToString() CsCount = CsCount + 1 If Not String.IsNullOrEmpty(header) An