主题：求助 rows 转 String

Dim s As Integer = Tables("qrymyf").rows.count - 1

For  i As Integer = 0 To s
    Dim pan As WinForm.Panel = e.Form.CreateControl("Panel" & i, ControlTypeEnum.Panel)
    pan.BackColor = clr1
    pan.BorderStyle = BorderStyle.None
    pan.Width = 220
    pan.Height = 399
    pan.Left = 230*i+5
    pan.Top = 5
    e.Form.Controls("hsr").AddControl(pan)
    Dim txt As WinForm.TextBox = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
    txt.MultiLine = True
    txt.BorderStyle = BorderStyle.None
    txt.BackColor = clr1
    txt.ForeColor = clr2
    txt.Font = fnt
    txt.Width = 218
    txt.Height = 163
    txt.Left = 230*i+6
    txt.Top = 235
    txt.text =  vbcrlf & "  品牌: " & t.Rows(i)("kkth") 
    pan.AddControl(txt)
Next

 

FileSys.CopyFile(file,pth & r("ltsu"),True)