一个文本框,不用绑定到,一个按钮,在文本框输入主干值之后,单击确定按钮。
确定按钮的代码为:
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 )