Dim pbx As WinForm.PictureBox = Forms(e.Form.Name).Controls("PictureBox1") Dim r As Row = Tables(e.Form.Name.replace("二级","") & "_Table1").Current If r Is Nothing OrElse r.DataRow.RowState = DataRowState.Added Then pbx.Image = Nothing Else pbx.Image = r.DataRow.SQlLoadImage("头像") '从后台提取头像并显示 End If
加好友 
发短信
Post By：2018/12/3 9:32:00 [显示全部帖子]
