主题：[求助]按照顺序增加控件textbox

参考代码

 

static i As Integer = 0
static y As Integer = 20

Dim txt As WinForm.TextBox
txt = e.Form.CreateControl("TextBox" & i, ControlTypeEnum.TextBox)
txt.Left = 150
txt.Top = y
txt.height = 50
txt.MultiLine = True
txt.ScrollBars = Windows.Forms.ScrollBars.Vertical
e.Form.AddControl(txt)

i+= 1
y += txt.height + 10

新版没问题，旧版要换一下顺序

 

txt.MultiLine = True

txt.height = 500

你绑定有什么意义？绑定的数据，只能显示一行的，莫非你新增的控件都显示一行的数据？

每一楼，控件命名为比如 "txt" & r("_Identify")

 

然后在textchanged事件里面写代码

 

Dim fdr As DataRow = DataTables("盖楼").Find("_Identify = '" & e.Sender.name.Replace("txt", "") & "'")

If fdr IsNot Nothing Then

    fdr("备注") = e.sender.Text

End If

不会做就上传具体例子。

 1、不需要每次上传整个实例啊，单独做一个例子上来就好啊。

 

 2、label1、label2的赋值，直接赋值就好啊，最后写

 

r("回复者") = label1.Text

r("回复时间") = label2.Text

 

 3、textbox的赋值，看10楼。

1、

 

txt = e.Form.CreateControl("TextBox" & r("_Identify"), ControlTypeEnum.TextBox)

 

2、

 

Dim fdr As DataRow = DataTables("盖楼").Find("_Identify = '" & e.Sender.name.Replace("TextBox", "") & "'")

If fdr IsNot Nothing Then

    fdr("备注") = e.sender.Text

End If

 

动态添加的肯定不会保存啊。打开之后，根据你的表的数据，循环生成多次控件不就行了。

汗，全局控件的textchanged事件啊

 

If e.Sender.Name Like "TextBox*" Then
   
    Dim fdr As DataRow = DataTables("盖楼").Find("_Identify = '" & e.Sender.name.Replace("TextBox", "") & "'")
   
    If fdr IsNot Nothing Then
       
        fdr("备注") = e.sender.Text
       
    End If
   
End If

static i As Integer = 0