奇怪的公有变量问题,大家帮帮记!急!在钱等!

Question

<script language="vb" runat="server"> Dim lngId as long
     sub page_load(sender as object,e as eventargs)
   Dim strConn As String
   
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
    strConn = strConn & server.MapPath(".") & "\tgTimeSheet.mdb"
myConn = New OledbConnection(strConn) 
 if not ispostback then 
    DataGrid1.Columns(1).Visible=true
dataGrid1.EditItemIndex =-1
    GetdataSource()
 end if
    end sub    Sub MyDataGrid_Edit(sender As Object, e As DataGridCommandEventArgs) lngId=5    End Sub
     sub btDel_Click(sender as object,e as eventargs)
    dim strsql as string
strsql ="delete ProjectCode where ID=" & lngId
response.write(strsql)
if lngId=0 then 
   response.write("删除不成功!<Br>请选择所删除的项目!")
   exit sub
end if   
 ' ExecuteSQL(strsql)
end sub
</script>
奇怪的是,我的公有变量lngId 无论我怎样做lngId 还是为0

Answer 1

大家帮帮忙啊,
我试过把dim lngID as long 
改为public lngid as long ,和private lngid as long
但还是不行,这是什么原因啊,大家帮下我啊,,HELP ME!!!~~~

Answer 2

MyDataGrid_Edit这个事件触发了吗？

Answer 3

可以啊,,
就是传到btDel_Click时就又变回0了,,
郁闷....

Answer 4

Sub MyDataGrid_Edit没见你激活啊！

Answer 5

你新一个模块文件Module1.vb，再把Public lngId As Integer复制到里面就可以了。在VS.NET里面公有变量只能在独立的模块文件或类文件中才可以使用的。然后
script language="vb" runat="server"> Dim lngId as long
     sub page_load(sender as object,e as eventargs)
   Dim strConn As String
   
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
    strConn = strConn & server.MapPath(".") & "\tgTimeSheet.mdb"
myConn = New OledbConnection(strConn) 
 if not ispostback then 
    DataGrid1.Columns(1).Visible=true
dataGrid1.EditItemIndex =-1
    GetdataSource()
 end if
    end sub    Sub MyDataGrid_Edit(sender As Object, e As DataGridCommandEventArgs) lngId=5    End Sub
     sub btDel_Click(sender as object,e as eventargs)
    dim strsql as string
strsql ="delete ProjectCode where ID=" & lngId
response.write(strsql)
if lngId=0 then 
   response.write("删除不成功!<Br>请选择所删除的项目!")
   exit sub
end if   
 ' ExecuteSQL(strsql)
end sub
</script>
奇怪的是,我的公有变量lngId 无论我怎样做lngId 还是为0
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
这样它怎么都不会为0了！结贴给分吧

Answer 6

我是用DreamWeaver做的, 好难调啊, 各位兄弟