| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 从列表源表中，选择一字段，更新表中另一字段的公式表达 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62532) |
| -- 作者：peterx -- 发布时间：2015/1/4 8:15:00 -- 从列表源表中，选择一字段，更新表中另一字段的公式表达 老师，新年好： 现有两个表，希望通过从“课题管理”表中，列表”课题信息“选择后，获得此表中的课题号，并写入”课题管理“表中，下公式不能连动，请指点。谢谢。 Dim ktjfly As WinForm.ComboBox = e.Form.Controls("课题经费来源信息") Dim kth As WinForm.ComboBox = e.Form.Controls("子课题号") ktjfly.ComboList = DataTables("课题管理").GetComboListString("项目信息", "负责人 =\'" & Tables("设备经费管理").Current("PI") & "\'") Tables("设备经费管理").Current("子课题号") = Tables("课题管理").Current("课题号")
|
| -- 作者：Bin -- 发布时间：2015/1/4 8:37:00 -- 你代码写着什么事件? 你应该写着Textchanged事件 |
| -- 作者：peterx -- 发布时间：2015/1/4 9:14:00 -- 放在selectindexchanged事件中，放在textchanged事件也是，不能联动。 [此贴子已经被作者于2015-1-4 9:28:30编辑过]
|
| -- 作者：有点甜 -- 发布时间：2015/1/4 9:23:00 -- 你的代码和你的问题，毫不相干。不会做就请上传例子。
Dim ktjfly As WinForm.ComboBox = e.Form.Controls("课题经费来源信息")
Dim fdr As DataRow = DataTables("课题管理").Find("负责人 = \'" & ktjfly.Text & "\'")
Tables("设备经费管理").Current("子课题号") = fdr("课题号")
|
| -- 作者：peterx -- 发布时间：2015/1/4 10:32:00 -- 谢谢。可以了。 |