Dim dr As DataRowdr = DataTables("标准流程步骤控件设计记录").Find("(上x - e.Sender.Left < 10) and (上x - e.Sender.Left > -10) ")If dr IsNot Nothing Then '如果找到的话 messagebox.show("步骤:" & dr("步骤"))
End If
上面的“上x” 是"标准流程步骤控件设计记录"表里面的列名