- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]定义 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135851)
-- 发布时间：2019/6/4 17:16:00
-- [求助]定义
为什么我定义的行数总是报错
此主题相关图片如下：360截图20190604170516029.jpg
-- 发布时间：2019/6/4 17:19:00
--
Dim drs = DataTables("表A").datarows
-- 发布时间：2019/6/4 17:35:00
--
求助
此主题相关图片如下：360截图20190604173502852.jpg
-- 发布时间：2019/6/4 18:41:00
--
直接贴出代码，说明你要做什么功能。
-- 发布时间：2019/6/5 10:42:00
--
某表10行10列（列名为，第一列。。。第十列），如果单元格包含xxx字符串，则弹出该单元格
红字部分报错
Dim r = DataTables("表A").DataRows
For i As Integer = 0 To DataTables("表A").DataRows.Count - 1
For Each j As integer =0 to DataTables("表A").DataCols -1
If r(i)(j) = "xxx" Then
Output.Show("包含字符串的单元格坐标为(第\'" & i & "\'行,第\'" & j & "\'列)")
End If
Next
Next
-- 发布时间：2019/6/5 11:08:00
--
For j As integer =0 to DataTables("表A").DataCols.Count -1
[此贴子已经被作者于2019/6/5 11:07:55编辑过]
-- 发布时间：2019/6/5 11:48:00
--
报错
此主题相关图片如下：360截图20190605114759404.jpg
此主题相关图片如下：360截图20190605114759404.jpgDim r = DataTables("表A").DataRows
For i As Integer = 0 To DataTables("表A").DataRows.Count - 1
For j As Integer =0 To DataTables("表A").DataCols.Count -1
If r(i)(j) = "xxx" Then
Output.Show("包含字符串的单元格坐标为(\'" & i & "\',\'" & j & "\')")
End If
Next
Next
-- 发布时间：2019/6/5 12:06:00
--
Dim t As Table = Tables("表A")
For i As Integer = 0 To t.Rows.Count - 1
For j As Integer = 0 To t.Cols.Count -1
If t.Value(i,j) = "xxx" Then
Output.Show("包含字符串的单元格坐标为(\'" & i & "\',\'" & j & "\')")
End If
Next
Next