回 帖 发 新 帖 刷新版面

主题:一断程序不能执行,急用!

.........

TjXs += "其他信息:" + vbCrLf
Dim B1 As Boolean = False
If Trim(Me.ComboBox9.Text) <> "" And Trim(Me.ComboBox10.Text) <> "" Then
i = Me.ComboBox9.Items.Count - 1
For I1 = 0 To i Step 1
If Trim(Me.ComboBox9.Text) = Me.ComboBox9.Items.Item(I1) And Trim(Me.ComboBox10.Text) = Me.ComboBox10.Items.Item(I1) Then
B1 = True
Me.ComboBox9.Focus()
Exit Sub
End If
Next
End If

If B1 Then
For I1 = 0 To i Step 1
T = Trim(Me.ComboBox9.Items.Item(I1))
TjXs += " 名称:" + T + vbCrLf
T = Trim(Me.ComboBox10.Items.Item(I1))
TjXs += " 内容:" + T + vbCrLf
TjXs += vbCrLf
Next
Else
TjXs += " 名称:" + Trim(Me.ComboBox9.Text) + vbCrLf
TjXs += " 内容:" + Trim(Me.ComboBox10.Text) + vbCrLf
TjXs += vbCrLf
For I1 = 0 To i Step 1
T = Trim(Me.ComboBox9.Items.Item(I1))
TjXs += " 名称:" + T + vbCrLf
T = Trim(Me.ComboBox10.Items.Item(I1))
TjXs += " 内容:" + T + vbCrLf
TjXs += vbCrLf
Next
End If

TjXs += "其他信息:" + Me.TextBox2.Text + vbCrLf

 

.........



红色部分不能执行,即使用使B1=true 变量TjXs也没有变化,到这一步蓝色部分也不执行;

但是如果是B1=False 一切都没有问题。

回复列表 (共11个回复)

11 楼

Major League Baseball "45" number. So then [url=http://www.cheapjordanforsale.us/air-jordan-4-retro-c-4.html]retro jordan 4[/url] shoes followed by No. 45 embroidered white line no.3, 5000 dollar fines dispute In the second game of the Eastern Conference [url=http://www.cheapjordanforsale.us/air-jordan-6-retro-c-6.html]retro jordan 6[/url] semifinals, the Father re-donned the jersey number "23", scored 38 points, but the foot wear or [url=http://www.cheapjordanforsale.us/air-jordan-7-retro-c-8.html]retro jordan 7[/url] embroidered with "45" was too black and white [url=http://www.cheapjordanforsale.us/air-jordan-9-retro-c-9.html]retro jordan 9[/url], then the Bulls away combat, black and white home color [url=http://www.cheapjordanforsale.us/air-jordan-10-retro-c-10.html]retro jordan 10[/url] and away the color does not match, so the Father was also fined $ 5,000 per game, the Father suddenly re-wear jersey No. 23, again by a [url=http://www.cheapjordanforsale.us/air-jordan-11-retro-c-11.html]retro jordan 11[/url] fine of $ 25,000 per game. concord directly translated into "Concord grapes", varieties of Americas grapes, [url=http://www.cheapjordanforsale.us/air-jordan-11-retro-c-11.html]jordan 11 Concord[/url] crystal outsole echoes the color with purple soles, while the color name from the soles of purple the no.5, hot on sale very terrible [url=http://www.cheapjordanforsale.us/air-jordan-12-retro-c-12.html]retro jordan 12[/url] finally listed, each Offer shops outside there are people waiting in line, some people even crushed glass [url=http://www.cheapjordanforsale.us/air-jordan-13-retro-c-13.html]retro jordan 13[/url] doors across the security downtown into the store to try to steal these shoes, in order to buy it at all costs, its all crazy!

我来回复

您尚未登录,请登录后再回复。点此登录或注册