Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBoundDDl = CType(e.Item.Cells(5).Controls(1), DropDownList) DDl.Items.Clear()
Dim sqlstr As String = "select * from IT_EmployeeDetail"
sqlda = New SqlDataAdapter(sqlstr, sqlconn)
sqlda.Fill(myds, "FillName")
For i = 0 To myds.Tables("FillName").Rows.Count - 1
DDl.Items.Add(New ListItem(myds.Tables("FillName").Rows(i).Item("EnglishName") & "/" & myds.Tables("FillName").Rows(i).Item("ChineseName"), myds.Tables("FillName").Rows(i).Item("EmployeeId")))
Next For j = 0 To DDl.Items.Count - 1
If e.Item.Cells(4).Text.Trim.ToLower = DDl.Items(j).Text.Trim.ToLower Then
DDl.Items(j).Selected = True
End If
Next
For i = 0 To DDl.Items.Count - 1
DDl.Items(i).Selected = False
Next
以下省略
出错提示:DropDownList不能有多个选定值??
各位大哥如何搞定????谢谢
Dim sqlstr As String = "select * from IT_EmployeeDetail"
sqlda = New SqlDataAdapter(sqlstr, sqlconn)
sqlda.Fill(myds, "FillName")
For i = 0 To myds.Tables("FillName").Rows.Count - 1
DDl.Items.Add(New ListItem(myds.Tables("FillName").Rows(i).Item("EnglishName") & "/" & myds.Tables("FillName").Rows(i).Item("ChineseName"), myds.Tables("FillName").Rows(i).Item("EmployeeId")))
Next For j = 0 To DDl.Items.Count - 1
If e.Item.Cells(4).Text.Trim.ToLower = DDl.Items(j).Text.Trim.ToLower Then
DDl.Items(j).Selected = True
End If
Next
For i = 0 To DDl.Items.Count - 1
DDl.Items(i).Selected = False
Next
以下省略
出错提示:DropDownList不能有多个选定值??
各位大哥如何搞定????谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货