<Ajax.AjaxMethod()> _
Public Function BindSmallType(ByVal bigid As String) As String()
Dim sql As String = ""
Using con As New SqlConnection(MCommon.ConnectString)
con.Open()
sql = "select * from TradeMidType where bigtradeid=" + bigid + ""
Dim cmd As New SqlCommand(sql, con)
cmd.ExecuteNonQuery()
Dim ada As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
ada.Fill(dt)
Dim sA As String() = New String(dt.Rows.Count - 1) {}
For i As Integer = 0 To dt.Rows.Count - 1
sA(i) = dt.Rows(i)("TradeMidTypeId").ToString() + "" & Chr(9) & ""
sA(i) += dt.Rows(i)("MidName").ToString()
Next
Return sA
End Using
End Function
Public Function BindSmallType(ByVal bigid As String) As String()
Dim sql As String = ""
Using con As New SqlConnection(MCommon.ConnectString)
con.Open()
sql = "select * from TradeMidType where bigtradeid=" + bigid + ""
Dim cmd As New SqlCommand(sql, con)
cmd.ExecuteNonQuery()
Dim ada As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
ada.Fill(dt)
Dim sA As String() = New String(dt.Rows.Count - 1) {}
For i As Integer = 0 To dt.Rows.Count - 1
sA(i) = dt.Rows(i)("TradeMidTypeId").ToString() + "" & Chr(9) & ""
sA(i) += dt.Rows(i)("MidName").ToString()
Next
Return sA
End Using
End Function
解决方案 »
- 关于LinkButton传值 打开一个新窗口!急!!
- ASP.NET 实现修改
- asp.net代码将动态网页导出成pdf格式的,用代码怎么实现
- AutoPostBack
- CheckBoxList控件布局问题?
- 一个Ajax Control Toolkit WebSite,使用CalendarExtender控件,调试正常,发布出错!
- 怎样用批处理删除系统中desktop__.ini文件???
- 我想在blog中帖一些代码,可是vs.net中的颜色怎么粘不上?有什么办法?
- 纳闷问题
- 初学者请教:我如何调用下一级ASP.NET的界面?或关闭目前当前的界面?
- 如何按提交submit按钮 然后获取textbox.text的string内容转成数组
- javascript问题!~
放在VB里怎么写
http://www.kamalpatel.net/ConvertCSharp2VB.aspx