Thinker

Personal e-notepad


    ------循环赋值------

    markeloff
    markeloff
    无尽星空

    帖子数 : 244
    积分 : 3636
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 31
    地点 : Singapore

    ------循环赋值------ Empty ------循环赋值------

    Post by markeloff on 30/01/12, 08:57 am

    >>>>>>>>循环赋值为 ""空

    For i = 0 To 9
    Me.Controls("txtSettleType" & i).Text = ""
    Next i

    >>>>>>>>循环取DsSettleType里的值,赋值给一群以txtSettleType起头的textbox

    For i = 0 To RowCount(DsSettleType) - 1
    Me.Controls("txtSettleType" & i).Text = GetDsValue(DsSettleType, "Settletype", i)
    Next i


      Current date/time is 30/05/20, 10:47 pm