eshusheng(.NET生疏) 请进
<%@ import namespace="System.Data.SqlClient" %>
<%@ import namespace="System.Data" %>
<HTML>
<HEAD>
<script language="vb" runat="server">
private sSqlCon as string = "server=192.168.0.16;uid=sa;pwd=hoauoa;database=eomp"
public sub Page_Load(sender as Object, e as EventArgs)
if not IsPostBack then
Bind()
end if
end sub
private sub Bind()
dim SqlCon as new SqlConnection(sSqlCon)
dim SqlCmd as new StringBuilder()
' SqlCmd.Append("SELECT ProductName,UnitPrice,")
' SqlCmd.Append("UnitsInStock,UnitsOnOrder,")
SqlCmd.Append("select fcid,fcdhgs,fcfhgs,CONVERT(char(10), fcdate, 21) as vfcdate,fcch,fcbusno,fcneze,fcfhfq,fcdqgs,fcshdsef,fcpczsfe,fcfhzfzc,CONVERT(char(10), fczfdate, 21) as fczfdate,fcshzf,fcdate as dfcdate from fctj where fcdhgs='上海' and fcfhgs='温州' order by dfcdate desc ")
dim sda as new SqlDataAdapter(SqlCmd.ToString(),SqlCon)
dim ds as new DataSet()
sda.Fill(ds,"upfctj")
Dim objDataView As New DataView(ds.Tables("upfctj"))
if objDataView.count<=0 then
else
btnFirst.Text = "最首页"
btnPrev.Text = "前一页"
btnNext.Text = "下一页"
btnLast.Text = "最后页"
DGProducts.DataSource = ds.Tables("upfctj").DefaultView
DGProducts.DataBind()
end if
end sub
Sub pagechanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
Dim startIndex As Integer
startIndex = DGProducts.CurrentPageIndex * DGProducts.PageSize
DGProducts.CurrentPageIndex = e.NewPageIndex
bind()
' ShowStats()
End Sub
Sub PagerButtonClick(ByVal sender As Object, ByVal e As EventArgs)
'used by external paging UI
Dim arg As String = sender.CommandArgument
Select Case arg
Case "next"
If (DGProducts.CurrentPageIndex < (DGProducts.PageCount - 1)) Then
DGProducts.CurrentPageIndex += 1
End If
Case "prev"
If (DGProducts.CurrentPageIndex > 0) Then
DGProducts.CurrentPageIndex -= 1
End If
Case "last"
DGProducts.CurrentPageIndex = (DGProducts.PageCount - 1)
Case Else
'page number
DGProducts.CurrentPageIndex = System.Convert.ToInt32(arg)
End Select
Bind()
ShowStats()
End Sub
Sub ShowStats()
lblCurrentIndex.Text = "第 " + (DGProducts.CurrentPageIndex + 1).ToString() + " 页"
lblPageCount.Text = "总共 " +DGProducts.PageCount.ToString() + " 页"
End Sub
public sub DGProducts_Edit(sender as Object, e as DataGridCommandEventArgs)
DGProducts.EditItemIndex = e.Item.ItemIndex
Bind()
end sub
public sub DGProducts_Cancel(sender as Object, e as DataGridCommandEventArgs)
DGProducts.EditItemIndex = -1
Bind()
end sub
public sub DGProducts_Update(sender as Object, e as DataGridCommandEventArgs)
dim ufcdate as date
dim ufcch,ufcbusno as string
Dim ufcneze,ufcfhfq,ufcdqgs,ufcshdsef,ufcpczsfe,ufcfhzfzc,ufcshzf,ufcid,ufczfdate as string
ufcdate = CType(e.Item.Cells(1).Controls(0), TextBox).Text
ufcch = CType(e.Item.Cells(2).Controls(0), TextBox).Text
ufcbusno= CType(e.Item.Cells(3).Controls(0), TextBox).Text
ufcneze = Ctype(e.Item.Cells(4).Controls(0),TextBox).Text
ufcfhfq=Ctype(e.Item.Cells(5).Controls(0),TextBox).Text
ufcdqgs=Ctype(e.Item.Cells(6).Controls(0),TextBox).Text
ufcshdsef=Ctype(e.Item.Cells(7).Controls(0),TextBox).Text
ufcpczsfe=Ctype(e.Item.Cells(8).Controls(0),TextBox).Text
ufcfhzfzc=Ctype(e.Item.Cells(9).Controls(0),TextBox).Text
ufczfdate=Ctype(e.Item.Cells(10).controls(0),TextBox).Text
ufcshzf=Ctype(e.Item.Cells(11).controls(0),TextBox).Text
ufcid=Ctype(e.Item.Cells(12).Controls(0),Textbox).Text
dim sSqlCmd as new StringBuilder()
sSqlCmd.Append("UPDATE fctj ")
sSqlCmd.Append("SET fcdate ='"&ufcdate &"',")
sSqlCmd.Append("fcch = '"&ufcch &"',")
sSqlCmd.Append("fcbusno = '"&ufcbusno &"',")
sSqlCmd.Append("fcneze = "&ufcneze &", ")
sSqlCmd.Append("fcfhfq = "&ufcfhfq &", ")
sSqlCmd.Append("fcdqgs = "&ufcdqgs &",")
sSqlCmd.Append("fcshdsef = "&ufcshdsef &", ")
sSqlCmd.Append("fcpczsfe = "&ufcpczsfe &",")
sSqlCmd.Append("fcfhzfzc = "&ufcfhzfzc &",")
if ufczfdate="" then
sSqlCmd.Append("fczfdate = (null),")
else
'response.write ("456")
sSqlCmd.Append("fczfdate = '"&ufczfdate &"',")
end if
sSqlCmd.Append("fcshzf = "&ufcshzf &"")
sSqlCmd.Append(" WHERE fcid = "&ufcid &"")
'response.write (sSqlCmd.ToString)
'response.end
dim SqlCon as new SqlConnection(sSqlCon)
Dim SqlCmd as new SqlCommand(sSqlCmd.ToString(),SqlCon)
' SqlCmd.Parameters.Add(new SqlParameter("@ProductName", SqlDbType.NVarChar, 40))
' SqlCmd.Parameters("@ProductName").Value = sProductName
' SqlCmd.Parameters.Add(new SqlParameter("@UnitsInStock", SqlDbType.SmallInt))
' SqlCmd.Parameters("@UnitsInStock").Value = sUnitsInStock
' SqlCmd.Parameters.Add(new SqlParameter("@UnitsOnOrder", SqlDbType.SmallInt))
' SqlCmd.Parameters("@UnitsOnOrder").Value = sUnitsOnOrder
' SqlCmd.Parameters.Add(new SqlParameter("@ProductID", SqlDbType.SmallInt))
' SqlCmd.Parameters("@ProductID").Value = sProductID
SqlCon.Open()
SqlCmd.ExecuteNonQuery()
SqlCon.Close()
DGProducts.EditItemIndex = -1
Bind()
end sub
</script>
</HEAD>
---------------------------------
1、现在出现的问题是因为我要修改某一记录必须要有关键字段,我用了序号字段fcid。
我在DataGrid里将这个字段隐藏就无法取出它的值,必须将这个字段显示出来才可以取出它的值,只有用这个值我才可以更新数据。但是我想隐藏这个字段。
2、我点击edit编辑后生成的textbox长度如何控制,超过datagrid的页面的显示范围,如何按制textbox 的长度。
3、生成的textbox我如何用javascript控制每一个textbox的输入值。