| 以文本方式查看主题 - 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=178505) |
| -- 作者：nxqtxwz -- 发布时间：2022/7/7 10:11:00 -- 写入EXCEL 如何通过相同的列（身份证号）将表A中的单价、金额一一对应写入EXCEL相应列中呢？ |
| -- 作者：cd_tdh -- 发布时间：2022/7/7 10:14:00 -- 不是应该用报表功能吗 |
| -- 作者：nxqtxwz -- 发布时间：2022/7/7 10:17:00 -- 银行的表是固定的，样式不能动。 |
| -- 作者：nxqtxwz -- 发布时间：2022/7/7 10:22:00 -- 复制粘贴也可能行，但数据多，容易出错。一但出错还不好发现，最好是代码。 |
| -- 作者：有点蓝 -- 发布时间：2022/7/7 10:35:00 -- 遍历execl所有行，获取身份证，然后去表A查询对应的行数据，再填入execl当前行。大概 Dim Book As New XLS.Book("c:\\test\\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) For n As Integer = 1 To Sheet.Rows.Count -1 Dim 身份证 As String = sheet(n,0).Text Dim dr As DataRow = DataTables("订单").Find("身份证 = \'" & 身份证 & "\'") If dr Isnot Nothing Then \'如果不存在同编号的订单 sheet(n,xx列索引).value = dr("xx列") End If Next Book.Save("c:\\test\\订单2.xls") |
| -- 作者：nxqtxwz -- 发布时间：2022/7/7 14:47:00 -- 老师，这样好象是不行吧。因为人家的原excel表里还有好多列内容，这个代码伸似乎是重新写了一个excel表。 能否直接从数据库表中取值写入原来excel表的指定列呢。
|
| -- 作者：有点蓝 -- 发布时间：2022/7/7 14:50:00 -- 好好理解下代码吧。保存的时候保存回原文件名覆盖即可，上面之所以改名为订单2，是让一些代码都不怎么看得懂的用户测试代码的时候有后悔的机会。 |
| -- 作者：nxqtxwz -- 发布时间：2022/7/7 15:58:00 -- 不知为什么，在身份证列身份证号前加了一个字母G。有的有，有的没有，数据量较大，请问老师，如何去掉身份证号前的字母G呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/7/7 16:15:00 -- http://www.foxtable.com/webhelp/topics/0240.htm |