VB中的这行代码是什么意思？

来源：百度知道 编辑：UC知道 时间：2024/06/20 09:27:54
cboSaleID.Clear
cboPayStoreName.Clear
strSql = "select * from saler"
rsQuery.Open strSql, g_Conn, adOpenForwardOnly, adLockReadOnly
If rsQuery.EOF = False Then
ReDim strSalerTel(rsQuery.RecordCount)
ReDim strIsStore(rsQuery.RecordCount)
For i = 0 To rsQuery.RecordCount - 1
cboSaleID.AddItem rsQuery("taobaoid"), rsQuery("salerid") - 1
cboPayStoreName.AddItem rsQuery("taobaoid"), rsQuery("salerid") - 1
strSalerTel(i) = IIf(IsNull(rsQuery("salertel")), "", rsQuery("salertel"))
strIsStore(i) = rsQuery("ispartnerstore")
rsQuery.MoveNext
Next
End If
If rsQuery.State = 1 Then rsQuery.Close
麻烦帮解释下
那rsQuery("salerid") - 1

rsQuery.MoveNext
这些是什么意思啊？谢谢了

通过循环，
cboSaleID.AddItem rsQuery("taobaoid"), rsQuery("salerid") - 1
将saler表中的aobaoid字段的每条记录分别添加到组合框cboSaleID中作备选项；
cboPayStoreName.AddItem rsQuery("taobaoid"), rsQuery("salerid") - 1
将saler表中的aobaoid字段的每条记录分别添加到组合框cboPayStoreName中作备选项；
strSalerTel(i) = IIf(IsNull(rsQuery("salertel")), "", rsQuery("salertel"))
将salertel字段的每条记录存入数组strSalerTel；
strIsStore(i) = rsQuery("ispartnerstore")
将ispartnerstore字段的每条记录存入数组strIsStore.

其他语句比较容易读懂，如果还有不清楚我再解释。