VBaccesc获得总列数

我看你的代码看的非常莫名。不知道你想干嘛

1关于总列数的问题，我的意见是：多用loop语句。

recordset对象有一个eof属性和一个bof属性，他们用来确定是否在末尾、开头，所以你可以这样写

recordset1movefirst

do until recordset1eof

k=k+1

recordset1movenext

loop

这样得到总列数k

像这句话for i="总列数" to 1 step -1

不如这么写：

do until recordset1bof

recordset1moveprevious

loop

2不懂你说明什么问题。貌似recordset没有findprevious这个功能嘛

3这个简单，比如你在一个文本框输入

Private Sub Text1_Change()

Label1Caption = CInt(Val(Text1Text)) + 1

End Sub

4其实这个问题我还是没看懂。。不过根据我的理解，一般应该这样：

With recordset1

AddNew

!期号= Text1Text

!数1 = Text2Text

!数2 = Text3Text

Update

End With

如何当增加的下一项没有输入数据时,就不再增加,即增加按钮无效

我的理解是：

if text1text="" and text2text="" and text3text="" then

recordset1cancelupdate

msgbox "一定要有数据！"

end if

5dbgrid没用过。也没看懂。

最后。0分太不够意思了吧。

二维数组的一般格式是 X(A,B) 的格式，你的意图是想知道 A 和 B 的值，给你一个思路：

1、首先大概确定 A 的最大值， A 是列数，定义一个一位数组，比如10列 LS(1 TO 10)，将各列的检测列数存储在这个数组中，检测完成后得到 LS() 数组的最大值，就是列数；

2、定义一个变量，检测中使用递增的方法取得行数。

如果有问题，请百度HI

你应该了解一下ASC这个函数的功能和用法。它的功能是返回字符串中首字母的字符代码， Asc("A") 和 Asc("AZ")返回的都是65，所以才会报错。你可以这样改一下试试：

想办法获得当前工作表已经使用的列数：

dim endcolumn as long

endcolumn = Workbooks(ActiveWorkbookname)Sheets(1)UsedRangecolumnsCount

For colIndex = 1 To endcolumn

Dim num( 1 to 5)

Dim nu(1 to 5)

For i = 1 to 5

num(i)=Cells(i,1)Value ' Cells(i,1) 表示A列的第i 个单元格，可相应修改

nu(i)=Cells(i,2)Value

Next

我求A列最后 一行的行数是：

LastRow = Cells(RowsCount, 1)End(xlUp)Row

我求1 行最后 一列的列数是：

LastColumn = Cells(1, ColumnsCount)End(xlToLeft)Column

你是想获取总行数？还是选中行和列的索引？

获取总行数：dataGridView1RowsCount;

获取当前选中行索引：int i = thisdataGridView1CurrentRowIndex;

获取当前选中列索引：int j = thisdataGridView1CurrentCellColumnIndex;

以上就是关于VB accesc获得总列数全部的内容，包括:VB accesc获得总列数、vb 中，如何确定文本文件中的数据的行数和列数、VB读取Excel文件时，如何能读取更多列等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！