UC知道跪求详细解释··我是VB菜鸟
来源：百度知道 编辑：UC知道 时间：2024/06/14 10:06:08
Private Sub LoadToGrid(ByVal rdx As ADODB.Recordset)
With grid
initgrid
rdx.MoveFirst
.Rows = rdx.RecordCount + 1
For i = 1 To rdx.RecordCount
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = Trim(rdx!cFG)
.TextMatrix(i, 2) = Trim(rdx!cCustomer)
.TextMatrix(i, 3) = Trim(rdx!cCountry)
.TextMatrix(i, 4) = Trim(rdx!Doz)
.TextMatrix(i, 5) = Trim(rdx!Qty)
.TextMatrix(i, 6) = Trim(rdx!ShipData)
rdx.MoveNext
Next i
End With
End Sub
With grid
initgrid
rdx.MoveFirst
.Rows = rdx.RecordCount + 1
For i = 1 To rdx.RecordCount
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = Trim(rdx!cFG)
.TextMatrix(i, 2) = Trim(rdx!cCustomer)
.TextMatrix(i, 3) = Trim(rdx!cCountry)
.TextMatrix(i, 4) = Trim(rdx!Doz)
.TextMatrix(i, 5) = Trim(rdx!Qty)
.TextMatrix(i, 6) = Trim(rdx!ShipData)
rdx.MoveNext
Next i
End With
End Sub
私人小组loadtogrid （ byval RDX的作为adodb.recordset ）
与网格
initgrid
rdx.movefirst
。行= rdx.recordcount + 1
我= 1至rdx.recordcount
。 textmatrix （一， 0 ） =
。 textmatrix （一， 1 ） =修剪（ RDX的！ CFG桩）
。 textmatrix （一， 2 ） =修剪（ RDX的！ ccustomer ）
。 textmatrix （一， 3 ） =修剪（ RDX的！ ccountry ）
。 textmatrix （一， 4 ） =修剪（ RDX的！ doz ）
。 textmatrix （一， 5 ） =修剪（ RDX的！数量）
。 textmatrix （一， 6 ） =修剪（ RDX的！ shipdata ）
rdx.movenext
接下来，我
结束
结束小组
啥玩一