private Sub Command20_Click()
Dim a, b, c, d, e, f, g, h, k, l, z, x, v, j, n, m, qe, fhz, ii, iq As Long
Dim i, jj, mi(11), bb, s, dd, ww(11), ji As Integer
Dim str, sz() As String
For dd = 0 To 11
For ii = 0 To Form9.List1.ListCount - 1
str = Form9.List1.List(ii)
sz = Split(str, ",")
fhz = UBound(sz) For ji = 1 To fhz - 1
If Form9.Check1(dd).Caption = sz(ji) Then Form9.Check1(dd).Value = 1
Next
s = sz(0)
a = s Mod 10
b = (s \ 10) Mod 10
c = (s \ 100) Mod 10
d = a+5+6
e = b-7*2
f = d+8
g = a+b
h = a+2+3
k = b-1
l = 5-6-d
z = 3-2+e
x = 25-16+17-a
v = a*5
j = b*2
n = c+7
m = 5+a+b
qe = 6*c
If Form9.Check1(0).Value = 1 Then mi(0) = h
If Form9.Check1(1).Value = 1 Then mi(1) = k
If Form9.Check1(2).Value = 1 Then mi(2) = qe
If Form9.Check1(3).Value = 1 Then mi(3) = l
If Form9.Check1(4).Value = 1 Then mi(4) = z
If Form9.Check1(5).Value = 1 Then mi(5) = x
If Form9.Check1(6).Value = 1 Then mi(6) = v
If Form9.Check1(7).Value = 1 Then mi(7) = j
If Form9.Check1(8).Value = 1 Then mi(8) = n
If Form9.Check1(9).Value = 1 Then mi(9) = m
If Form9.Check1(10).Value = 1 Then mi(10) = f
If Form9.Check1(11).Value = 1 Then mi(11) = g
For i = MSFlexGrid1.Rows - 1 To 1 Step -1
bb = MSFlexGrid1.TextMatrix(i, 1)
a = bb Mod 10
b = (bb \ 10) Mod 10
c = (bb \ 100) Mod 10
d = a+5+6
e = b-7*2
ww(10) = d+8
ww(11) = a+b
ww(0) = a+2+3
ww(1) = b-1
ww(3) = 5-6-d
ww(4) = 3-2+e
ww(5) = 25-16+17-a
ww(6) = a*5
ww(7) = b*2
ww(8) = c+7
ww(9) = 5+a+b
ww(2) = 6*c
If ww(dd) = mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i Next
Next
Next
End Sub
这段代码想加一个条件,如果list1.list(ii)的sz(fhz)=1时才出If ww(dd) = mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i 结果 ,就差这一句if sz(fhz)=1 then 后面不会了,也不知道加到哪个循环里,我试了半天也没整明白
如list第1行和第3行的sz(fhz)=1,那么就计算这两行的结果,该怎么改
重点***********
想加一个如果list1.list(ii)的sz(fhz)=2,那么mi(0)-mi(11)这12组数,两两互相比较,如mi(0)和mi(1),mi(0)和mi(2)。直到mi(10)和mi(11),然后找到每一次比较两组共有的(相等的)数然后在bb删除,如mi(0)有456,568,789,mi(1)有123,089,568,110,那么mi(0)和mi(1)比较的结果为568相等,如果bb里有568,那么删除,其他的比较都以此类推, 现在有
list第一行sz(fhz)=1
list第二行sz(fhz)=2
list第三行sz(fhz)=1 那么按照上面条件都在bb里删除 请老师帮忙给搞定吧,红红的大苹果等着老师呢,祝老师您新年愉快,新年发大财,买股票买啥啥涨,买彩票买啥啥中
Dim a, b, c, d, e, f, g, h, k, l, z, x, v, j, n, m, qe, fhz, ii, iq As Long
Dim i, jj, mi(11), bb, s, dd, ww(11), ji As Integer
Dim str, sz() As String
For dd = 0 To 11
For ii = 0 To Form9.List1.ListCount - 1
str = Form9.List1.List(ii)
sz = Split(str, ",")
fhz = UBound(sz) For ji = 1 To fhz - 1
If Form9.Check1(dd).Caption = sz(ji) Then Form9.Check1(dd).Value = 1
Next
s = sz(0)
a = s Mod 10
b = (s \ 10) Mod 10
c = (s \ 100) Mod 10
d = a+5+6
e = b-7*2
f = d+8
g = a+b
h = a+2+3
k = b-1
l = 5-6-d
z = 3-2+e
x = 25-16+17-a
v = a*5
j = b*2
n = c+7
m = 5+a+b
qe = 6*c
If Form9.Check1(0).Value = 1 Then mi(0) = h
If Form9.Check1(1).Value = 1 Then mi(1) = k
If Form9.Check1(2).Value = 1 Then mi(2) = qe
If Form9.Check1(3).Value = 1 Then mi(3) = l
If Form9.Check1(4).Value = 1 Then mi(4) = z
If Form9.Check1(5).Value = 1 Then mi(5) = x
If Form9.Check1(6).Value = 1 Then mi(6) = v
If Form9.Check1(7).Value = 1 Then mi(7) = j
If Form9.Check1(8).Value = 1 Then mi(8) = n
If Form9.Check1(9).Value = 1 Then mi(9) = m
If Form9.Check1(10).Value = 1 Then mi(10) = f
If Form9.Check1(11).Value = 1 Then mi(11) = g
For i = MSFlexGrid1.Rows - 1 To 1 Step -1
bb = MSFlexGrid1.TextMatrix(i, 1)
a = bb Mod 10
b = (bb \ 10) Mod 10
c = (bb \ 100) Mod 10
d = a+5+6
e = b-7*2
ww(10) = d+8
ww(11) = a+b
ww(0) = a+2+3
ww(1) = b-1
ww(3) = 5-6-d
ww(4) = 3-2+e
ww(5) = 25-16+17-a
ww(6) = a*5
ww(7) = b*2
ww(8) = c+7
ww(9) = 5+a+b
ww(2) = 6*c
If ww(dd) = mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i Next
Next
Next
End Sub
这段代码想加一个条件,如果list1.list(ii)的sz(fhz)=1时才出If ww(dd) = mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i 结果 ,就差这一句if sz(fhz)=1 then 后面不会了,也不知道加到哪个循环里,我试了半天也没整明白
如list第1行和第3行的sz(fhz)=1,那么就计算这两行的结果,该怎么改
重点***********
想加一个如果list1.list(ii)的sz(fhz)=2,那么mi(0)-mi(11)这12组数,两两互相比较,如mi(0)和mi(1),mi(0)和mi(2)。直到mi(10)和mi(11),然后找到每一次比较两组共有的(相等的)数然后在bb删除,如mi(0)有456,568,789,mi(1)有123,089,568,110,那么mi(0)和mi(1)比较的结果为568相等,如果bb里有568,那么删除,其他的比较都以此类推, 现在有
list第一行sz(fhz)=1
list第二行sz(fhz)=2
list第三行sz(fhz)=1 那么按照上面条件都在bb里删除 请老师帮忙给搞定吧,红红的大苹果等着老师呢,祝老师您新年愉快,新年发大财,买股票买啥啥涨,买彩票买啥啥中
解决方案 »
- 小区物业管理系统
- 有很多分等你拿哦,EXCEL的問題
- 在vb中遇到的问题!求助
- Flexgrid问题,谢谢!
- 如何用COMMAND对象执行UPDATE后,知道有几条数据被更新?
- 我的 ado 类库是时期的2.1 library,如何搞到2.6 版.
- 求VB高人一名,求师或有偿写个东西!
- 如何将两个表相关联
- 在ORACLE中,在SELECT语句中,设置一个虚拟的列,如:select aa,'111' as from cc (在ms-sql2000中可以的),bb列是表cc中不存在的。但
- 我想给一位朋友加分,谁能告诉我怎么加呀?
- vb6, 要怎么让原来的form 知道这菜单仍然开着,或已自行关闭了?
- 求助vb combo控件问题
现在的结果如果选择复选框Check1(0)和Check1(1),那么即删除Check1(0)又删除Check1(1)的,现在的代码已经通过。
sz(fhz)=2得换句话说就是
如果我选择复选框Check1(0)和Check1(1),那么在bb删除Check1(0)和Check1(1),共有的
如果我选择Check1(0)和Check1(1)和Check1(2),那么将删除Check1(0)和Check1(1)共有的,将删除Check1(0)和Check1(2)共有的,将删除Check1(1)和Check1(2)共有的
现在急盼老师能帮我把这个写一下,天下所有的祝福都给您
'没仔细看,先给你整理一下代码,看起来也清楚一些,你那个写的有点乱,要加在哪里也会让自大糊涂的
Private Sub Command20_Click()
Dim a, b, c, d, e, f, g, h, k, l, z, x, v, j, n, m, qe, fhz, ii, iq As Long
Dim i, jj, mi(11), bb, s, dd, ww(11), ji As Integer
Dim str, sz() As String
For dd = 0 To 11
For ii = 0 To Form9.List1.ListCount - 1
str = Form9.List1.List(ii)
sz = Split(str, ",")
fhz = UBound(sz) For ji = 1 To fhz - 1
If Form9.Check1(dd).Caption = sz(ji) Then Form9.Check1(dd).Value = 1
Next
s = sz(0)
a = s Mod 10
b = (s \ 10) Mod 10
c = (s \ 100) Mod 10
d = a + 5 + 6
e = b - 7 * 2
f = d + 8
g = a + b
h = a + 2 + 3
k = b - 1
l = 5 - 6 - d
z = 3 - 2 + e
x = 25 - 16 + 17 - a
v = a * 5
j = b * 2
n = c + 7
m = 5 + a + b
qe = 6 * c
If Form9.Check1(0).Value = 1 Then mi(0) = h
If Form9.Check1(1).Value = 1 Then mi(1) = k
If Form9.Check1(2).Value = 1 Then mi(2) = qe
If Form9.Check1(3).Value = 1 Then mi(3) = l
If Form9.Check1(4).Value = 1 Then mi(4) = z
If Form9.Check1(5).Value = 1 Then mi(5) = x
If Form9.Check1(6).Value = 1 Then mi(6) = v
If Form9.Check1(7).Value = 1 Then mi(7) = j
If Form9.Check1(8).Value = 1 Then mi(8) = n
If Form9.Check1(9).Value = 1 Then mi(9) = m
If Form9.Check1(10).Value = 1 Then mi(10) = f
If Form9.Check1(11).Value = 1 Then mi(11) = g For i = MSFlexGrid1.Rows - 1 To 1 Step -1
bb = MSFlexGrid1.TextMatrix(i, 1)
a = bb Mod 10
b = (bb \ 10) Mod 10
c = (bb \ 100) Mod 10
d = a + 5 + 6
e = b - 7 * 2
ww(10) = d + 8
ww(11) = a + b
ww(0) = a + 2 + 3
ww(1) = b - 1
ww(3) = 5 - 6 - d
ww(4) = 3 - 2 + e
ww(5) = 25 - 16 + 17 - a
ww(6) = a * 5
ww(7) = b * 2
ww(8) = c + 7
ww(9) = 5 + a + b
ww(2) = 6 * c
If ww(dd) = mi(dd) And Form9.Check1(dd).Value Then MSFlexGrid1.RemoveItem i Next
Next
Next
End Sub