摘要：vb：xSheet.Range("A3").Resize(1, 3).Insert(Shift:=Excel.XlDirection.xlDown)xSheet.Range("A3").Resize(1, 3).Delete()xSheet.Range("A2").Resize(ds.Tables(i).Rows.Count + 1, 3).Value = datac#：((Excel.Range)xSheet.Cells[4, 4]).EntireRow.Insert(null, null); //添加行((Excel.Range) 阅读全文

摘要：Private Sub btnExprot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExprot.Click If Not T Is Nothing Then If T.ThreadState = ThreadState.Running Then Exit Sub End If T = New Thread(AddressOf Export) T.Start() End Sub Private... 阅读全文

摘要：Private Sub ExportCostSheetData() InsertRow("") InsertRow("Run 2:Export CostingSheet=========================") InsertRow("Status:System Connectting DataBase!") If ConnJWeb() = False Or ConnJWeb2() = False Then InsertRow("Status:System Connectting DataBase fial... 阅读全文