With DataTables("系统") Dim lbz As String = e.Form.Controls("ComboBox1").value Dim xzhh As DataRow = .find("项目 = '" & lbz & “‘")
MessageBox.show(xzhh("参数9"))End With
建议看看:
http://www.foxtable.com/help/topics/1284.htm