Imports System.Data Imports System.Data.OleDb Public Class formmmxg Dim conn As New OleDbConnection Dim comm As New OleDbCommand Dim coda As New OleDbDataAdapter Dim cods As New DataSet Private Sub Button1_Click(ByVal sender As System.Object, ByVal
vb 大作业~~课程设计 Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 mAddEditId = "": mAddEditIdName = "" mAddEditIdClass = "": mAddEditIdDepart = "" mAddEditIdZhi = "" If txtBookId.Text = "" Or txtBookIdName = "" Then ' Or txtBookI