怎么实现是从DataTables(Vars("btname11"))表中查找T2表接收字段中如果有来源列数对应的值的且是否唯一等于是时就跳过反之是否唯一不等于是就新建呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么实现是从DataTables(Vars("btname11"))表中查找T2表接收字段中如果有来源列数对应的值的且是否唯一等于是时就跳过反之是否唯一不等于是就新建呢？

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

共有3350人关注过本帖树形打印复制链接主题：怎么实现是从DataTables(Vars("btname11"))表中查找T2表接收字段中如果有来源列数对应的值的且是否唯一等于是时就跳过反之是否唯一不等于是就新建呢？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/22 13:49:00 [显示全部帖子]

使用字典记录需要的列名

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/22 20:22:00 [显示全部帖子]

参考这里的用法，看看是怎么生成和勾选的列有关的条件的：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=173261&skin=0

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/23 11:30:00 [显示全部帖子]

一样的东西，遍历列表框【For Each Index As Integer In l.CheckedIndices】改为遍历来源列所在的表；获取列表框选择项【Dim c As String = l.Items(Index)】改为获取表格的遍历的行的来源列。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/23 13:36:00 [显示全部帖子]

什么地方有问题？

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/23 15:15:00 [显示全部帖子]

For Index As Integer = 0 To Vals.Count - 1

Dim c As String = Vals(Index)

MessageBox.Show("c=" & c)

s = s & "|" & c

MessageBox.Show("s=" & s)

If filter > "" Then filter = filter & " and "

MessageBox.Show("cbtname")).datacols.contains(c))

If DataTables(Vars("btname")).datacols(c).IsNumeric

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/23 16:16:00 [显示全部帖子]

不能直接从execl文件里排重，先把execl数据全部导进来，从导进来的数据表里进行排重

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/23 17:13:00 [显示全部帖子]

Dim i,j As Integer

Dim t1,t2 As Table

Dim str1,str2 As String

Dim str As String

t1 = Tables(Vars("btname11"))

t2 = e.form.Controls("Table1").Table

str1 = e.form.Controls("TextBox1").value

str2 = e.form.Controls("ComboBox1").value

Dim Book As New XLS.Book(str1)

Dim Sheet As XLS.Sheet = Book.Sheets(str2)

Dim dr As DataRow

For i = 1 To Sheet.Rows.Count -1

dim sss as string = ""

For j = 0 To t2.Rows.count - 1

if sss > "" then sss = sss & " and "

sss = sss & t2.Rows(j)("接收字段") & "='" & Sheet(i,t2.Rows(j)("来源列数")).Value & "'"

dr = DataTables(Vars("btname11")).find(sss)

if dr is nothing then

Dim r As Row = Tables(Vars("btname11")).addnew

For j = 0 To t2.Rows.count - 1

Dim ss As String =Sheet(i,t2.Rows(j)("来源列数")).Value

r(t2.Rows(j)("接收字段")) = ss.Replace(" ", "").Trim

end if

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/24 8:10:00 [显示全部帖子]

MessageBox.Show(str.split(",")(j))

MessageBox.Show(r is nothing)

MessageBox.Show(r(str.split(",")(j)))

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/24 10:41:00 [显示全部帖子]

MessageBox.Show(r Is Nothing) ‘弹出true’

r变量没有值，没有指定任何行

有点蓝

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

加好友

发短信

等级：超级版主帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/25 10:12:00 [显示全部帖子]

dr = DataTables(Vars("btname11")).find(sss)

If dr Is Nothing Then

r = t1.AddNew()

For j = 0 To str.split(",").Length - 1

r(str.split(",")(j)) = Sheet(i,t2.Rows(j)("来源列数")).Value

prb.Value = i

End If

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

总数 11 1 2 下一页

主题：怎么实现是从DataTables(Vars("btname11"))表中查找T2表接收字段中如果有来源列数对应的值的 且是否唯一等于是 时 就跳过 反之是否唯一不等于是就新建呢？

主题：怎么实现是从DataTables(Vars("btname11"))表中查找T2表接收字段中如果有来源列数对应的值的且是否唯一等于是时就跳过反之是否唯一不等于是就新建呢？