Foxtable(狐表)用户栏目专家坐堂 → 在学习用户间通讯遇到的问题,请教


  共有3180人关注过本帖树形打印复制链接

主题:在学习用户间通讯遇到的问题,请教

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/7 17:15:00 [显示全部帖子]

1、内容列,如果扩展成文件列,那一定要设置它的存储路径(如果是局域网,必须设置在共享文件夹那里;如果是ftp,就必须设置成远程的方式)

 

2、代码这样写

 

Dim re As String = e.Form.Controls("CheckedComboBox1").Value '获得接收用户名
Dim cn As String = Tables("某表").Current("绑定FileManager的列")
If re = "" OrElse cn = "" Then
    Return
End If
If re = User.Name Then
    MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim r As Row = Tables("信息表").AddNew()
r("发送者") = User.Name
r("发送时间") = Date.Now
r("接收者") = re
r("内容") = cn
r.Save()


 回到顶部