Foxtable(狐表)用户栏目专家坐堂 → [求助]研究了一个星期还没搞不懂,请老师帮帮忙


  共有11057人关注过本帖树形打印复制链接

主题:[求助]研究了一个星期还没搞不懂,请老师帮帮忙

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/16 7:25:00 [显示全部帖子]

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


 回到顶部