LoadUserSetting，代码
Dim fdr As DataRow = DataTables("users").SQLFind("Name = '" & user.Name & "'")If Date.Today > fdr("截止日期") Then msgbox("不能登录") basemainform.closeEnd If
加好友 
发短信
Post By：2014/6/27 10:45:00 [显示全部帖子]
