vb6.0 mshflexgrid控件 能否进行数据定位

2024年11月18日 16:33
有1个网友回答
网友(1):

能!
分两种情况,
1、mshflexgrid显示的数据库信息,直接通过数据库SQL条件查询,然后再mshflexgrid中显示结果;
2、通过循环判断!
'假设判断第一列字符中含有“中”字,则在第2列中显示为“yes”否则显示“no”
dim s1 as String,k as Integer
with mshflexgrid1
if .rows<2 then exit sub
k=0
for i = 1 to .rows-1
s1=trim(.TextMatrix(i, 1) )
if instr(1,s1,"中")>0 then
.TextMatrix(i, 2)=“yes”
k=k+1
else
.TextMatrix(i, 2)=“no”
endif

next
MsgBox " 共" & k & " 个符合条件!"

end with