於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
然后再帮定你的控件就可以了