当前位置:编程学习 > VB >>

VB显示数据问题

Dim rs As New ADODB.Recordset
Dim SQL As String

Dim jj As Long: ii = MSHFlexGrid1.Row
If frm_main.StatusBar1.Panels(2).Text = "当前系统用户:" & MSHFlexGrid1.TextMatrix(ii, 10) Then
SQL = "select * from khgl order by 来电时间"
rs.Open SQL, Connectstring, 1, 1
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.Refresh
MSHFlexGrid1.ColWidth(0) = 0
MSHFlexGrid1.FixedCols = 4
End If
以上代码希望系统操作员登陆之后与MSHFlexGrid1中的列相同时,MSHFlexGrid1只显示操作员的数据,运行时老是提示下标越界,是第10列啊,这个代码能实现我想要的功能吗? --------------------编程问答-------------------- 在SQL语句中写要显示的字段
SQL = "select aa,bb,cc from khgl order by 来电时间" --------------------编程问答-------------------- 第10列,序号应该是9 ,  TextMatrix(ii, 9)
索引是从0开始的

--------------------编程问答-------------------- LZ两个方法都试过,不行的 --------------------编程问答-------------------- 你的代码让人看不懂.
Dim jj As Long: ii = MSHFlexGrid1.Row '这个ii是什么,前面定义的是jj 。 MSHFlexGrid1.Row如果有固定行的话,默认就是1

--------------------编程问答--------------------
引用 4 楼 king06 的回复:
你的代码让人看不懂.

VB code
Dim jj As Long: ii = MSHFlexGrid1.Row '这个ii是什么,前面定义的是jj 。 MSHFlexGrid1.Row如果有固定行的话,默认就是1

打错了,定义的是ii,Dim ii As Long: ii = MSHFlexGrid1.Row ,II是列 --------------------编程问答-------------------- 一共有几列?
跟踪下,哪行出错。 --------------------编程问答-------------------- 打错了,定义的是ii,Dim ii As Long: ii = MSHFlexGrid1.Row ,II是行
--------------------编程问答-------------------- UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,