- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]为何没有根据后台数据操作 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=125060)
-- 发布时间：2018/9/19 10:32:00
-- [求助]为何没有根据后台数据操作
-- 发布时间：2018/9/19 10:46:00
--
没看懂你要表达什么，报错？
Dim str0 As New List (Of String)
Dim str1 As New List (Of String)
Dim id0,id1,flt,celltext As String
For Each dr As DataRow In DataTables("表B").dataRows
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
\'For i As Integer = 0 To Lmst.Length-1
celltext = mc(0).value
\'Next
If str0.Contains(celltext) =False Then
id0 + = dr("_Identify") & ","
Else
str1.Add(celltext)
End If
str0.Add(celltext)
End If
Next
msgbox(id0)
\'++++++++++++++++++++++++++++++++
For Each dr As DataRow In DataTables("表B").dataRows
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
\'For i As Integer = 0 To Lmst.Length-1
celltext= mc(0).value
\'Next
If str1.Contains(celltext) Then
id1 + = dr("_Identify") & ","
End If
End If
Next
msgbox(id1)
\'+++++++++++++++++++++++++++++++++
If id1 > "" Then
id1 = id1.Trim(",")
flt = "[_Identify] In (" & id1 & ")"
End If
msgbox(flt)
DataTables("表B").loadFilter = flt
DataTables("表B").load()
-- 发布时间：2018/9/19 11:09:00
--
不好意思刚才发上去的文件有点问题。我希望的事，先点分页加载，然后在点，筛选，可以选出#后面数字相同的行。
-- 发布时间：2018/9/19 11:21:00
--
Dim str0 As New List (Of String)
Dim str1 As New List (Of String)
Dim id0,id1,flt,celltext As String
Dim drs = DataTables("表B").sqlselect("")
For Each dr As DataRow In drs
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
\'For i As Integer = 0 To Lmst.Length-1
celltext = mc(0).value
\'Next
If str0.Contains(celltext) =False Then
id0 + = dr("_Identify") & ","
Else
str1.Add(celltext)
End If
str0.Add(celltext)
End If
Next
msgbox(id0)
\'++++++++++++++++++++++++++++++++
For Each dr As DataRow In drs
If dr("任务").StartsWith("#") =True Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(dr("任务"), "[#0-9]+")
celltext=Nothing
\'For i As Integer = 0 To Lmst.Length-1
celltext= mc(0).value
\'Next
If str1.Contains(celltext) Then
id1 + = dr("_Identify") & ","
End If
End If
Next
msgbox(id1)
\'+++++++++++++++++++++++++++++++++
If id1 > "" Then
id1 = id1.Trim(",")
flt = "[_Identify] In (" & id1 & ")"
End If
msgbox(flt)
DataTables("表B").LoadTop = ""
DataTables("表B").loadFilter = flt
DataTables("表B").load()
-- 发布时间：2018/9/19 12:26:00
--
多谢了。
-- 发布时间：2018/9/19 14:59:00
--
1、进度条是无法做到的。load数据的时候，无法获取进度。
2、建议直接用文字提示，如 http://www.foxtable.com/webhelp/scr/1476.htm