- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助：如何根据下列菜单选项，生成一新字段？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56574)
-- 发布时间：2014/9/9 10:28:00
-- 求助：如何根据下列菜单选项，生成一新字段？
请教老师：
我想设计一个窗口，通过从表中，选择其中的三个字段的内容，生成一个新的“编号”字段，我已经做成了下图所示的窗口，请问：如何调用上面三个选择输入的内容，通过"生成“的click 功能，使 以上 三个字段的内容相加，成为一个新字段，并在编号字段中显示出来？
此主题相关图片如下：生成编号.jpg
[此贴子已经被作者于2014-9-9 10:28:22编辑过]
-- 发布时间：2014/9/9 10:32:00
--
非常简单的基础知识
e.form.controls("XX").text = e.form.controls("t1").text & e.form.controls("t2").text & e.form.controls("t3").text
-- 发布时间：2014/9/9 10:51:00
--
谢谢。 我做如下的代码，不能运行，错中何处？
Dim ndb As String = e.Form.Controls("年度表").text
Dim pib As String = e.Form.Controls("PI表") .text
Dim jfly As String = e.Form.Controls("经费来源表").text
Dim bh As String = e.Form.Controls("购置申请编号").text
bh = pib & ndb & jfly
-- 发布时间：2014/9/9 11:26:00
--
Dim ndb As String = e.Form.Controls("年度表").text
Dim pib As String = e.Form.Controls("PI表") .text
Dim jfly As String = e.Form.Controls("经费来源表").text
e.Form.Controls("购置申请编号").text = pib & ndb & jfly
-- 发布时间：2014/9/9 12:21:00
--
再请教：Dim bh As String = e.Form.Controls("购置申请编号").text
Dim ndb As String = e.Form.Controls("年度表").text
Dim pib As String = e.Form.Controls("PI表") .text
Dim jfly As String = e.Form.Controls("经费来源表").text
e.form.controls("购置申请编号").text = pib & ndb & jfly
Tables("购置申请管理").Current("购置申请编号")= pib & ndb & jfly
增加一条，将生成的字段内容写回表中时，出现如下错误：
此主题相关图片如下：编号错误.jpg
此主题相关图片如下：编号错误.jpg[此贴子已经被作者于2014-9-9 12:21:00编辑过]
-- 发布时间：2014/9/9 14:12:00
--
你的【购置申请编号】列不能是数值列，必须是字符列
-- 发布时间：2014/9/9 14:28:00
--
没错。购置申请编号列是 字符列：如下图：
此主题相关图片如下：编号错误2.jpg
[此贴子已经被作者于2014-9-9 14:30:43编辑过]
-- 发布时间：2014/9/9 14:33:00
--
回复7楼，那就是你的表事件datacolchanged事件有错，你检查一下代码。
-- 发布时间：2014/9/9 14:44:00
--
表事件中，并未使用代码
-- 发布时间：2014/9/9 14:45:00
--
以下是引用peterx在2014-9-9 14:44:00的发言：
表事件中，并未使用代码
表事件中，并未使用代码
出错的例子发上来看看