楼主辛苦了。谢谢 !
我要是用下面这个数据源。点击编辑后,输入框是可以修改的。
<asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ParkingConnectionString %>"
SelectCommand="SELECT [ID], [Name] FROM [Colour]"></asp:SqlDataSource>
而用这种数据源,点编辑之后,文本框就是不可编辑的。
<asp:ObjectDataSource ID="objS" runat="server" SelectMethod="selectModel" TypeName="Class1"
UpdateMethod="updateModel">
<SelectParameters>
<asp:Parameter Name="MakeID" Type="String" />
<asp:Parameter Name="Name" Type="String" />
<asp:Parameter Name="ID" Type="String" />
</SelectParameters>
<UpdateParameters>
<asp:Parameter Name="MakeID" />
<asp:Parameter Name="Name" />
<asp:Parameter Name="ID" />
</UpdateParameters>
</asp:ObjectDataSource>
下面是我Class1类
Imports Microsoft.VisualBasic
Public Class Class1
Public Function selectModel(ByVal MakeID As String, ByVal Name As String, ByVal ID As String)
Dim comm As String = System.Configuration.ConfigurationManager.ConnectionStrings("ParkingConnectionString").ConnectionString
Dim conn As New Data.SqlClient.SqlConnection
Dim abc As New Data.SqlClient.SqlCommand
conn.ConnectionString = comm
conn.Open()
abc.Connection = conn
abc.CommandText = "select ID,MakeID,Name from Model"
Dim dr As Data.SqlClient.SqlDataReader = abc.ExecuteReader
Return dr
End Function
Public Sub updateModel(ByVal MakeID As String, ByVal Name As String, ByVal ID As String)
Dim comm As String = System.Configuration.ConfigurationManager.ConnectionStrings("ParkingConnectionString").ConnectionString
Dim conn As New Data.SqlClient.SqlConnection
Dim abc As New Data.SqlClient.SqlCommand
conn.ConnectionString = comm
conn.Open()
abc.Connection = conn
abc.CommandText = "update Model set MakeID= '" & MakeID & "', Name ='test ' where ID= 1"
abc.ExecuteNonQuery()
End Sub
End Class
回复 引用