- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]在表中单元格检索信息后无法给本身赋值？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65823)
-- 发布时间：2015/3/24 7:33:00
-- [求助]在表中单元格检索信息后无法给本身赋值？
利用BJD表中的<物料编码>单元格来检索。检索的结果显示在一个独立窗口F中。在<物料编码>中检索时，检索内容如愿显示在F窗口中，
确定了所选内容 并 双击，该条内容就应该被赋值到<物料编码>单元所对应的这条记录中。见下程序。其它单元格的内容赋值都是正确的。唯有作为检索项<物料编码>这个单元
的内容不发生变化。很奇怪的是利用Mes语句显示还是正确的。于是又做了Tables("BJDMX").Refresh，但显示仍然是检索内容而不是赋值内容。
只有发生检索时，检索单元格的内容不被覆盖修改。其它在F窗口双击选全部正常。如何解决呢？谢谢！
dim kc as datarow .....
r=Tables("BJDMX").Current
r("小计")=0
r("型号")=kc("型号")
r("单位")=kc("单位")
r("物料编码")=kc("料品编码")
r("物料名称")=kc("料品名称")
MessageBox.Show( r("物料编码"))
r=Tables("BJDMX").AddNew()
Tables("BJDMX").Select(r.Index,0)
Tables("BJDMX").Refresh
下两张图显示了一张不正确，一张是正确的结果。
此主题相关图片如下：a1.jpg
此主题相关图片如下：a2.jpg
-- 发布时间：2015/3/24 8:35:00
--
表达式列? 或者其他地方取消了赋值, 上个例子看看.
-- 发布时间：2015/3/24 9:11:00
--
再设置一下控件的Value属性为目标值
-- 发布时间：2015/3/24 13:34:00
--
是表中的单元格啊？怎么设置目标值呢？
-- 发布时间：2015/3/24 13:50:00
--
做个简单的例子发上来看看
-- 发布时间：2015/3/24 15:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目5.rar |
打开项目 在表A中物料编码选一空的单元，然后录入任意字符，可以录入 1 或 2 ,会立即出现一个检索窗口，这个检索窗口会随着物料编码输入内容做模糊查询，然后在这个窗口任意选定一条记录，双击。其内容会写入到表A中。这时奇怪的事情发生了，物料编码的内容写不进去。
接着在窗口中选其它记录，则正确的进入表A。求解 谢谢bin和狐爸！！
-- 发布时间：2015/3/24 15:50:00
--
这是因为单元格还处以编辑状态，结束编辑的时候，会将输入框的内容覆盖原有的内容：
Dim rk As DataRow,kc As DataRow
Dim r As Row,s As Row
Tables("表A").FinishEditing
rk=DataTables("表A").find("物料编码=\'" & e.Row("料品编码") & "\'")
If rk IsNot Nothing Then
MessageBox.Show(e.Row("料品编码") & "这个料码已经存在!")
Return
End If
r=Tables("表A").Current
r("型号")=e.Row("规格")
r("物料编码")=e.Row("料品编码")
r("物料名称")=e.Row("料品名称")
\'MessageBox.Show( r("物料编码"))
r=Tables("表A").AddNew()
Tables("表A").Refresh
-- 发布时间：2015/3/24 16:03:00
--
谢谢 好用了！