タイトル | : Partialメソッドについて |
記事No | : 8432 |
投稿日 | : 2008/11/21(Fri) 13:50 |
投稿者 | : ムラ |
申し訳ありませんが、また質問させて頂きます
あるDropdownListを選択すると、もう一つのDropdownListが絞られるという処理をApp_Code下のPartialメソッドから作っています。コードを下に載せます。
Imports System.Data Imports System.Data.SqlClient Imports System.ComponentModel
Namespace SystemAttributeDataSetTableAdapters
Partial Public Class SystemAttributeDataSetTableAdapter
<DataObjectMethod(DataObjectMethodType.Select)> _ Public Function GetDataByTop(ByVal n As Integer) As SystemAttributeDataSet.SystemAttributeMasterDataTable Dim connection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection() Dim query As String = String.Format("SELECT * FROM Threat", n) Dim sqlda As SqlDataAdapter = New SqlDataAdapter(query, *Me.Connection) Dim table As SystemAttributeDataSet.SystemAttributeMasterDataTable = New SystemAttributeDataSet.SystemAttributeMasterDataTable() sqlda.Fill(table) Return table End Function
<DataObjectMethod(DataObjectMethodType.Select)> _ Public Function GetDataByState2(ByVal state As String) As SystemAttributeDataSet.SystemAttributeMasterDataTable Dim connection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection() Dim sqlda As SqlDataAdapter If state = "1.顧客情報" Then sqlda = New SqlDataAdapter("SELECT MiddleKind FROM threat WHERE MiddleKind=1.設計、製造、サービスへのインプット", Me.ToString) Else sqlda = New SqlDataAdapter("SELECT * FROM threat", *Me.connection) End If Dim table As SystemAttributeDataSet.SystemAttributeMasterDataTable = New SystemAttributeDataSet.SystemAttributeMasterDataTable() sqlda.Fill(table) Return table End Function End Class
End Namespace
ドロップダウンリストはthreatというテーブルから作っています。そしてある項目を選んだらもう一つのドロップダウンリストが絞られるという処理がしたいのですが、それ以前の問題で、上のコードの「Me.Connection」(*)の部分に「SystemAttributeDataSetTableAdapterのメンバではありません。」というエラーが表示されます。NameSpaceレベルでのミスかClassレベルでのミスか見当がつきません。このエラーの原因をご教授お願いいたします。
|