- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复制 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122272)
-- 发布时间：2018/7/21 21:47:00
-- [求助]复制
老师，在导入表时怎样复制上一行。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
-- 发布时间：2018/7/21 21:50:00
--
没数据库
-- 发布时间：2018/7/21 22:26:00
--
老师，下面上传的是数据库
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复件 行政区域.rar |
-- 发布时间：2018/7/21 22:36:00
--
“在导入表时怎样复制上一行”什么意思？
-- 发布时间：2018/7/22 7:54:00
--
以下是引用y2287958在2018/7/21 22:36:00的发言：
“在导入表时怎样复制上一行”什么意思？
“在导入表时怎样复制上一行”什么意思？
此主题相关图片如下：图像 021.png
-- 发布时间：2018/7/22 8:48:00
--
导入后再填充一下内容
-- 发布时间：2018/7/22 9:12:00
--
老师，我想在按下导入按钮时同时填充数据。
-- 发布时间：2018/7/22 14:18:00
--
老师，一共有四列要填充，下面代码请老师帮忙修改。
For i As Integer = 1 To Tables("表A").Rows.Count - 1
If Tables("表A").Rows(i).IsNull("第一列") Then
Tables("表A").Rows(i)("第一列") = Tables("表A").Rows(i-1)("第一列")
End If
Next
-- 发布时间：2018/7/22 16:36:00
--
Dim cs As String() = {"第一列", "第二列", "第三列"}
For i As Integer = 1 To Tables("表A").Rows.Count - 1
For Each c As String In cs
If Tables("表A").Rows(i).IsNull(c) Then
Tables("表A").Rows(i)(c) = Tables("表A").Rows(i-1)(c)
End If
Next
Next