this is a faqSub page_load(sender As Object, e As EventArgs) 'do it only when ispostback=false if not ispostback then Session("stu_num")=20013447 Dim Sql as string="Select * from users where stu_num='"&Session("stu_num")&"'" Dim DS as dataset=CreateDataSet(sql,"users") Dim izhou as DataTable=DS.Tables("users") Dim DS1 as dataset=CreateDataSet("Select * from banjijiafen","banjijiafen") Dim izhou1 as DataTable=DS1.Tables("banjijiafen")
dim ii as integer for ii=0 to izhou1.rows.count-1
class_job.Items.add(izhou1.Rows(ii).Item("banji_zhiwu")) if izhou.Rows(0).Item("ban_zhiwu")=izhou1.Rows(ii).Item("banji_zhiwu") then
'do it only when ispostback=false
if not ispostback then
Session("stu_num")=20013447
Dim Sql as string="Select * from users where stu_num='"&Session("stu_num")&"'"
Dim DS as dataset=CreateDataSet(sql,"users")
Dim izhou as DataTable=DS.Tables("users")
Dim DS1 as dataset=CreateDataSet("Select * from banjijiafen","banjijiafen")
Dim izhou1 as DataTable=DS1.Tables("banjijiafen")
dim ii as integer
for ii=0 to izhou1.rows.count-1
class_job.Items.add(izhou1.Rows(ii).Item("banji_zhiwu"))
if izhou.Rows(0).Item("ban_zhiwu")=izhou1.Rows(ii).Item("banji_zhiwu") then
Class_job.items(ii).Selected = true
end if
end if
End sub