如问题,搞 来搞 搞去都不行,阿好烦啊,请大家帮帮忙!!
解决方案 »
- 在vb2010中绑定数据库后还能对数据库结构进行修改吗?
- vb6里有没有combobox和treeview两个控件的组合版本的控件啊
- 曾经经历过的最危险的考验(绝对经典)
- MDI窗体与子窗体显示的问题!!!高分回报!!!参与讨论的都有分哦。。。在线等待。。。
- 如何让msgbox弹出的窗口在一定时间内自动消失
- (金额打印问题)100分求助。普通的消费清单,金额打印问题。一次性搞定。明天结贴/
- 在启动VB或Excel(VBA)时,出现附件中拷贝的窗口。原因是什么?怎么解决处理呢?---怎么没人回答我,急啊
- 用Wise Installer做安装程序,有问题!
- 紧急求助,如何解决数据库变大问题
- 我想使用winsock控件来编写一个只发送的程序
- 请问VB的字符串处理中,如何识别查找出“tab”键??在线等!!!
- 添加引用的COM产生的自定义事件如何响应?
Select Substring(字段a,開始位置,長度)...From Tablename
.ROWS=CINT(RS.RECORDCOUNT/2)的,前半部分数据是FOR I= 0 TO CINT(RS.RECORDCOUNT/2),
但后半部分怎样搞呢,老是提示:"下标越界"
i=rs.AbsolutePage
rs.movefirst
rows1=CINT(i/2)
rows2=i-rows1with msg1
'第一列:
for j=0 TO rows1-1
.TextMatrix (j ,1)=rs.field()
.rows=.rows+1
rs.movenext
next
.rows=.rows-1 '第二列
for j=0 TO .rows-1
.TextMatrix (j ,2)=rs.field()
rs.movenext
next
if rows1<rows2 then
.rows=.rows+1
.TextMatrix (.rows-1 ,2)=rs.field()
end if
end with
------------------------
手写的,没整理过。
select left(RECORDCOUNT,len(RECORDCOUNT)/2)as RECORDCOUNTL,Right(RECORDCOUNT,len(RECORDCOUNT)/2) as RECORDCOUNTR From TableName
不好意思,写错了:
Rs.AbsolutePosition嘿嘿嘿