在vb.net窗口程序里測試你的代碼沒有問題,所以應(yīng)該是其他問題.
成都創(chuàng)新互聯(lián)是一家朝氣蓬勃的網(wǎng)站建設(shè)公司。公司專注于為企業(yè)提供信息化建設(shè)解決方案。從事網(wǎng)站開發(fā),網(wǎng)站制作,網(wǎng)站設(shè)計,網(wǎng)站模板,微信公眾號開發(fā),軟件開發(fā),微信平臺小程序開發(fā),十多年建站對報廢汽車回收等多個方面,擁有豐富的網(wǎng)站營銷經(jīng)驗。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Protected Sub s_Msg()
Dim cust As New custinfo()
cust.CpName = "公司"
MsgBox(cust.CpName)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
s_Msg()
End Sub
End Class
SqlDataAdapter 根本就不需要conn.open,現(xiàn)在你的那個數(shù)據(jù)控件肯定不能顯示。
在后面加DataGridView1。DataBind();試試
任何控件在執(zhí)行綁定都需要手動去加DataBind()
比如:asp:TextBox ID="TextBox1" runat="server" Text='%#QQ%'/
也需要在后臺寫Page.DataBind()或者TextBox1。DataBind();
screen.height 改成:
my.computer.screen.bounds.height
或
System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height
試試這樣
Dim Xls As Microsoft.Office.Interop.Excel.Application
Dim Xlsbook As Microsoft.Office.Interop.Excel.Workbook
Dim Xlssheet As Microsoft.Office.Interop.Excel.Worksheet