Dim str As String
Dim id As Integer
id = user.name.IndexOf("@")
str = user.name.SubString(0,id)
Dim lts As List(of DataRow) = DataTables("盖楼").sqlSelect("回复者 like '%" & str & "%' And 备注 Is Not null And 提交 = 0 ")
DataTables("盖楼").SQLUpdate(lts)
msgbox(0)
For Each lt As DataRow In lts
msgbox(1)
lt("提交") = True
msgbox(2)
e.Form.Controls("TextBox" & lt("_Identify")).ReadOnly = BooleanEnum.True
e.Form.Controls("label2" & lt("_Identify")).text = Date.now
msgbox(3)
lt.save
lt.Locked = True
Next
DataTables("盖楼").SQLUpdate(lts)
怎么只执行到msgbox(0),for each为什么没执行？
加好友 
发短信
Post By：2016/3/17 12:55:00 [只看该作者]
