Try
            Dim conn As New System.Data.SQLite.SQLiteConnection(SqliteStr)
            Dim cmd As New SQLiteCommand("SELECT * FROM Jinkou", conn)
            conn.Open()
            Dim ds As New DataSet()
            Dim da As New SQLiteDataAdapter(cmd)
            da.Fill(ds)     ‘在些处报错,报formatException
            conn.Close()
            dg.DataSource = ds
            Dim counts As New Integer
            counts = dt.Rows.Count()
            lbl合计.Text = "共:【" + counts.ToString() + "】条数据"
        Catch ex As SqlException
            MsgBox(ex.Message)
        Catch ex As Exception
            MsgBox(ex.Message)   ’异常抛到这里
        End Try求各位大神给出解决方案

解决方案 »

  1.   

    da.Fill(ds)这里直接填充表da.Fill(dt),主要还是看你取出来的Adapter有没有问题 话说Dim counts As New Integer这样也行
      

  2.   

    部分代码 Dim mSQL As String = "Select * from " & mTableName
                mDataAdapter.SelectCommand = New SQLiteCommand(mSQL, SQLiteConn)            mTable = New DataTable
                DataGrid1.DataBindings.Clear()
                DataGrid1.DataSource = Nothing
                DataGrid1.Refresh()            mDataAdapter.Fill(mTable)
                DataGrid1.DataSource = mTable