主题：[求助]在表中单元格检索信息后无法给本身赋值？

利用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

表达式列? 或者其他地方取消了赋值, 上个例子看看.

再设置一下控件的Value属性为目标值

是表中的单元格啊？怎么设置目标值呢？

做个简单的例子发上来看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.rar

 

打开项目 在表A中物料编码选一空的单元，然后录入任意字符，可以录入 1 或 2 ,会立即出现一个检索窗口，这个检索窗口会随着物料编码输入内容做模糊查询，然后在这个窗口任意选定一条记录，双击。其内容会写入到表A中。这时奇怪的事情发生了，物料编码的内容写不进去。

 

接着在窗口中选其它记录，则正确的进入表A。求解 谢谢bin和狐爸！！

这是因为单元格还处以编辑状态，结束编辑的时候，会将输入框的内容覆盖原有的内容：
 
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

谢谢 好用了！