9.二维数组,针对第二维进行循环 @H_502_0@ Private Sub insertMatchData(ByVal data As Object(,)) @H_502_0@ For j = 0 To UBound(data,2) Step 1 @H_502_0@ @H_502_0@ 注:逗号后面的第二个参数指定为数组的第几维。 @H_502_0@ Ubound返回的是指定维数的index @H_502_0@ (如:数组data第二维有三个项目,item(0)~item(2),则UBound(data,2)返回的结果是2) @H_502_0@ @H_502_0@ 10.相对应java中的switch，vb.net是select @H_502_0@ Select Casetype @H_502_0@ @H_502_0@ Case TYPE_D @H_502_0@ ' 地区级别 @H_502_0@ ' 什么都不需要做 @H_502_0@ @H_502_0@ Case TYPE_R @H_502_0@ ' 大区级别 @H_502_0@ code = data.code.Substring(0,3) @H_502_0@ repeatKey = code + saledate @H_502_0@ ' 大区code重复确认 @H_502_0@ For i = 0 To region.Count - 1 Step 1 @H_502_0@ If repeatKey.Equals(region.Item(i)) Then @H_502_0@ isRepeatedFlag = True @H_502_0@ count += 1 @H_502_0@ End If @H_502_0@ Next i @H_502_0@ If isRepeatedFlag = False Or count < 4 Then @H_502_0@ isRepeatedFlag = False @H_502_0@ region.Add(repeatKey) @H_502_0@ End If @H_502_0@ @H_502_0@ data.code = code @H_502_0@ @H_502_0@ End Select @H_502_0@ @H_502_0@ 注:vb.net的select中各个case结束的时候不需要break @H_502_0@ @H_502_0@ 11.取得系统日期 @H_502_0@ Try @H_502_0@ sysYYYYMM = Format(Date.Today,"yyyyMMdd") @H_502_0@ thisYearOfYYYY = sysYYYYMM.Substring(0,4) @H_502_0@ lastYearOfYYYY = (CInt(sysYYYYMM.Substring(0,4)) - 1).ToString @H_502_0@ monthCount = CInt(sysYYYYMM.Substring(4,2)) @H_502_0@ Catch ex As Exception @H_502_0@ System.Console.WriteLine("取得系统月日getSysDate() 出错") @H_502_0@ End Try @H_502_0@ @H_502_0@ @H_502_0@ 12.类的构造函数 @H_502_0@ Public Sub New() @H_502_0@ '设定sqlMap.config信息 @H_502_0@ mapper = builder.Configure @H_502_0@ End Sub @H_502_0@ @H_502_0@ 注:定义了构造函数,这样在别的类中,定义变量时就可以new 该类,从而将该类中的变量初始化 @H_502_0@ @H_502_0@ 13.类的拷贝 @H_502_0@ 参加html"VB.NET中对象的克隆 (转载+亲自实践)" @H_502_0@ http://hi.baidu.com/bigheadsheep/blog/item/2e967cc52c2fd90900e92800.html 14.判断文件夹路径是否存在,如果不存在则弹出提示框,确认是否需要创建 ' 检查设定的输出报表路径是否存在 If isDirExist(Me.txtOutputPath.Text.Trim()) = False Then ' 设定的输出报表路径不存在的场合,确认是否要创建该路径 If MsgBox("设定的输出报表路径： " & Me.txtOutputPath.Text.Trim() & " 不存在，是否创建该路径？",MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then ' 创建设定的文件夹 My.Computer.FileSystem.CreateDirectory(Me.txtOutputPath.Text.Trim()) Return True Else Me.txtOutputPath.Focus() Return False End If End If ' "文件夹存在CHECK" Private Function isDirExist(ByVal strPath As String) As Boolean Dim strDirTemp As String() strDirTemp = strPath.Split("\") strPath = String.Empty For i As Integer = 0 To strDirTemp.Length - 1 ' 判断数组内容.目的是防止输入的strPath内容如:c:\abc\123\ 最后一位也是"\" If strDirTemp(i) <> "" Then strPath += strDirTemp(i) & "\" End If Next ' 判断文件夹是否存在 isDirExist = System.IO.Directory.Exists(strPath) End Function