标题:vb2008
作者:memoriesoff
日期:2010-12-06 13:23
内容:
--Button控件代码
--数据查询
--单变量
Try
Me.TMPTableAdapter.cs2(Me.DataSet1.TMP, CType(GOODSIDToolStripTextBox.Text, Decimal))
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
--双变量
Try
Me.TMPTableAdapter.cs4(Me.DataSet1.TMP, CType(GoodsidToolStripTextBox2.Text, Decimal), GoodscodeToolStripTextBox1.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
--三变量
Try
Me.TMPTableAdapter.cs3(Me.DataSet1.TMP, CType(GoodsidToolStripTextBox1.Text, Decimal), GOODSCODEToolStripTextBox.Text, BRANDNAMEToolStripTextBox.Text)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
--变量判断
Try
If (GOODSCODEToolStripTextBox.Text.Trim() = "") And (BRANDNAMEToolStripTextBox.Text.Trim() = "") Then
Me.TMPTableAdapter.cs2(Me.DataSet1.TMP, CType(GoodsidToolStripTextBox1.Text, Decimal))
ElseIf (BRANDNAMEToolStripTextBox.Text.Trim() = "") Then
Me.TMPTableAdapter.cs4(Me.DataSet1.TMP, CType(GoodsidToolStripTextBox1.Text, Decimal), GOODSCODEToolStripTextBox.Text)
Else
Me.TMPTableAdapter.cs3(Me.DataSet1.TMP, CType(GoodsidToolStripTextBox1.Text, Decimal), GOODSCODEToolStripTextBox.Text, BRANDNAMEToolStripTextBox.Text)
End If
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
--窗体调用
Form2.Show()
Me.Hide()
判断TextBox的内容为空:
if(textbox1.text.trim()= " "){
//do something
}
else{
//do else
}
....
判断一个textbox对象是否为空
if(textbox1==null)
//do something
#1 dataGridView中的数据导出为excel表 [memoriesoff 12-20 13:49]
这个问题在百度的时候可以得到很多答案，而且还有些答案会有将导出的excel表保存到某个地方的代码。
毕竟某些知识点不是永远都要死记住的。
因为你要用到excel表，所以要首先在项目里添加引用哟：
项目（project）-添加引用（add reference）-Microsoft .Office.Interop.Excel
在form1窗体里
添加一个dataGridView1
dataGridView的属性里有一个allowUsersToAddRows，要设置成FALSE
再添加一个Button1
Button1内的代码：
'要先添加引用才能用到 Microsoft.Office.Interop.Excel.Application()
Dim MyExcel As New Microsoft.Office.Interop.Excel.Application()
MyExcel.Application.Workbooks.Add(True)
MyExcel.Visible = True
'去除dataGridView1的编号列（这里也可以不要）
Dim m As Integer
For m = 0 To DataGridView1.ColumnCount - 1
MyExcel.Cells(1, m + 1) = Me.DataGridView1.Columns(m).HeaderText
Next m
'往excel表里添加数据
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
Dim j As Integer
For j = 0 To DataGridView1.ColumnCount - 1
If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then
MyExcel.Cells(i + 2, j + 1) = ""
Else
MyExcel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString
End If
Next j
Next i
对于dataGridView怎样获得数据库里的数据。
这里就不写了。既然用到了导出数据，相信你一定早就会把数据库里的数据导出到dataGridView里了。
----导入excel2
' Create the Excel Application object
Dim excelApp As New ApplicationClass()
' Create a new Excel Workbook
Dim excelWorkbook As Workbook = excelApp.Workbooks.Add(Type.Missing)
Dim sheetIndex As Integer = 0
Dim col, row As Integer
Dim excelSheet As Worksheet
' Copy each D ..
#2 函数创建引用 [memoriesoff 12-29 11:40]
' 返回当前时间
Function GetTime() As String
Return CStr(Now)
End Function
'引用函数
MsgBox(GetTime)
#3 For...Next 循环 [memoriesoff 01-07 11:22]
Dim i As Integer = 0
For i = 1 To 10
DisplayNumber(i)
Next
#4 If...Then 语句 [memoriesoff 01-07 11:25]
If My.Computer.Clock.LocalTime.DayOfWeek = DayOfWeek.Monday Then
MsgBox("Today is Monday!")
End If
Dim number, digits As Integer
Dim myString As String
number = 53
If number < 10 Then
digits = 1
ElseIf number < 100 Then
digits = 2
Else
digits = 3
End If
If digits = 1 Then myString = "One" Else myString = "More than one"
#5 Select...Case 语句 [memoriesoff 01-07 11:30]
Dim number As Integer = 8
Select Case number
Case 1 To 5
Debug.WriteLine("Between 1 and 5, inclusive")
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8
Debug.WriteLine("Between 6 and 8, inclusive")
Case 9 To 10
Debug.WriteLine("Equal to 9 or 10")
Case Else
Debug.WriteLine("Not between 1 and 10, inclusive")
End Select
PHPWind V7.5 SP2