请问一下,vb.net2019里究竟有没有DataRowds这个东东?
具体代码如下:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As MySql.Data.MySqlClient.MySqlConnection
Dim da As MySql.Data.MySqlClient.MySqlDataAdapter
Dim ds As DataSet
con = New MySql.Data.MySqlClient.MySqlConnection
con.ConnectionString = "*;port=10156;database=*;UID=*;PWD=*"
con.Open()
Dim conm As New MySql.Data.MySqlClient.MySqlCommand("select * from sprxq”, con)
ds = New DataSet
da.Fill(ds, "cpyxq")
Dim dr As DataRow
dr = ds.Tables("cpyxq").NewRow()
dr("商品吗") = TextBox1.Text
dr("名称") = TextBox2.Text
dr("生产日期") = TextBox3.Text
dr("保质期") = TextBox4.Text
dr("下架日期") = TextBox5.Text
dr("状态") = TextBox6.Text
ds.Tables("sqyxq").Rows.Add(dr)
Dim scd As New MySql.Data.MySqlClient.MySqlCommandBuilder(da)
da.Update(ds, "cpyxq")
DataGridView1.DataSource = ds.Tables("spyxq")
con.Close()
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
If e.RowIndex < DataGridView1.Rows.Count - 1 Then
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString()
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString()
TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value.ToString()
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value.ToString()
TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value.ToString()
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value.ToString()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim con As MySql.Data.MySqlClient.MySqlConnection
Dim da As MySql.Data.MySqlClient.MySqlDataAdapter
Dim ds As DataSet
con = New MySql.Data.MySqlClient.MySqlConnection
con.ConnectionString = "server=*;port=10156;database=*;UID=*;PWD=*"
con.Open()
da = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * From cpyxq", con)
ds = New DataSet
da.Fill(ds, "cpyxq")
Dim dr As DataRowds.dataTables("cpyxq").PrimaryKey= New DataColumn() {ds.Tables("cpyxq").Columns("记录序号")}
dr = DataRowds.dataTables("cpyxq").)
dr("商品吗") = TextBox1.Text
dr("名称") = TextBox2.Text
dr("生产日期") = TextBox3.Text
dr("保质期") = TextBox4.Text
dr("下架日期") = TextBox5.Text
dr("状态") = TextBox6.Text
Dim scd As New MySql.Data.MySqlClient.MySqlCommandBuilder(da)
da.Update(ds, "cpyxq")
DataGridView1.DataSource = ds.Tables("cpyxq")
con.Close()
End Sub
其中报错是DataRowds.dataTables("cpyxq")这个代码段“未定义类型”和DataRowds.dataTables("cpyxq")“未声明DataRowds”。我就奇怪了,这代码基本上都是按书来的,再根据自己的需要做轻微调整,怎么就报错了呢?
End Class