@@求救！！！怎么访问dataset中的纪录？
找了很多dataset下面的类和属性、方法都无法访问，只能获取记录数 问题点数：0、回复次数：7Top
1 楼Snrmnm_sx（Ψ 踏雪无痕 Ω）回复于 2005-06-01 12:01:09 得分 0
Dim Ds As New DataSet()
Dim Tb As New DataTable()
Dim Ad As New Microsoft.Data.Odbc.OdbcDataAdapter()
住DataSet写数据
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TRY
Dim Row1 As DataRow
Row1 = Tb.NewRow
Row1("DWDM") = DWDM.Text
Row1("DWMC") = Trim(DWMC.Text)
Row1("DWDZ") = DWDZ.Text
Row1("IPADD") = IPADD.Text
Row1("EMAIL") = EMAIL.Text
Tb.Rows(Row_Pub)("CZH") = CZH.Text
Tb.Rows(Row_Pub)("LXR") = LXR.Text
Tb.Rows(Row_Pub)("DHHM") = DHHM.Text
Tb.Rows(Row_Pub)("YZBM") = YZBM.Text
Tb.Rows(Row_Pub)("XX") = XX.Text
Tb.Rows(Row_Pub)("YB") = YB.Text
Tb.Rows.Add(Row1)
Ad.Update(Ds, "DWXX")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "提示")
End Try
End Sub
从DataSet写数据来填充TreeView
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim Text0, F1 As String
Dim i As Integer
Try
Parent_P = e.Node
Text0 = e.Node.Text
If Text0 <> "根目录" Then
i = InStrRev(Text0, ")")
Text0 = Mid(Text0, 2, i - 2)
i = 0
Do While i < Tb.Rows.Count
If Tb.Rows(i)("DWDM") = Text0 Then
Row_Pub = i
DWDM.Text = Tb.Rows(i)("DWDM")
DWMC.Text = Tb.Rows(i)("DWMC")
DWDZ.Text = Tb.Rows(i)("DWDZ")
IPADD.Text = Tb.Rows(i)("IPADD")
EMAIL.Text = Tb.Rows(i)("EMAIL")
CZH.Text = Tb.Rows(i)("CZH")
LXR.Text = Tb.Rows(i)("LXR")
DHHM.Text = Tb.Rows(i)("DHHM")
YZBM.Text = Tb.Rows(i)("YZBM")
XX.Text = Tb.Rows(i)("XX")
YB.Text = Tb.Rows(i)("YB")
Dwdm_Pub1 = DWDM.Text
DWDM.Enabled = False
End If
i = i + 1
Loop
Else
Dwdm_Pub1 = ""
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "提示")
End Try
End SubTop
2 楼Snrmnm_sx（Ψ 踏雪无痕 Ω）回复于 2005-06-01 12:02:23 得分 0
不好意思是从DataSet读数据来填充TreeView，是读不是写！Top
3 楼nzy511（划破星空）回复于 2005-06-01 12:06:20 得分 0
dataset.table("tablename").rows(i)(j)
这样可以读出第i行,第j列的值Top
4 楼50277（柳影随风）回复于 2005-06-01 12:29:53 得分 0
先建个DataTable,再往DataTable里加数据,这样就能通过DataTable读取数据了!Top
5 楼csdnzm（明飞）回复于 2005-06-01 13:22:36 得分 0
dim mRow as DataRow
dim mCol as integer
for each mrow in mDataSet.Tables(0).getrows
For mcol=0 to mDataSet.Tables(0).FieldCount-1
msgbox mDataSet.Tables(0).Rows(mRow)(mcol)
next
next
Top
6 楼csdnzm（明飞）回复于 2005-06-01 13:26:55 得分 0
上面有点错误，应该是
dim mRow as DataRow
dim mCol as DataColumn
For Each mRow In mDataSet.Tables(1).Rows
For Each mCol In mDataSet.Tables(0).Columns
Console.Write("{0,15}", mRow(mCol))
Next
Console.Write(vbCrLf)
NextTop
7 楼sh_zll（）回复于 2005-06-01 14:37:59 得分 0
不错，学习Top
相关问题
- php中怎么纪录用户访问的前一个页面的url呢？
- 怎么在页面刷新后依旧能访问到原来的dataset?
- ADO 访问数据库，添加新的纪录如何添加?修改某一纪录的某一字段怎么做？
- ###################DataSet访问数据库
- ==> 请问怎么用JAVASCRIPT访问已读出来的DATASET ？ 别的方法实现同样效果也行...
- 将记录查询到DATASET后，怎么依次访问每个TABLE里的每条记录的字段？
- 当三层结构中 数据访问层 返回结果为DataSet时怎么得到错误信息？
- 如何访问dataset中的数据
- 怎样通过COOKIE纪录浏览者访问过的页面？？
- 用ado访问特定纪录的问题
