Dim dr as DataRow = DataTables("表名").Find("主干 = '" & e.Form.Controls("文本框名").Value & "'") if dr Is Nothing then dr = Tables("表名").AddNew dr("主干") = e.Form.Controls("文本框名").Value End if Tables("表名").Position = Tables("表名").FindRow(dr)
上面的代码假定主干是字符型,如果是数值型,第一行改为:
Dim dr as DataRow = DataTables("表名").Find("主干 =" & e.Form.Controls("文本框名").Value )