weixin_40187983 2019-05-04 18:15 采纳率: 100%
浏览 475
已采纳

vb.net DataTable内有空栏,如何去除-线上等

如题,
我要如何把空栏去除呢?

图片说明

图片说明

图片说明

感谢

Public Function ExcelToDataTable_Copy(ByVal FilaName As String, ByVal SheetName As String) As DataTable '数据查询
Try
'将数值字串统一的
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlBook = xlApp.Workbooks.Open(FilaName)
xlSheet = xlBook.Worksheets(1)
xlApp.Visible = False
xlApp.Application.Visible = False
Dim data_count As Integer
data_count = xlSheet.UsedRange.Columns.Count
For i = 1 To data_count
xlSheet.Cells(2, i).value = "'" & xlSheet.Cells(2, i).value
xlSheet.Cells(3, i).value = "'" & xlSheet.Cells(3, i).value
xlSheet.Cells(4, i).value = "'" & xlSheet.Cells(4, i).value
xlSheet.Cells(5, i).value = "'" & xlSheet.Cells(5, i).value
xlSheet.Cells(6, i).value = "'" & xlSheet.Cells(6, i).value
xlSheet.Cells(7, i).value = "'" & xlSheet.Cells(7, i).value
xlSheet.Cells(8, i).value = "'" & xlSheet.Cells(8, i).value
xlSheet.Cells(9, i).value = "'" & xlSheet.Cells(9, i).value
Next
xlBook.Save()
xlBook.Close()
xlApp.Quit()
xlApp = Nothing
xlBook = Nothing
xlSheet = Nothing
Dim dt As DataTable
dt = New DataTable
Dim sExcelFile As String
sExcelFile = FilaName
Dim sConnectionString As String = ""
If FilaName.IndexOf(".xlsx") <> -1 Then
Select Case Get_excel_VN()
Case "16.0", "14.0", "12.0"
sConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 12.0;HDR=true;IMEX=1;'"
End Select
ElseIf FilaName.IndexOf(".xls") <> -1 Then
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
Else
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sExcelFile & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;'"
End If
Dim connection As OleDb.OleDbConnection
connection = New OleDb.OleDbConnection(sConnectionString)
connection.Open()
dt = connection.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Dim sql_select_commands As String
sql_select_commands = "Select * from [" & SheetName & "$]"
Dim adp As OleDb.OleDbDataAdapter
adp = New OleDb.OleDbDataAdapter(sql_select_commands, connection)
Dim ds As Data.DataSet
ds = New Data.DataSet()
adp.Fill(ds, SheetName)
dt = ds.Tables(0)
If (connection.State = ConnectionState.Open) Then
connection.Close()
End If

        '除去空行

        'https://ask.csdn.net/questions/759795

        Return dt
    Catch ex As Exception
        MsgBox(ex.Message.ToString())
    End Try
    Return Nothing
End Function
  • 写回答

1条回答 默认 最新

  • threenewbee 2019-05-04 19:26
    关注

    你说的是空行?你的数据源怎么读取的,加上判断

    比如
    select * from table where 公示与授权 <> ""

    dt = ds.Tables(0)
    前面加上
    for each dr as DataRow in ds.Tables(0).Rows.OfType(Of DataRow)()
    if dr[0].ToString() = "" then
    ds.Tables(0).Rows.Remove(dr)
    end if
    next

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

报告相同问题?

悬赏问题

  • ¥15 有卷积神经网络识别害虫的项目吗
  • ¥15 数据库数据成问号了,前台查询正常,数据库查询是?号
  • ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
  • ¥15 彩灯控制电路,会的加我QQ1482956179
  • ¥200 相机拍直接转存到电脑上 立拍立穿无线局域网传
  • ¥15 (关键词-电路设计)
  • ¥15 如何解决MIPS计算是否溢出
  • ¥15 vue中我代理了iframe,iframe却走的是路由,没有显示该显示的网站,这个该如何处理
  • ¥15 操作系统相关算法中while();的含义
  • ¥15 CNVcaller安装后无法找到文件