急!在线等!VB中怎样把TextBox控件中的内容添加到DataList控件中?谢谢!

Question

VB中怎样把TextBox控件中的内容添加到DataList控件中?谢谢!

Answer 1

把数据添加到DataList里，也需要与记录集对象(rs)绑定：Dim rs As New Recordset
Private Sub Form_Load()
    rs.Fields.Append "a", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
End SubPrivate Sub Command1_Click()
    Dim i%
    If rs.State = adStateClosed Then rs.Open
    
    rs.AddNew
    rs(0) = Text1.Text
    rs.AddNew
    rs(0) = Text2.Text
    rs.AddNew
    rs(0) = Text3.Text
    '......
    rs.UpdateBatch
    Set DataList1.RowSource = rs
    DataList1.ListField = "a"
End Sub

Answer 2

TextBox控件和DataList控件不在一个窗体中!怎么办?谢谢!

Answer 3

点Form2的Command1按钮，把Form2的TextBox的值显示到Form1的DataList里'Form1的代码：
Public rs As New RecordsetPrivate Sub Command1_Click()
Form2.Show
End SubPrivate Sub Form_Load()
    rs.Fields.Append "a", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
End Sub'Form2的代码：
Private Sub Command1_Click()
    Dim i%
    With Form1
        If .rs.State = adStateClosed Then .rs.Open
        
        .rs.AddNew
        .rs.Fields("a") = Text1.Text
        .rs.AddNew
        .rs.Fields("a") = Text2.Text
        .rs.AddNew
        .rs.Fields("a") = Text3.Text
        '......
        .rs.UpdateBatch
        Set .DataList1.RowSource = .rs
        .DataList1.ListField = "a"
    End With
End Sub