dataset遍历表中的数据
顺序读出dataset 中的每一个数据
Dim row As Integer
Dim col As Integer
Dim rolesql As String = "select * from role"
Dim ds As New DataSet
Dim mdb As New MconnfromDB
ds = mdb.GetDataFromDB(rolesql)
For row = 0 To ds.Tables(0).Rows.Count
For col = 0 To ds.Tables(0).Columns.Count
Axrole.Cell(row, col).Text = ds.Tables(0).Rows(row)(col).ToString
Next
Next row
Axrole.CtlRefresh()
Axrole 一个表格控件
Dim row As Integer
Dim col As Integer
Dim rolesql As String = "select * from role"
Dim ds As New DataSet
Dim mdb As New MconnfromDB
ds = mdb.GetDataFromDB(rolesql)
For row = 0 To ds.Tables(0).Rows.Count
For col = 0 To ds.Tables(0).Columns.Count
Axrole.Cell(row, col).Text = ds.Tables(0).Rows(row)(col).ToString
Next
Next row
Axrole.CtlRefresh()
Axrole 一个表格控件