请问如何使用放在DataList内的TestBox的ToolTip属性?

hzlin2003 2003-06-29 09:19:57
各位高手,真不好意思,我又来麻烦你们了!
我们现在在用.NET进行数据库编程时,遇到了一个比较大的困难.

数据库修改页面的HTML部分布局如下:
<asp:DataList id="DataList1" runat="server"
DataKeyField="县编码" OnEditCommand="DataList1_EditCommand>
<HeaderTemplate><table ><tr ><td >县名</td></tr></table></HeaderTemplate>
<ItemTemplate>
<table><tr><td><%#Container.DataItem("县名称")%></td></tr></table>
</ItemTemplate>
<EditItemTemplate>
<table><TR><TD>发芽势(%)</TD>
<TD><asp:TextBox id="TB_发芽势" Text=<%#Container.DataItem("发芽势")%> Runat="server" ></asp:TextBox></TD></TR>
</table>
</EditItemTemplate>
</asp:DataList>

用VB编程如下:
Public Sub DataList1_EditCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs)
DataList1.EditItemIndex = e.Item.ItemIndex()
Bind()
Dim connectStr As String = Session("connectStr")
Dim selstringfys As String = "SELECT 规范 FROM CD_ZZCL WHERE 章节名='发芽势'"
Dim DbAdapterfys As OleDbDataAdapter = New OleDbDataAdapter(selstringfys, connectStr)
Dim MyDataSetfys As DataSet = New DataSet()
DbAdapterfys.Fill(MyDataSetfys, "CD_ZZCL")
Dim gf As String = MyDataSetfys.Tables(0).Rows(0).Item("规范")
TB_发芽势 = e.Item.FindControl("TB_发芽势")
TB_发芽势.ToolTip() = "[发芽势]是指:" + gf
End Sub

我们的本意是想用放在DataList上的TestBox(TB_发芽势)的ToolTip属性来显示数据库CD_ZZCL中的字段"规范"的内容,但是错误信息如下:
未将对象引用设置到对象的实例。
说明: 执行当前 Web 请求期间,出现未处理的异常。请检查堆栈跟踪信息,以了解有关该错误以及代码中导致错误的出处的详细信息。异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。
源错误:
行 151: TB_发芽势.ToolTip() = "[发芽势]是指:" + gf
请问这是什么错误?怎样纠正?
注:如果把DataList换成Panel,那就不会出任何问题!
...全文
30 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
saucer 2003-06-29
  • 打赏
  • 举报
回复
what is in Bind()? can you try the following ?

Public Sub DataList1_EditCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs)
DataList1.EditItemIndex = e.Item.ItemIndex()
Bind()
Dim connectStr As String = Session("connectStr")
Dim selstringfys As String = "SELECT 规范 FROM CD_ZZCL WHERE 章节名='发芽势'"
Dim DbAdapterfys As OleDbDataAdapter = New OleDbDataAdapter(selstringfys, connectStr)
Dim MyDataSetfys As DataSet = New DataSet()
DbAdapterfys.Fill(MyDataSetfys, "CD_ZZCL")
Dim gf As String = MyDataSetfys.Tables(0).Rows(0).Item("规范")
TB_发芽势 = CType(DataList1.Items(DataList1.EditItemIndex).FindControl("TB_发芽势"), TextBox)
if not(TB_发芽势 is nothing) then
TB_发芽势.ToolTip = "[发芽势]是指:" + gf
end if
hzlin2003 2003-06-29
  • 打赏
  • 举报
回复
真是太感谢saucer(思归, MS .NET MVP)了!根据你的方法,我们终于把搁了半个月之久的困难给解决了,希望你工作顺利!

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧