- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]在导出的excel文件中把输入框与表中某一列的值组合成一个新值并赋值给对应的单元格 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87834)
-- 发布时间：2016/7/20 20:09:00
-- [求助]在导出的excel文件中把输入框与表中某一列的值组合成一个新值并赋值给对应的单元格
在我的例子中，通过调用名单按钮可以把学生筛选出来，也可以通过导出模板把设定的选项的值结合筛选出的信息一起导出，现在想在导出的“成绩标识码”中把“学生标识码”的值也含在一起，组成这条成绩信息的唯一标识，以防止成绩被重复记录。
此主题相关图片如下：问题2.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:成绩管理_201607202011.zip |
-- 发布时间：2016/7/20 20:20:00
--
如何能在“导出模板”按钮中代码中设定成绩标识码的变量 cj_sn 的值能动态地加入对应的学生标识码？
-- 发布时间：2016/7/20 20:30:00
--
要去编写报表事件代码builddetail
http://www.foxtable.com/webhelp/scr/1955.htm
-- 发布时间：2016/7/21 2:08:00
-- 回复：（大红袍） 要去编写报表事件代码builddet...
因为没有数据库及计算机语言基础，所以真的搞不懂，还是要请大红袍老师帮我看看如何补充代码？如果方便的，把代码放在贴子里更好，因为之前你回给我的附件我打不开~！万分感激！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:成绩管理_201607210207.zip |
-- 发布时间：2016/7/21 8:51:00
--
导出按钮事件
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
-- 发布时间：2016/7/21 13:13:00
-- 回复：（Hyphen）导出按钮事件Dim Book As New XLS.Bo...
已经成功实现！主谢谢大神的鼎力支持！
不过，你提供的方法中不知为什么在定义变量时却出现没有定义，我后来按帮助中规定的格式重新改了下就可以了！
谢谢你的帮忙！
原来你提供的：Vars("成绩标识码") = xuenian.Text & dh_xueqi & dh_leixing
按系统帮忙中的格式：Vars.add("成绩标识码",Gettype(String),xuenian.Text & dh_xueqi & dh_leixing)
-- 发布时间：2016/7/21 14:27:00
--
新版本，可以不定义的。
旧版本，可以设置或者代码设置
http://www.foxtable.com/webhelp/scr/0325.htm
-- 发布时间：2016/7/22 14:10:00
-- [求助]foxtable 中如何给按钮自定义合并数据的文件路径及文件名？
此主题相关图片如下：自定义文件.png
-- 发布时间：2016/7/22 14:41:00
--
参考
http://www.foxtable.com/webhelp/scr/0328.htm