xtragridview未显示数据 [英] xtragridview is not showing the data
问题描述
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports System.Data.Odbc
Imports DevExpress.XtraGrid.Views.Grid
Public Class Form1
Dim con As New OdbcConnection
Dim cmd As New OdbcCommand
Dim reader,reader1 As OdbcDataReader
Private Sub GridSplitContainer1Grid_Click(sender As Object,e As EventArgs)处理GridSplitContainer1Grid.Click
结束子
私有子Form1_Load(发件人作为对象,e作为EventArgs)处理Me.Load
con.ConnectionString =dsn = test; uid = sa; pwd = SqlServer @ 2013; database = training
con.Open()
'Dim adpt As New OdbcDataAdapter(选择memid,ans1,ans2,ans3,ans4,来自le的标记vel1,con)
Dim ds As New DataSet()
'adpt.Fill(ds,Level1)
''adpt .Fill(dty)
ds.Tables.Add(createtable(20))
GridControl1.DataSource = ds.Tables(0)
GridControl1.DataBindings.ToString()
'GridControl1.RefreshDataSource()
'Dim gv As GridView = TryCast(GridControl1.FocusedView,GridView )
''reader.Close()
'cmd.CommandText =选择memid,ans1,ans2,ans3,ans4,标记来自level1
'cmd.Connection = con
'reader = cmd.ExecuteReader()
'Dim i As Integer = 0
'虽然reader.Read()
'gv.AddNewRow()
'gv.SetRowCellValue(i,memid,reader(0))
'i = i + 1
'结束时
GridControl1.RefreshDataSource()
End Sub
私有函数createtable(ByVal rowcount As Integer)As DataTable
On Error Resume Next
cmd.CommandText =选择memid,ans1,ans2,ans3,ans4,从level1开始标记
cmd.Connection = con
reader = cmd.ExecuteReader ()
Dim dt As New DataTable
''adpt.SelectCommand = cmd
while(reader.Read())
For i As Integer = 0 to rowcount - 1
dt.Rows.Add(i)
dt.Columns.Add(reader(0),GetType(String))
dt.Columns.Add( reader(1),GetType(String))
dt.Columns.Add(reader(2))
dt.Columns.Add(reader(3))
dt.Columns.Add(读者(4))
dt.Columns.Add(读者(5))
下一页
结束时
返回dt
结束函数
Private Sub RepositoryItemTextEdit6_Click(发送者作为对象,e作为EventArgs)处理RepositoryItemTextEdit6.Click
Dim xtra1作为新的XtraForm1
xtra1.Show()
xtra1.BringToFront()
End Sub
End Class
gridview未显示数据
Imports DevExpress.XtraBars.Ribbon
Imports DevExpress.XtraBars.Helpers
Imports DevExpress.Skins
Imports DevExpress.LookAndFeel
Imports DevExpress.UserSkins
Imports System.Data.Odbc
Imports DevExpress.XtraGrid.Views.Grid
Public Class Form1
Dim con As New OdbcConnection
Dim cmd As New OdbcCommand
Dim reader, reader1 As OdbcDataReader
Private Sub GridSplitContainer1Grid_Click(sender As Object, e As EventArgs) Handles GridSplitContainer1Grid.Click
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
con.ConnectionString = "dsn=test;uid=sa;pwd=SqlServer@2013;database=training"
con.Open()
' Dim adpt As New OdbcDataAdapter("Select memid,ans1,ans2,ans3,ans4,mark from level1", con)
Dim ds As New DataSet()
' adpt.Fill(ds, "Level1")
'' adpt.Fill(dty)
ds.Tables.Add(createtable(20))
GridControl1.DataSource = ds.Tables(0)
GridControl1.DataBindings.ToString()
'GridControl1.RefreshDataSource()
'Dim gv As GridView = TryCast(GridControl1.FocusedView, GridView)
'' reader.Close()
'cmd.CommandText = "Select memid,ans1,ans2,ans3,ans4,mark from level1"
'cmd.Connection = con
'reader = cmd.ExecuteReader()
'Dim i As Integer = 0
'While reader.Read()
' gv.AddNewRow()
' gv.SetRowCellValue(i, "memid", reader(0))
' i = i + 1
'End While
'GridControl1.RefreshDataSource()
End Sub
Private Function createtable(ByVal rowcount As Integer) As DataTable
On Error Resume Next
cmd.CommandText = "Select memid,ans1,ans2,ans3,ans4,mark from level1"
cmd.Connection = con
reader = cmd.ExecuteReader()
Dim dt As New DataTable
''adpt.SelectCommand = cmd
While (reader.Read())
For i As Integer = 0 To rowcount - 1
dt.Rows.Add(i)
dt.Columns.Add(reader(0), GetType(String))
dt.Columns.Add(reader(1), GetType(String))
dt.Columns.Add(reader(2))
dt.Columns.Add(reader(3))
dt.Columns.Add(reader(4))
dt.Columns.Add(reader(5))
Next
End While
Return dt
End Function
Private Sub RepositoryItemTextEdit6_Click(sender As Object, e As EventArgs) Handles RepositoryItemTextEdit6.Click
Dim xtra1 As New XtraForm1
xtra1.Show()
xtra1.BringToFront()
End Sub
End Class
gridview is not showing data
推荐答案
这篇关于xtragridview未显示数据的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!