| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]如何声明一个EXCEL文档 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90278) |
| -- 作者：pladic -- 发布时间：2016/9/8 19:21:00 -- [求助]如何声明一个EXCEL文档 如何声明一个EXCEL文档，已知 OpenFileDialog.FileName 以便能将该文档逐行写入TABLE中。 在button.click的事件中，怎么用e参数定位TABLE中的行、列？ |
| -- 作者：有点蓝 -- 发布时间：2016/9/8 20:41:00 -- 参考：http://www.foxtable.com/webhelp/scr/2334.htm |
| -- 作者：pladic -- 发布时间：2016/9/9 9:11:00 -- 回复：（有点蓝）参考：http://www.foxtable.com/webh... 帮助里是指定了一个EXCEL文档，我的需求是动态选择一个文档。 |
| -- 作者：pladic -- 发布时间：2016/9/9 9:12:00 -- 在button.click的事件中，怎么用e参数定位TABLE中的行、列？ |
| -- 作者：有点蓝 -- 发布时间：2016/9/9 9:17:00 -- button.click的事件中e参数和TABLE没有任何关系 Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Filter= "Excel文件|*.xls;.xlsx" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim Book As New XLS.Book(dlg.FileName) Dim Sheet As XLS.Sheet = Book.Sheets(0) Tables("订单").StopRedraw() \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致 Dim nms() As String = { "编号","产品","客户","雇员","单价","折扣","数量","日期" } \'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题 For n As Integer = 1 To Sheet.Rows.Count -1 Dim r As Row = Tables("订单").AddNew() For m As Integer = 0 To nms.Length - 1 r(nms(m)) = Sheet(n,m).Value Next Next Tables("订单").ResumeRedraw() End If |
| -- 作者：狐狸爸爸 -- 发布时间：2016/9/9 9:21:00 -- 常用对话框，是需要掌握的： http://www.foxtable.com/webhelp/scr/0328.htm 楼主最好按顺序看一遍帮助或者置顶的视频教程
|
| -- 作者：pladic -- 发布时间：2016/9/9 9:59:00 -- 回复：（有点蓝）button.click的事件中e参数和TABLE没... 帮助文档已经看了很多遍了。对系统的功能比较了解，但是因为编程底子差，如何用代码实现这些功能往往力不从心。需求与帮助中的例子稍有区别，就不知怎么办了。试着自己改动代码，经常报错，更不知所措了。 就像学的哑巴英语，能看懂句子。可自己不会组织语言，流利地说出来。 感谢有点蓝专家耐心、具体的指导！
|