有在*.aspx.vb里写程序的吗？一定有吧，进来看看吧
好像有这个和*.aspx里写有不一样的地方， *.aspx里面不用定义变量，*.aspx.vb里不行，每个未知名的变量都要定义，而且，定义方法两者还不一样，我这几天在网上都没找到相关的介绍，希望大家帮推荐一下，很急，谢了
有在研究这个，卡住了，有人能把它转成在*.aspx.vb里运行的吗？
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
Public myTable As DataTable
Sub Page_Load(sender As Object, e As Eventargs)
'创建 DataAdpter 对象案例
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Price.mdb")
Dim objCmd As New OleDbDataAdapter("Select * From 零部件报价表", ConnString)
'创建 DataSet 对象案例
Dim DS As New DataSet()
objCmd.Fill(DS, "零部件报价表")
'声明 myTable 变量为 DataTable 对象，并把“零部件报价表”数据表指定给它
myTable = DS.Tables("零部件报价表")
If Not IsPostBack Then
Dim I As Integer
For I = 0 To myTable.Rows.Count - 1
rowNumber.Items.Add(I)
rowNumber.Items(I).Text = "第 " & I + 1 & " 行"
rowNumber.Items(I).Value = I
Next
For I = 0 To myTable.Columns.Count - 1
columnNumber.Items.Add(I)
columnNumber.Items(I).Text = myTable.Columns(I).ColumnName
columnNumber.Items(I).Value = myTable.Columns(I).ColumnName
Next
End If
End Sub
Sub Button_Click(sender As Object, e As Eventargs)
Message.Text = rowNumber.SelectedItem.Text & _
"，<" & columnNumber.SelectedItem.Value & "> 字段的值为【" & _
myTable.Rows(rowNumber.SelectedItem.Value).Item(columnNumber.SelectedItem.Value) & "】"
End Sub
</Script>
<Html>
<Body>
<Form Runat="Server">
请选择要显示的数据行及字段：<Br>
数据行：<Asp:DropDownList Runat="Server" Id="rowNumber" />
字段：<Asp:DropDownList Runat="Server" Id="columnNumber" />
<Asp:Button Runat="Server" Text="显示" OnClick="Button_Click" /><Br><Br>
结果：<Br> <Asp:Label Runat="Server" Id="Message" />
</Form>
</Body>
</Html>
问题点数：0、回复次数：4Top
1 楼kxlxlk（）回复于 2004-12-02 07:50:49 得分 0
有用的是别的表，写了一半，出错了，帮看看
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DS As System.Data.DataSet
Dim objconn As New System.Data.OleDb.OleDbConnection
objconn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Server.MapPath("Grades.mdb")
objconn.Open()
Dim objcmd As New System.Data.OleDb.OleDbDataAdapter("select * from 成绩单", objconn)
DS = New System.Data.DataSet
objcmd.Fill(DS, "成绩单")
Dim mytable As DataTable = DS.Tables("成绩单")
If Not IsPostBack Then
Dim i As Integer
For i = 0 To mytable.Rows.Count - 1
rowNumber.items.Add(i)
Next
End If
End SubTop
2 楼landlordh（work wonders）回复于 2004-12-02 10:53:39 得分 0
XX.aspx
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="XX.aspx.vb" Inherits="WebApplication1.XX"%>
<HTML>
<head>
<title>XX</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name=vs_defaultClientScript content="JavaScript">
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
</head>
<Body>
<Form Runat="Server" ID="Form1">
请选择要显示的数据行及字段：<Br>
数据行：<Asp:DropDownList Runat="Server" Id="rowNumber" />
字段：<Asp:DropDownList Runat="Server" Id="columnNumber" />
<Asp:Button Runat="Server" Text="显示" OnClick="Button_Click" ID="Button1" /><Br>
<Br>
结果：<Br>
<Asp:Label Runat="Server" Id="Message" />
</Form>
</Body>
</HTML>
XX.aspx.vb:
Imports System.Data
Imports System.Data.OleDb
Public Class WebForm1
Inherits System.Web.UI.Page
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Protected WithEvents rowNumber As System.Web.UI.WebControls.DropDownList
Protected WithEvents columnNumber As System.Web.UI.WebControls.DropDownList
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Message As System.Web.UI.WebControls.Label
'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Public myTable As DataTable
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
'创建 DataAdpter 对象案例
Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Price.mdb")
Dim objCmd As New OleDbDataAdapter("Select * From 零部件报价表", ConnString)
'创建 DataSet 对象案例
Dim DS As New DataSet
objCmd.Fill(DS, "零部件报价表")
'声明 myTable 变量为 DataTable 对象，并把“零部件报价表”数据表指定给它
myTable = DS.Tables("零部件报价表")
If Not IsPostBack Then
Dim I As Integer
For I = 0 To myTable.Rows.Count - 1
rowNumber.Items.Add(I)
rowNumber.Items(I).Text = "第 " & I + 1 & " 行"
rowNumber.Items(I).Value = I
Next
For I = 0 To myTable.Columns.Count - 1
columnNumber.Items.Add(I)
columnNumber.Items(I).Text = myTable.Columns(I).ColumnName
columnNumber.Items(I).Value = myTable.Columns(I).ColumnName
Next
End If
End Sub
Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Message.Text = rowNumber.SelectedItem.Text & _
"，<" & columnNumber.SelectedItem.Value & "> 字段的值为【" & _
myTable.Rows(rowNumber.SelectedItem.Value).Item(columnNumber.SelectedItem.Value) & "】"
End Sub
End ClassTop
3 楼killerliu（越学越无知。。。。。-_-）回复于 2004-12-02 11:34:01 得分 0
不就是把嵌入的语言分离到后台吗？不会是要俺们给你做代码工人吧。。。Top
4 楼wgsnet（自由奔腾）回复于 2004-12-02 14:23:44 得分 0
up you !!Top
