提示下面代码在BEGIN 那里好象出错For i = 13 To 84
j = 0
k = 0Dim dj As String
dj = Adodc1.Recordset.Fields(i).ValueDim x As StringIf dj = "0" Then
begin
x = "特级"
Combo16(j).Text = Adodc1.Recordset.Fields(i).Value
Combo17(k).Text = "特级"
j = j + 1
k = k + 1
End
.....................................请大师帮忙看看,谢谢了
j = 0
k = 0Dim dj As String
dj = Adodc1.Recordset.Fields(i).ValueDim x As StringIf dj = "0" Then
begin
x = "特级"
Combo16(j).Text = Adodc1.Recordset.Fields(i).Value
Combo17(k).Text = "特级"
j = j + 1
k = k + 1
End
.....................................请大师帮忙看看,谢谢了
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货