查询等问题求助？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询等问题求助？

共有3330人关注过本帖树形打印复制链接主题：查询等问题求助？

lisheng7177

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00

Post By：2015/9/21 16:01:00 [显示全部帖子]

讲错了，是先选“考评分组”，然后点击“实操登分表”按钮，这个我应该是加在哪里？

lisheng7177

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00

Post By：2015/9/21 16:14:00 [显示全部帖子]

图片点击可在新窗口打开查看 Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "excel|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") '提示用户选择的文件
    Dim Book As New XLS.Book(ProjectPath & "Attachments\实操登分.xls")
    Book.Build() '生成细节区
    Book.Save(dlg.FileName) '保存工作簿
    MessageBox.Show("保存成功" )

End If

在这段里面加？这要怎么加？烦请版主明示！

lisheng7177

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00

Post By：2015/9/22 8:11:00 [显示全部帖子]

谢谢版主！已搞定！

下一主题 >> << 上一主题

总数 14 上一页 1 2

主题：查询等问题求助？