发送click代码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 ")
For Each lt As DataRow In lts
lt("提交") = True
e.Form.Controls("TextBox" & lt("_Identify")).ReadOnly = BooleanEnum.True
e.Form.Controls("label2" & lt("_Identify")).text = Date.now
msgbox("TextBox" & lt("_Identify"))
msgbox("label2" & lt("_Identify"))
lt.save
lt.Locked = True
Next
DataTables("盖楼").SQLUpdate(lts)