老师:

您好!

Dim r As Table = Tables("表A")
Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("ltsu")
dlg.Filter= "图形文件|*.*"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.FileNames
        r.AddNew
        Dim tt As Table = Tables("yywrkhtc")
        Dim lt17 = tt(17)("khtc") & "\\"
        Dim pth As String = lt17
        If file.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
            piv.AddFile(file.SubString(pth.Length))
        Else
            r.Rows("图像") = r.Rows("编号") & ".jpg"            \'编号是String
            FileSys.CopyFile(dlg.FileName,lt17 & r("ltsu"),True)
        End If
    Next
End If

错误提示

编译错误:没有为类型 "row" 和 "string 定义运算符 "&"

错误代码: r.Rows("图像") = r.Rows("编号") & ".jpg"

请求老师指教!!!

谢谢!!!

老师:

   您好!

如果把动态控件添加到动态控件上

把"TextBox"动态添加在动态"panel控件上

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)
Next

For  i As Integer = 0 To s
    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")  
    e.Form.Controls("hsr").AddControl(txt)
Next

这个e.Form.Controls("hsr")已经是窗口的panel控件.

请老师指教!!!

谢谢!!!

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

谢谢老师!!!

您好!

老师:

Dim tt As Table = Tables("yywrkhtc")
Dim lt17 = tt(17)("khtc") & "\\"
Dim dlg As New OpenFileDialog
\'Dim piv As WinForm.PictureViewer = e.Form.Controls("图片")
Dim pth As String = lt17
dlg.Filter= "图形文件|*.*"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    For Each file As String In dlg.FileNames
        Tables("表A").AddNew
        Dim r As Row = Tables("表A").Current
        r("图片") = r("编号") & ".jpg"
        FileSys.CopyFile(dlg.FileName,pth & r("ltsu"),True)
    Next
End If

上边的代码,就是多选图片有几个,复制在文件件是有几个,但都是同一个图片,

请老师指点!!!

谢谢!!!