读书人

form加载datagridview中的数据附代码

发布时间: 2012-03-23 12:06:21 作者: rapoo

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

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    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 SubEnd Class


[解决办法]
1,有没有用点击事件,获取到选择的行?
2,获取到选择的行之后,到下个form的时候,有没有把该行传过去?

读书人网 >VB Dotnet

热点推荐