Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("学生信息").FindRow(dr)
If wz >=0 Then
Tables("学生信息").Position = wz
End If
Dim pc1 As WinForm.PictureBox = e.Form.Controls("picturebox1")
Dim pbx1 As WinForm.PictureBox=e.Form.Controls("PicView1")
Dim pbx3 As WinForm.PictureBox=e.Form.Controls("PicView3")
Dim ftp1 As New FtpClient
ftp1.Host="47.926"
ftp1.Account = "r"
ftp1.Password = "YJss535"
'Dim tb As Table=Tables("贴图_table1")
Dim Key As String =dr("相片")
Dim fkA As String=DR("户口A")
Dim FKB As String =DR("户口B")
If ftp1.Download(key,ProjectPath & "remotefiles" & Key) = False
pc1.Image= GetImage(ProjectPath & "images\wxp.jpg")
Else
pc1.Image= GetImage(projectPath & "remotefiles" & key)
End If
If ftp1.Download(FKA,ProjectPath & "remotefiles" & FKA) = True
pbx1.Image= GetImage(projectPath & "remotefiles" & fka)
Else
pbx1.Image=GetImage("")
End If
If ftp1.Download(FKb,ProjectPath & "remotefiles" & FKB) = True
pbx3.Image= GetImage(projectPath & "remotefiles" & fkb)
Else
pbx3.Image= getimage("")
End If
用绑定表列方式要出问题,这样不绑又慢了点,这怎么办?
[此贴子已经被作者于2020/4/26 22:31:16编辑过]