获取 DataGridView 控件中选中的单元格

        '显示所指的单元格的值
        'Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue
        If Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue <> "" Then
            Form5.Show()
            Form5.ZHSH_MV_SHOPTableAdapter.FillBy(Form5.DataSet1.ZHSH_MV_SHOP, Me.ZHSH_TABLE_DAHDDataGridView.CurrentCell.FormattedValue)
        Else
            Form5.Hide()
        End If

--过程
Namespace DataSet1TableAdapters
    Partial Class ZHSH_MV_SHOPTableAdapter
        Inherits System.ComponentModel.Component
        Public Property SelectCommand() As OracleClient.OracleCommand()
            Get
                If (Me._commandCollection Is Nothing) Then
                    Me.InitCommandCollection()
                End If
                Return Me._commandCollection
            End Get
            Set(ByVal value As OracleClient.OracleCommand())
                Me._commandCollection = value
            End Set
        End Property

        Public Function FillByWhere(ByVal dataTable As DataSet1.ZHSH_MV_SHOPDataTable, ByVal WhereExp As String) As Integer
            Dim stSelect As String
            stSelect = Me._commandCollection(0).CommandText
            Try
                Me._commandCollection(0).CommandText += " WHERE " + WhereExp
                Return Me.Fill(dataTable)
            Catch ex As Exception
            Finally
                Me._commandCollection(0).CommandText = stSelect
            End Try
        End Function
    End Class
End Namespace

--按钮

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim stCustID As String = Trim(TextBox1.Text)
        Dim stShipCntry As String = Trim(TextBox2.Text)
        ' Pass in a SELECT with no WHERE that conforms to the the DataTAble
        ' used by the TableAdapter's DataSet
        Me.ZHSH_MV_SHOPTableAdapter.SelectCommand(0).CommandText = _
        "SELECT * FROM oracle.ZHSH_MV_SHOP"
        ' Build a string containing WHERE criteria (without the WHERE)
        Dim stWhere As String = ""
        If stCustID <> "" Then
            stWhere = "shopid LIKE '" + stCustID + "%' AND "
        End If
        If stShipCntry <> "" Then
            stWhere += "shopname LIKE '" + stShipCntry + "%' "
        Else
            stWhere = Replace(stWhere, " AND ", "")
        End If
        If stWhere = "" Then
            Me.ZHSH_MV_SHOPTableAdapter.Fill(Me.DataSet1.ZHSH_MV_SHOP)
        Else
            Me.ZHSH_MV_SHOPTableAdapter.FillByWhere(Me.DataSet1.ZHSH_MV_SHOP, stWhere)
        End If
    End Sub

text1满足条件，赋值
        If Len(TextBox1.Text) = 4 Then
            TextBox2.Text = Replace(TextBox1.Text, 0, 9)
        End If

DataGridView datagridview.rar (26 K) 下载次数:0

           ' 打开一个文件并返回所在路径
        Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.Filter = "Excle文件(*.xls)|*.xls"
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim fileName As String = OpenFileDialog1.FileName
            '返回文件所在路径
            TextBox1.Text = OpenFileDialog1.FileName
        End If