往焦点所在单元格传输数据失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，我通过双击tables("试样信息表").current("检测内容")打开“窗口1”，进行一系列操作后，得到字符串 str，希望：tables("试样信息表").current("检测内容")=str

发现不成功。在tables("试样信息表").current("备注")单元格双击后打开“窗口1”，就能实现tables("试样信息表").current("检测内容")=str。

想请教，从窗口向主表中的焦点所在单元格写数据不可以吗？我希望双击哪个单元格，就向哪个单元格传输数据。可以做到吗？谢谢！

肯定可以的。双击事件写了什么代码？窗口向单元格赋值又是怎么做的？

If System.Windows.Forms.Control.ModifierKeys = Keys.Control And e.Col.Name="检测内容" ‘*********************如果改成其他列，比如“备注”就没有问题

Dim ddr As DataRow = DataTables("通用检测价格表").Find("次分类 = '" & e.Row("试样名称") & "'")

If ddr Is Nothing Then

msgbox("请检查【试样名称】是否填写正确")

e.Cancel = True

End If

If ddr IsNot Nothing Then

Public_检测大类 = ddr("首分类")

Public_次分类=DDR("次分类")

Public_表名称=e.Table.name

Forms("窗口1").open

End If

*******************以下是窗口1的代码

Dim nr1 As WinForm.TextBox = e.Form.Controls("详细内容")

Dim jg1 As WinForm.TextBox = e.Form.Controls("检测费")'

Dim sl1 As WinForm.TextBox = e.Form.Controls("检测数量")

Dim nr2 As WinForm.TextBox = e.Form.Controls("试样名称")

Dim jg2 As WinForm.TextBox = e.Form.Controls("加工费")

Dim sl2 As WinForm.TextBox = e.Form.Controls("试样数量")

Dim dr1 As Row= Tables(public_表名称).current

dr1("检测内容")=iif( sl1.text>0,(nr1.text & "*" & sl1.text),"")

dr1("加工内容")=iif(sl2.text>0,(nr2.text & "*" & sl2.text),"")

dr1("检测费")=jg1.text

dr1("加工费")=jg2.text

如果双击的是“检测内容”列，dr1("检测内容")=iif( sl1.text>0,(nr1.text & "*" & sl1.text),"")就没有结果。双击其他列打开窗口，就没有问题

[此贴子已经被作者于2020/2/10 20:30:13编辑过]

If System.Windows.Forms.Control.ModifierKeys = Keys.Control And e.Col.Name="检测内容" ‘*********************如果改成其他列，比如“备注”就没有问题

Dim ddr As DataRow = DataTables("通用检测价格表").Find("次分类 = '" & e.Row("试样名称") & "'")

If ddr Is Nothing Then

msgbox("请检查【试样名称】是否填写正确")

else

Public_检测大类 = ddr("首分类")

Public_次分类=DDR("次分类")

Public_表名称=e.Table.name

Forms("窗口1").open

End If

e.Cancel = True

End If

问题解决了，谢谢老师。我有些疑惑，为什么没有代码e.Cancel = True 就不能往焦点单元格写数据？有什么规则吗？

只要是在设计事件里打开窗口的都需要这样用，这是固定用法：http://www.foxtable.com/webhelp/topics/1499.htm

主题：往焦点所在单元格传输数据失败