- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]提醒加个标题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=31847)
-- 发布时间：2013/4/22 6:39:00
-- [求助]提醒加个标题
提醒框加个标题，不知加在哪呢？
此主题相关图片如下：提醒.jpg
Dim s1 As String
Dim dr As DataRow
Dim drs As List(of DataRow)
drs = DataTables("库存").Select("kcsl < 5")
If drs.count > 0 Then
For Each dr In drs
s1= s1 & vbcrlf & dr("物品名称") & " : " & dr("kcsl")
Next
s1 ="有库存产品即将不够,请及时补充,以免影响学员上课,名单列表 ( " & drs.count & " ) :" & s1
MessageBox.show(s1)
End If
-- 发布时间：2013/4/22 7:15:00
--
MessageBox.show(s1,"我是标题")