<%@ page language="java" contentType="text/html; charset=utf-8" pageEncoding="utf-8"%><!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">&
相应的代码: Private Sub some_Click() '定义变量 Dim txtSQL As String Dim MsgText As String Dim Online_mrc As ADODB.Recordset Dim mrc1 As ADODB.Recordset Dim txtStr As String Dim MsgTxt As String Dim mm As String '没有选中行时,提示用户 If myflexgrid.RowSel - 1 = 0 Then M