| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何给指定行指定单元格赋值？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21074) |
| -- 作者：卧美吻花 -- 发布时间：2012/6/30 0:12:00 -- 如何给指定行指定单元格赋值？ 我做了一个窗口，里面有一个文本框，内容填写的是单号，这个单号将作为主键 然后做了一个按钮，按钮的click事件设置为Tables("发货单").AddNew() 这样按下按钮就可以在“发货单”表新增一行了 请问，如何写代码，将文本框中的内容“单号”填写到“发货单”新增的这一行的“单号”列中间去啊？ 谢谢
|
| -- 作者：程兴刚 -- 发布时间：2012/6/30 2:27:00 -- 按钮代码： Tables("发货单").AddNew() Tables("发货单").Current("单号") = e.Form.Controls("文本框名称").Value |
| -- 作者：程兴刚 -- 发布时间：2012/6/30 2:31:00 -- 这样严谨一点：
if e.Form.Controls("文本框名称").Value isnot nothing Tables("发货单").AddNew() Tables("发货单").Current("单号") = e.Form.Controls("文本框名称").Value else MessageBox.show("对不起,您没有输入单号,请重新输入!") end if |
| -- 作者：狐狸爸爸 -- 发布时间：2012/6/30 8:03:00 -- 这样严谨一些：
if e.Form.Controls("文本框名称").Value IsNot Nothing Then Dim r As Row = Tables("发货单").AddNew() r("单号") = e.Form.Controls("文本框名称").Value End IF |
| -- 作者：卧美吻花 -- 发布时间：2012/6/30 14:19:00 -- 哇，谢谢两位老大的回复，感谢 |