51Testing软件测试论坛

标题: 怎样求 datatable内某一列的行数？ [打印本页]

作者: wangyanzhao 时间: 2011-11-1 19:47
标题: 怎样求 datatable内某一列的行数？
怎样求 datatable内某一列的行数？

作者: yjiong0217 时间: 2011-11-2 10:27
database.globalsheet.getrowcount,是这样么？

作者: yjiong0217 时间: 2011-11-2 10:28
datatable.globalsheet.getrowcount

作者: wangyanzhao 时间: 2011-11-2 10:36
自己先顶下

作者: s_spume 时间: 2011-11-2 10:58
DataTable.GetSheet("MySheet").GetRowCount

直接可以在help中找到的呀

作者: SexyCat_1113 时间: 2011-11-2 11:07
你是要找当前的行，还是总的行数？

作者: wangyanzhao 时间: 2011-11-2 18:24
回复 5# s_spume

你那个是求整个“Action”的行数，我意是求比如说：只求A列的行数，因为和别的列行数不一样

作者: wangyanzhao 时间: 2011-11-2 18:24
回复 6# SexyCat_1113

我意是求比如说：只求A列的行数，因为和别的列行数不一样

作者: trhleaf 时间: 2011-11-2 19:12
换一种思路，获取总行数后循环，指向下一行数据，再判断这行数据是否为空！

作者: wangyanzhao 时间: 2011-11-3 09:42
up

作者: wangyanzhao 时间: 2011-11-3 16:48
首先谢谢各位的回答！此问题我已经解决，只是当时晚上思路不清楚。ths

作者: SexyCat_1113 时间: 2011-11-3 18:41
怎么处理的呀？和大家分享一下～

作者: wqh1208 时间: 2011-11-10 23:24
Function GetRowCountByColumn(strPath, strSheetName, strColumnNum)
Dim i, iRowCount, xlApp, OpenExcel
Set xlApp = CreateObject("Excel.Application")
Set OpenExcel = xlApp.Workbooks.Open(strPath)
iRowCount = OpenExcel.WorkSheets(strSheetName).UsedRange.Rows.Count
For i = 1 To iRowCount
If OpenExcel.WorkSheets(strSheetName).Cells(iRowCount - i + 1, strColumnNum) <> "" Then
GetRowCountByColumn = iRowCount - i + 1
Exit For
End If
Next
If GetRowCountByColumn = "" Then
GetRowCountByColumn = 0
End If
OpenExcel.Close
Set xlApp = Nothing
End Function

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)