读书人

於form2加form1中datagridview中的

发布时间: 2012-04-13 13:50:24 作者: rapoo

於form2加form1中datagridview中的的!
我的用意是form2加载form1中datagridview中的数据,利用form2修改数据源中的数据,贴上代码,老手帮我看看,
为什么form2总是显示datagridview中的第一行数据,我要的是显示当前点击的行的数据,谢谢了。。


VB.NET code
Imports System.DataImports System.Data.SqlClientPublic Class JBZL    Inherits System.Windows.Forms.Form    Friend objconnection As SqlConnection = New SqlConnection("server=DADI-20111226ZE;database=plan;user id=sa;password=123")    Public objdataAdapter As New SqlDataAdapter    Public objdataset As New DataSet()    Private Sub JBZL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        objdataAdapter.SelectCommand = New SqlCommand        objdataAdapter.SelectCommand.Connection = objconnection        objdataAdapter.SelectCommand.CommandText = "SELECT * FROM bom"        objdataAdapter.SelectCommand.CommandType = CommandType.Text        objconnection.Open()        objdataAdapter.Fill(objdataset, "bom")        objconnection.Close()        DataGridView2.DataSource = objdataset        DataGridView2.DataMember = "bom"        objdataAdapter = Nothing        objconnection = Nothing    End Sub    Private Sub DataGridView2_RowHeaderMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView2.RowHeaderMouseDoubleClick        If Me.DataGridView2.SelectedRows.Count > 0 Then            JBZL_BOM.ShowDialog()        End If    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click          End SubEnd Class



VB.NET code
Imports System.DataImports System.Data.SqlClientPublic Class JBZL_BOM    Inherits System.Windows.Forms.Form    Dim objconnection As SqlConnection = New SqlConnection("server=DADI-20111226ZE;database=plan;user id=sa;password=123")    Dim objdataAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT 件料,件品名,生域,原料料,原料品名,主分群明 FROM bom", objconnection)    Dim objdataset As DataSet = JBZL.objdataset    Dim objdataview As DataView    Dim objcurrencymanager As CurrencyManager    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click        Me.Close()    End Sub    Private Sub JBZL_BOM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        fillDatasetAndView()        bindfields()    End Sub    Private Sub fillDatasetAndView()        objdataset = New DataSet        objdataAdapter.Fill(objdataset, "bom")        objdataview = New DataView(objdataset.Tables("bom"))        objcurrencymanager = CType(Me.BindingContext(objdataset), CurrencyManager)    End Sub    Private Sub bindfields()        TextBox1.DataBindings.Clear()        TextBox2.DataBindings.Clear()        TextBox3.DataBindings.Clear()        TextBox4.DataBindings.Clear()        ComboBox1.DataBindings.Clear()        TextBox6.DataBindings.Clear()        TextBox1.DataBindings.Add("text", objdataview, "件料")        TextBox2.DataBindings.Add("text", objdataview, "原料料")        TextBox3.DataBindings.Add("text", objdataview, "原料品名")        TextBox4.DataBindings.Add("text", objdataview, "件品名")        TextBox6.DataBindings.Add("text", objdataview, "主分群明")        ComboBox1.DataBindings.Add("text", objdataview, "生域")    End Sub    Private Sub ComboBox1_DropDown(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDown    End Sub    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged    End SubEnd Class 



[解决办法]
你在form1里面已经连接数据库了 在form2里面只需要DataGridView2.DataSource = form1.objdataset
然后再帮定你的控件就可以了

读书人网 >VB Dotnet

热点推荐