以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  窗口导出按钮问题,请指教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158069)

--  作者：夜点蚊香 --  发布时间：2020/11/6 15:29:00 --  窗口导出按钮问题,请指教 在窗口中设置 导出按钮,按钮代码如下 Dim dt As Table = Tables("课程管理_课程信息表") Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题     Sheet(0, c).Value = dt.Cols(c).Name Next For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据     For c As Integer = 0 To dt.Cols.Count -1         Sheet(r +1, c).Value = dt.rows(r)(c)     Next Next Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then     Book.Save(dlg.FileName)     Dim Proc As New Process     Proc.File = dlg.FileName     Proc.Start() End If 如何试第一行代码Dim dt As Table = Tables("课程管理_课程信息表") 中的 Tables("课程管理_课程信息表") 自动获取本窗口table控件 中绑定的表单名 [此贴子已经被作者于2020/11/6 15:30:05编辑过]

--  作者：有点蓝 --  发布时间：2020/11/6 15:32:00 --   Dim dt As Table = e.form.controls("课程信息表").table