[求助]在导出的excel文件中把输入框与表中某一列的值组合成一个新值并赋值给对应的单元格 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在我的例子中，通过调用名单按钮可以把学生筛选出来，也可以通过导出模板把设定的选项的值结合筛选出的信息一起导出，现在想在导出的“成绩标识码”中把“学生标识码”的值也含在一起，组成这条成绩信息的唯一标识，以防止成绩被重复记录。

图片点击可在新窗口打开查看此主题相关图片如下：问题2.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩管理_201607202011.zip

如何能在“导出模板”按钮中代码中设定成绩标识码的变量 cj_sn　的值能动态地加入对应的学生标识码？

要去编写报表事件代码builddetail

http://www.foxtable.com/webhelp/scr/1955.htm

因为没有数据库及计算机语言基础，所以真的搞不懂，还是要请大红袍老师帮我看看如何补充代码？如果方便的，把代码放在贴子里更好，因为之前你回给我的附件我打不开~！万分感激！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:成绩管理_201607210207.zip

导出按钮事件

Dim Book As New XLS.Book(ProjectPath & "Attachments\成绩录入.xls")

Dim fl As String = "c:\成绩录入_临时.xls"

Dim xuenian As WinForm.TextBox = e.Form.Controls("学年")

Dim xueqi As WinForm.ComboBox = e.Form.Controls("学期")

Dim leixing As WinForm.ComboBox = e.Form.Controls("考试类型")

If xuenian.Text="" Or xueqi.Text="" Or leixing.Text="" Then

MessageBox.Show("你还没设置好考试的标识信息!", "警告")

Else

MessageBox.Show("填写好成绩后请保存并关闭文件后使用导入功能把结果导入数据库!","提示")

Dim dh_xueqi

Dim dh_leixing

If xueqi.Text = "第一学期" Then

dh_xueqi = "1"

ElseIf xueqi.Text = "第二学期" Then

dh_xueqi = "2"

End If

If leixing.Text = "期中考试" Then

dh_leixing = "1"

ElseIf leixing.Text = "期末考试" Then

dh_leixing = "2"

End If

Vars("成绩标识码") = xuenian.Text & dh_xueqi & dh_leixing

Book.Marks.Add("成绩标识码",Vars("成绩标识码"))

Book.Marks.Add("学年",xuenian.Text)

Book.Marks.Add("学期",xueqi.Text)

Book.Marks.Add("考试类型",leixing.Text)

Book.Build()

Book.Save(fl)

Dim Proc As New Process

Proc.File = fl

Proc.Start()

End If

报表BuildDetail事件

Select Case e.Book.TempLate

Case "成绩录入"

If e.DataRow IsNot Nothing Then

e.Book.Marks("成绩标识码") = Vars("成绩标识码") & e.DataRow("学生标识码")

End If

End Select

已经成功实现！主谢谢大神的鼎力支持！

不过，你提供的方法中不知为什么在定义变量时却出现没有定义，我后来按帮助中规定的格式重新改了下就可以了！

谢谢你的帮忙！

原来你提供的：Vars("成绩标识码") = xuenian.Text & dh_xueqi & dh_leixing

按系统帮忙中的格式：Vars.add("成绩标识码",Gettype(String),xuenian.Text & dh_xueqi & dh_leixing)

新版本，可以不定义的。

旧版本，可以设置或者代码设置

http://www.foxtable.com/webhelp/scr/0325.htm

此主题相关图片如下：自定义文件.png

主题：[求助]在导出的excel文件中把输入框与表中某一列的值组合成一个新值并赋值给对应的单元格