老师你好，我想做一个评比项目，有很多的提示信息放在一个信息提示表中，以后提示信息或评比条件有变化，只改变信息表中的信息即可。但如果是一个panel可以，但要是有多个panel怎么办。请老师帮我看看：

1、panel2、panel3、.....panel5对应的提示信息表岗位晋级列1、2、3、4、5条记录怎么显示出来。

2、输入申报人姓名和申报岗位等级后，后面有一些项目内容自动从职工信息总库中提取，但只提取第一条记录的，为什么不是同一个人的。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提示信息显示.zip

文本框显示的文字不能设置行间距，文字一多真的是无法看清楚。上面的例子是一个panel容器分别显示不同的内容；我想做的是用不同的panel容器分别装不同的内容。

下面的代码怎么改能分别给panel1、panel2、panel3、.....panel5赋值呢？

Dim rtxt As New System.Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt, 400)
rtxt.name = "mytxt"
rtxt.Dock = 5
e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)
rtxt.Multiline = True

上面的代码弄不懂。

Dim rtxt = Forms("岗位晋级").Controls("Panel1").basecontrol.Controls("mytxt")
           rtxt.text = Tables("提示信息").Rows(0)("岗位晋级")

太好了，问题解决了。谢谢老师。有个问题，就是下面的代码怎么能放在窗口的Afterload事件中呢。

Dim rtxt6 As New System.Windows.Forms.RichTextBox
UtilsSetLineSpace.SetLineSpace(rtxt6, 400)
rtxt6.name = "mytxt"
rtxt6.Dock = 5
e.Form.Controls("Panel6").BaseControl.Controls.Add(rtxt5)
rtxt1.Multiline = True

\'Dim rtxt6 = Forms("岗位晋级").Controls("Panel6").basecontrol.Controls("mytxt")
rtxt6.text = Tables("提示信息").Rows(5)("岗位晋级")
rtxt6.ForeColor = color.Blue
rtxt6.Font = New Font("宋体",15)

都放在Afterload事件中定义冲突，如果把下面的代码放在别的事件中，必须要在窗口中点击鼠标才能显示出来，这样界面不好。

怎么能把粉色的代码合二为一呢？

另外，A、B两表都有姓名列，怎么在A表中输入姓名后，在B表中选中姓名相同的记录呢？