以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]find datatable mysql 问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87783)
--  作者：浙江仔
--  发布时间：2016/7/19 14:30:00
--  [求助]find datatable mysql 问题
使用mysql数据库查询信息的时候，想把部分字段匹配过来，出现错误如下：

编译错误:“Find”不是“System.Data.DataTable”的成员。
错误代码：Dim fdr As DataRow = dt.Find("adminssi ")

怎么改才能实现？



Dim conn As MySql.Data.MySqlClient.MySqlConnection
Dim cmd As MySql.Data.MySqlClient.MySqlCommand
Dim sdr As MySql.Data.MySqlClient.MySqlDataReader
Dim connStr As String = "server=172.21.181.114; port=3306; user id=root; password=12232; database=zjks; Allow Zero Datetime=True"
conn = New MySql.Data.MySqlClient.MySqlConnection(connStr)
conn.Open
Dim dt As new System.Data.DataTable
cmd = new MySql.Data.MySqlClient.MySqlCommand("select adminssionid,score fr om adminssionid", conn)
sdr = cmd.ExecuteReader()
dt.load(sdr)
‘e.Form.Controls("Table1").Table.DataSource  = dt

Tables("Train_info").filter="Class_ID= \'" & Vars("ClassId") & "\' "
For i As Integer = 0 To Tables("Train_info").Rows.Count-1
    Dim fdr As DataRow = dt.Find("adminssi ")
    If fdr IsNot Nothing Then
\'代码
    end if

next

conn.close
--  作者：大红袍
--  发布时间：2016/7/19 15:22:00
--  

1、

 

e.Form.Controls("Table1").Table.DataSource  = dt

 

2、然后操作那个table

 

Tables("窗口1_Table").DataTable.Find("aaa=\'bbb\'")
--  作者：浙江仔
--  发布时间：2016/7/19 17:01:00
--  
谢谢，试一下