e.Form.Text = vars("BUGID") & "---- 要养成看帖要回帖的好习惯"
Dim drs As List(of DataRow) = DataTables("盖楼").SQLSelect("BUG_ID = '" & Vars("BUGID") & "'")
Vars("iii") = 0
Vars("yyy") = 20
For Each dr As DataRow In drs
If dr.Isnull("BUG_ID") = False And dr.Isnull("备注") = False And dr.Isnull("回复者") = False And dr.Isnull("回复时间") = False Then
Dim txt As WinForm.TextBox
Dim Label1,label2 As WinForm.Label
txt = e.Form.CreateControl("TextBox" & dr("_Identify"), ControlTypeEnum.TextBox)
label1 = e.Form.CreateControl("label1" & dr("_Identify"), ControlTypeEnum.label)
label2 = e.Form.CreateControl("label2" & dr("_Identify"), ControlTypeEnum.label)
txt.Left = 150
txt.Top = Vars("yyy")
txt.height = 50
txt.MultiLine = True
txt.ScrollBars = Windows.Forms.ScrollBars.Vertical
txt.SetBounds(150,Vars("yyy"),500,50)
e.Form.AddControl(txt)
label1.Left = 50
label1.Top = Vars("yyy")
e.Form.AddControl(label1)
Dim str As String
Dim id As Integer
id = user.name.IndexOf("@")
str = user.name.SubString(0,id)
label1.Text = Vars("iii") & "楼" & str
label2.Left = 50
label2.Top = Vars("yyy") + 20
label2.Height =30
e.Form.AddControl(label2)
label2.Text = Date.now
txt.text = dr("备注")
label1.Text = dr("回复者")
label2.Text = dr("回复时间")
If dr("提交") = True Then
txt.readonly = BooleanEnum.True
Else
txt.readonly = BooleanEnum.False
End If
Vars("iii") += 1
Vars("yyy") += txt.height + 10
End If
Next
加好友 
发短信
Post By：2016/3/17 18:14:00 [只看该作者]
