1、在线用户OpenQQ用户500个
2、
Dim kjmc() As String '控件名称
Dim kjmcjh As String = "客户名称,联系人,业务负责人,报告抬头,报告地址" '控件名称集合
kjmc = kjmcjh.Split(",")
For i As Integer=0 To kjmc.Length-1
If e.Form.Controls(kjmc(i)).value Is Nothing Then
MessageBox.Show(kjmc(i) & "不能为空,请检查")
e.Form.Controls(kjmc(i)).Select
Return
End If
Next
Tables("B_Client").Current.save
Dim msg As String = p & "表A" & "#" & Tables("B_Client").Current("_Identify")
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
End If
Next
MessageBox.Show("保存成功")
3、哪个Load？Datatable（XX）.Load！只要是数据表都可以用Load
加好友 
发短信
Post By：2016/7/7 9:23:00 [显示全部帖子]
