Question

我目前正在使用Windows窗体应用程序在VB.net express 2013中工作。我有一个面板上有84个按钮，每个按钮代表一个物理单元。当按下按钮时，我弹出一个对话框结果，显示该单元格的内容。但是，我不知道如何使代码拉出该按钮的名称并将其放入sql语句中的where部分。我的按钮设计名为cmdM01，cmdM02， cmdM03 ....等。 sql名称是M01，M02，M03等。 *注意，我现在正在使用1 = @shear进行测试。我需要弄清楚如何更换＆＃34; 1＆＃34;用于识别细胞的东西。到目前为止，这是我的代码：

   Public Sub Button_Click(ByVal o As Object, ByVal e As EventArgs) Handles cmdM01.Click, cmdM02.Click, cmdM03.Click, cmdM04.Click, cmdM05.Click, cmdM06.Click, cmdM07.Click,
    cmdM08.Click, cmdM09.Click, cmdM10.Click, cmdM11.Click, cmdM12.Click, cmdT01.Click, cmdT02.Click, cmdT03.Click, cmdT04.Click, cmdT05.Click, cmdT06.Click, cmdT07.Click, cmdT08.Click,
    cmdT09.Click, cmdT10.Click, cmdT11.Click, cmdT12.Click, cmdT13.Click, cmdT14.Click, cmdT15.Click, cmdT16.Click, cmdT17.Click, cmdT18.Click, cmdT19.Click, cmdT20.Click,
    cmdT21.Click, cmdT22.Click, cmdT23.Click, cmdT24.Click, cmdH01.Click, cmdH02.Click, cmdH03.Click, cmdH04.Click, cmdH05.Click, cmdH06.Click, cmdH07.Click, cmdH08.Click, cmdH09.Click,
    cmdH10.Click, cmdH11.Click, cmdH12.Click, cmdH13.Click, cmdH14.Click, cmdH15.Click, cmdH16.Click, cmdH17.Click, cmdH18.Click, cmdH19.Click, cmdH20.Click, cmdH21.Click,
    cmdH22.Click, cmdH23.Click, cmdH24.Click, cmdP01.Click, cmdP02.Click, cmdP03.Click, cmdP04.Click, cmdP05.Click, cmdP06.Click, cmdP07.Click, cmdP08.Click, cmdP09.Click, cmdP10.Click,
    cmdP11.Click, cmdP12.Click, cmdP13.Click, cmdP14.Click, cmdP15.Click, cmdP16.Click, cmdP17.Click, cmdP18.Click, cmdP19.Click, cmdP20.Click, cmdP21.Click, cmdP22.Click, cmdP23.Click, cmdP24.Click

    'load selection for all buttons

    Using conn1 As New SqlConnection(connstring)
        conn1.Open()
        Using comm1 As New SqlCommand("SELECT Shear FROM Production.dbo.tblFabWipLog WHERE FabWipID = @Cell", conn1)
            comm1.Parameters.AddWithValue("@Cell", 1)
            Dim sql As New SqlDataAdapter(comm1)
            Dim dt As New DataTable
            sql.Fill(dt)
            Dim f As New CellContent
            f.LabelShear.Text = dt.Rows(0)("Shear").ToString
            f.ShowDialog()
        End Using
    End Using

End Sub

Answer 1

这是我确定单击哪个按钮的方法，然后使用Select Case确定如何处理所述按钮单击。

Dim bt As Button = o
Dim btName As String = bt.Text

在您的情况下，如果按钮的名称或id直接与值绑定，您可以通过从bt变量访问它将其传递给您的参数。

Answer 2

你可以使用这样的东西

Dim btnName as string = o.name

确定点击了哪个按钮

如何选择由sql支持的多按钮单击事件上单击的按钮

2 个答案: