我在控件中这样操作:
Addstr="1 & vbTab & 0 & vbTab & 0 & vbTab & 0 & vbTab & 2540 "
Msh.AddItem Addstr
运行时总是把这一整个字符串显示在第一列中,不得其解。
花了很长时间也没搞定。还请帮忙!先谢了!
Addstr="1 & vbTab & 0 & vbTab & 0 & vbTab & 0 & vbTab & 2540 "
Msh.AddItem Addstr
运行时总是把这一整个字符串显示在第一列中,不得其解。
花了很长时间也没搞定。还请帮忙!先谢了!
或者
Msh.row=2
Msh.col=3
Msh.text="abc"
MSFlexGrid1.FormatString = "1 |^ 0 |^ 0 |^ 0 |^ 0|^ 2540 "
Msh.AddItem 1 & vbTab & 0 & vbTab & 0 & vbTab & 0 & vbTab & 2540
但是我需要的是动态查询显示的,不知道列名的详细情况
代码如下:
Rs.Open "select * from 直观表", ServerCn, adOpenDynamic, adLockOptimistic
With Rs
If Not .EOF And Not .BOF Then
.MoveFirst
Do While Not .EOF
For i = 0 To Cm - 1 ‘循环列
Addstr = Addstr & "" & IIf(IsNull(.Fields(i)), 0, .Fields(i)) & "" + " & vbTab & "
Next i
Addstr = Left(Addstr, Len(Addstr) - 10)
MSH.AddItem Addstr Addstr = ""
.MoveNext
Loop
End If
End With
Rs.Close
Set Rs = Nothing
还请高手指点
改为:
Addstr = Addstr & "" & IIf(IsNull(.Fields(i)), 0, .Fields(i)) & vbTab