如何调用系统命令 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    DataTables("成绩表").DeleteFor("姓名 Is null")
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets("成绩册样表")
    Tables("成绩表").ResumeRedraw()
    Tables("成绩表").StopRedraw()
    Dim nms() As String = {"学校名称","年级","班级","学号","姓名","语文","数学","英语","科学","物理","化学","政治","历史"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim xx As String = sheet(n,0).text
        Dim nj As String = sheet(n,1).text
        Dim bj As String = sheet(n,2).Text
        bj = iif(bj = "", "班级 is null", "班级 = '" & bj & "'")
        Dim bh As String = val(sheet(n,3).Text)
        bh = iif(bh = 0, "学号 is null", "学号 = '" & bh & "'")
        Dim xm As String = sheet(n,4).Text
        xm = iif(xm = "", "姓名 is null", "姓名 = '" & xm & "'")
        Dim dr As DataRow = DataTables("成绩表").Find(bh & " And 学校名称 = '" & xx & "' And 年级 = '" & nj & "' And " & bj & " and " & xm)
        If dr Is Nothing Then '如果不存在同编号的订单
            dr = DataTables("成绩表").AddNew()
        End If
        For m As Integer = 0 To nms.Length - 1
            dr(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("成绩表").ResumeRedraw()
    messagebox.show("111")

    DataTables("成绩表").save
End If

zsxx999	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	如何调用系统命令 Post By：2016/4/28 18:44:00 [只看该作者] 用户已被锁定

zsxx999	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2016/4/28 20:34:00 [只看该作者] 用户已被锁定

zsxx999	小大 5楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2016/4/28 21:03:00 [只看该作者] 用户已被锁定

zsxx999	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2016/4/28 21:10:00 [只看该作者] 用户已被锁定

zsxx999	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2016/4/28 21:15:00 [只看该作者] 用户已被锁定

zsxx999	小大 8楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：五尾狐帖子：798 积分：9630 威望：0 精华：0 注册：2011/4/20 14:23:00	Post By：2016/4/28 21:31:00 [只看该作者] 用户已被锁定

主题：如何调用系统命令